dotfiles

shared miscellaneous configuration files between my systems
git clone git://git.eonn.xyz/dotfiles.git
Log | Files | Refs

commit a1c52b19f97bfb25ccf5476fc0c98f753c8d58d2
parent fd6c0d2e6011d42e30532f5d02bcf3e2c9ea6fab
Author: Ian Ressa <ian@eonn.xyz>
Date:   Mon, 12 Sep 2022 02:12:19 -0400

[stumpwm] add visual.lisp for colors, make mode line pretty-colored

Diffstat:
M.stumpwm.d/init.lisp | 1+
M.stumpwm.d/mode-line.lisp | 12++++++++----
A.stumpwm.d/visual.lisp | 16++++++++++++++++
3 files changed, 25 insertions(+), 4 deletions(-)

diff --git a/.stumpwm.d/init.lisp b/.stumpwm.d/init.lisp @@ -30,5 +30,6 @@ (load file) (format *error-output* "File '~a' doesn't exist." file)))) +(load-file "visual") (load-file "binds") (load-file "mode-line") diff --git a/.stumpwm.d/mode-line.lisp b/.stumpwm.d/mode-line.lisp @@ -8,10 +8,14 @@ (read-line stream nil)) "% battery")) -(setf *screen-mode-line-format* - (list "%v " "^> | " "%d")) - -(setf *mode-line-timeout* '1) +(setf + *screen-mode-line-format* + (list "^8*[%n]^n " "%v " "^> | " "%d") + *time-modeline-string* "%A, %B %d. %R" + *mode-line-background-color* "#15132f" + *mode-line-foreground-color* "#bbbbff" + *mode-line-border-color* *mode-line-background-color* + *mode-line-timeout* '1) (dolist (h (screen-heads (current-screen))) (enable-mode-line (current-screen) h t)) diff --git a/.stumpwm.d/visual.lisp b/.stumpwm.d/visual.lisp @@ -0,0 +1,16 @@ +;; -*-lisp-*- + +(in-package :stumpwm) + +(setf *colors* + '("black" ; 0 black + "red" ; 1 red + "green" ; 2 green + "yellow" ; 3 yellow + "blue" ; 4 blue + "#bbbbff" ; 5 magenta + "cyan" ; 6 cyan + "white" ; 7 white + "#f6f1d5" ; 8 khaki + )) +(update-color-map (current-screen))