jdormit/dotfiles
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Major StumpWM cosmetic improvements

Browse Source
This commit is contained in:
Jeremy Dormitzer 2020-03-09 23:36:15 -04:00
parent 5ab2f60ee2
commit e82059cd67
1 changed files with 48 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
stumpwm/.stumpwm.d/init.lisp
View File

@ -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")