1 files changed, 0 insertions, 59 deletions
diff --git a/.config/stumpwm/modeline.lisp b/.config/stumpwm/modeline.lisp
deleted file mode 100644
index 43dfb9a..0000000
--- a/.config/stumpwm/modeline.lisp
+++ /dev/null
@@ -1,59 +0,0 @@
-
-;; 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)