config.lisp (1254 bytes)
1 (in-package #:stumpwm-init) 2 3 (defun pushnew-apps (&rest apps) 4 "Keep apps sorted as they are pushed into the app-menu." 5 (dolist (app apps) 6 (pushnew app 7 app-menu::*app-menu* 8 :test #'string= 9 :key #'car)) 10 (setf app-menu::*app-menu* 11 (sort app-menu::*app-menu* #'string< :key #'car))) 12 13 (setq app-menu::*app-menu* 14 '(("emacs" "emacs") 15 ("web" browse:browse))) 16 17 (setf *mode-line-timeout* 1) 18 (setf *mode-line-foreground-color* "#98BDFB") 19 (setf *mode-line-border-color* "#028090") 20 (setf *mode-line-background-color* "#191919") 21 (setf *mode-line-foreground-color* "#98BDFB") 22 23 (setf battery-portable:*prefer-sysfs* t) 24 (setf *screen-mode-line-format* 25 (list "[^B%n^b] %W^>" "%B | %d")) 26 (setf *window-format* "%m%n%s%c") 27 28 ;; Since this is bound to a key by default in this configuration, it is nice to 29 ;; warn the user before closing everything. *prompt-on-quit* only exists on the 30 ;; latest git version as of 2019-12-07, so we need to make sure it exists first. 31 (when (apropos :*prompt-on-quit* (find-package :stumpwm) t) 32 ;; FIXME: Should not need to use eval! Or execute the setf around 2021 without 33 ;; the condition above. 34 (eval (read-from-string "(setf stumpwm:*prompt-on-quit* t)")))