From e82059cd677d3321816d461e576ffa4d38354ebb Mon Sep 17 00:00:00 2001
From: Jeremy Dormitzer <jeremy.dormitzer@gmail.com>
Date: Mon, 9 Mar 2020 23:36:15 -0400
Subject: [PATCH] Major StumpWM cosmetic improvements

---
 stumpwm/.stumpwm.d/init.lisp | 53 ++++++++++++++++++++++++++++++++----
 1 file changed, 48 insertions(+), 5 deletions(-)

diff --git a/stumpwm/.stumpwm.d/init.lisp b/stumpwm/.stumpwm.d/init.lisp
index 4c9c178..bfaf015 100644
--- a/stumpwm/.stumpwm.d/init.lisp
+++ b/stumpwm/.stumpwm.d/init.lisp
@@ -7,17 +7,57 @@
                      :style swank:*communication-style*
                      :dont-close t)
 
+(defun get-color (name)
+  (let ((colors '(("base03" . "#002b36")
+		  ("base02" . "#073642")
+		  ("base01" . "#586e75")
+		  ("base00" . "#657b83")
+		  ("base0" . "#839496")
+		  ("base1" . "#93a1a1")
+		  ("base2" . "#eee8d5")
+		  ("base3" . "#fdf6e3")
+		  ("yellow" . "#b58900")
+		  ("orange" . "#cb4b16")
+		  ("red" . "#dc322f")
+		  ("magenta" . "#d33682")
+		  ("violet" . "#6c71c4")
+		  ("blue" . "#268bd2")
+		  ("cyan" . "#2aa198")
+		  ("green" . "#859900"))))
+    (cdr (assoc name colors :test 'equal))))
+
 ;; StumpWM configs
 (setq *message-window-gravity* :center
       *input-window-gravity* :center
       *window-border-style* :thin
       *message-window-padding* 10
-      *maxsize-border-width* 5
-      *normal-border-width* 5
+      *message-window-y-padding* 5
+      *maxsize-border-width* 2
+      *normal-border-width* 2
       *transient-border-width* 2
       stumpwm::*float-window-border* 2
-      stumpwm::*float-window-title-height* 5
-      *mouse-focus-policy* :click)
+      stumpwm::*float-window-title-height* 2
+      *mouse-focus-policy* :click
+      *colors* (list (get-color "base02")
+		     (get-color "red")
+		     (get-color "green")
+		     (get-color "yellow")
+		     (get-color "blue")
+		     (get-color "magenta")
+		     (get-color "cyan")
+		     (get-color "base2")))
+
+;; Input/message bar
+(set-fg-color (get-color "base00"))
+(set-bg-color (get-color "base3"))
+(set-border-color (get-color "base2"))
+(set-msg-border-width 2)
+
+;; Windows
+(set-focus-color (get-color "base2"))
+(set-unfocus-color (get-color "base2"))
+(set-float-focus-color (get-color "base2"))
+(set-float-unfocus-color (get-color "base2"))
 
 ;; Sudo
 (defcommand stumpwm-password (prompt) ((:string "prompt: "))
@@ -101,7 +141,10 @@
 (set '*message-window-padding* 4)
 
 ;; Desktop background
-(run-commands "background-random")
+(run-shell-command "feh --bg-scale ~/Dropbox/pictures/solarized-light-blank.png")
 
 ;; Notifications via Dunst
 (run-shell-command "/usr/bin/dunst")
+
+;; Picom compositor
+(run-shell-command "picom -b")