stumpwm: Add modeline

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)