stumpwm: use material design colors
This commit is contained in:
parent
f91108fe4d
commit
a4a646b8f9
@ -67,6 +67,14 @@
|
|||||||
(mapc #'focus-next-frame (screen-groups (current-screen)))))
|
(mapc #'focus-next-frame (screen-groups (current-screen)))))
|
||||||
(gnewbg-float "Float"))
|
(gnewbg-float "Float"))
|
||||||
|
|
||||||
|
(setq *mode-line-background-color* "#455a64")
|
||||||
|
(setq *mode-line-foreground-color* "#b0bec5")
|
||||||
|
(set-border-color "#212121")
|
||||||
|
(set-bg-color "#455a64")
|
||||||
|
(set-fg-color "#b0bec5")
|
||||||
|
(setq *colors* '("#212121" "#e57373" "#a5d6a7" "#fff59d" "#90caf9" "#e1bee7" "#80deea" "#fafafa"))
|
||||||
|
(update-color-map (current-screen))
|
||||||
|
|
||||||
(let ((scr (current-screen)))
|
(let ((scr (current-screen)))
|
||||||
(dolist (head (screen-heads scr))
|
(dolist (head (screen-heads scr))
|
||||||
(enable-mode-line scr head t)))
|
(enable-mode-line scr head t)))
|
||||||
|
Loading…
x
Reference in New Issue
Block a user