1.1--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2+++ b/.stumpwm.d/init.lisp	Wed May 01 19:02:48 2024 -0400
     1.3@@ -0,0 +1,23 @@
     1.4+(require :stumpwm)
     1.5+(require :swank)
     1.6+(in-package :stumpwm)
     1.7+(swank-loader:init)
     1.8+
     1.9+(setq *mouse-focus-policy*    :sloppy
    1.10+      *float-window-modifier* :SUPER
    1.11+      *startup-message* "Greetings, stranger.")
    1.12+
    1.13+;; (set-font "CommitMono")
    1.14+(init-load-path *module-dir*)
    1.15+
    1.16+(setf *window-format* "%m%n%s%c")
    1.17+(setf *screen-mode-line-format* (list "[^B%n^b] %W^>%d"))
    1.18+
    1.19+(setf *time-modeline-string* "%a %b %e %k:%M")
    1.20+
    1.21+(setq *mode-line-timeout* 4)
    1.22+
    1.23+(enable-mode-line (current-screen) (current-head) t)
    1.24+
    1.25+(when *initializing*
    1.26+  (run-shell-command "sh ~/.fehbg"))