diff options
| -rw-r--r-- | .config/stumpwm/modeline.lisp | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/.config/stumpwm/modeline.lisp b/.config/stumpwm/modeline.lisp new file mode 100644 index 0000000..43dfb9a --- /dev/null +++ b/.config/stumpwm/modeline.lisp @@ -0,0 +1,59 @@ + +;; Modeline +(setf *window-format* "%m%n%s%c") +(setf *screen-mode-line-format* (list "%g ^> %d")) + +(enable-mode-line (current-screen) (current-head) t) + +(setf *mode-line-timeout* 2) + +(setf *time-modeline-string* "%F %H:%M") + +(setf *group-format* "%t") + +(setf *window-format* "%n: %30t") + +(load "~/.config/stumpwm/colors.lisp") + +(setf *mode-line-background-color* phundrak-nord1 + *mode-line-foreground-color* phundrak-nord5) + +(setf *mode-line-border-color* phundrak-nord1 + *mode-line-border-width* 0) + +;; (defvar *mode-line-formatter-list* +;; '(("%g") ("%W") ("^>") ("mu-unread" . t) ("%m") ("%C") ("%M") ("%B") ("%d")) +;; "List of formatters for the modeline.") + + +;; (defun generate-modeline (elements &optional not-invertedp rightp) +;; "Generate a modeline for StumpWM. +;; ELEMENTS should be a list of `cons'es which `car' is the modeline +;; formatter or the shell command to run, and their `cdr' is either nil +;; when the `car' is a formatter and t when it is a shell command." +;; (when elements +;; (cons (format nil +;; " ^[~A^]^(:bg \"~A\") " +;; (format nil "^(:fg \"~A\")^(:bg \"~A\")^f1~A^f0" +;; (if (xor not-invertedp rightp) phundrak-nord1 phundrak-nord3) +;; (if (xor not-invertedp rightp) phundrak-nord3 phundrak-nord1) +;; (if rightp "" "")) +;; (if not-invertedp phundrak-nord3 phundrak-nord1)) +;; (let* ((current-element (car elements)) +;; (formatter (car current-element)) +;; (commandp (cdr current-element))) +;; (cons (if commandp +;; `(:eval (run-shell-command ,formatter t)) +;; (format nil "~A" formatter)) +;; (generate-modeline (cdr elements) +;; (not not-invertedp) +;; (if (string= "^>" (caar elements)) t rightp))))))) + +;; (defcommand reload-modeline () () +;; "Reload modeline." +;; (sb-thread:make-thread +;; (lambda () +;; (setf *screen-mode-line-format* +;; (cdr (generate-modeline *mode-line-formatter-list*)))))) + +;; (reload-modeline) |