1.1--- a/.stumpwm.d/init.lisp	Thu Aug 15 21:53:06 2024 -0400
     1.2+++ b/.stumpwm.d/init.lisp	Wed Aug 21 20:29:13 2024 -0400
     1.3@@ -2,13 +2,7 @@
     1.4 
     1.5 (in-package :stumpwm)
     1.6 
     1.7-;; (ql:quickload :swank)
     1.8-;; (require :swank)
     1.9-
    1.10-;; (defvar *stumpwm-port* 4040)
    1.11-;; (swank-loader:init)
    1.12-;; (swank:create-server :port *stumpwm-port*
    1.13-;;                      :style swank:*communication-style*)
    1.14+(stumpwm:set-prefix-key (kbd "s-SPC"))
    1.15 
    1.16 (defcommand load-std () ()
    1.17   (ql:quickload :std))
    1.18@@ -26,10 +20,23 @@
    1.19       *float-window-modifier* :SUPER
    1.20       *startup-message* "Greetings, stranger.")
    1.21 
    1.22-(set-font "-*-terminal")
    1.23-(set-module-dir "/usr/share/stupmwm/contrib/")
    1.24+(set-module-dir "~/.stumpwm.d/contrib")
    1.25 (init-load-path *module-dir*)
    1.26 
    1.27+(ql:quickload :clx-truetype)
    1.28+(load-module "ttf-fonts")
    1.29+(xft:cache-fonts)
    1.30+(set-font (make-instance 'xft:font
    1.31+            :family "Mononoki Nerd Font"
    1.32+            :subfamily "Regular"
    1.33+            :size 12))
    1.34+
    1.35+(load-module "swm-golden-ratio")
    1.36+(unless swm-golden-ratio:*golden-ratio-on*
    1.37+  (swm-golden-ratio:toggle-golden-ratio))
    1.38+
    1.39+(load-module "stumptray")
    1.40+
    1.41 (set-fg-color "#ffffff")
    1.42 (set-bg-color "#000000")
    1.43 (set-border-color "#7E5D90")
    1.44@@ -60,15 +67,15 @@
    1.45 (set-transient-gravity :center)
    1.46 (setf *time-modeline-string* "%a %b %e %k:%M")
    1.47 
    1.48-(setq *mode-line-timeout* 4)
    1.49-(which-key-mode)
    1.50+(setq *mode-line-timeout* 4)(
    1.51+which-key-mode)
    1.52 
    1.53 (when *initializing*
    1.54   (run-shell-command "sh ~/.fehbg")
    1.55   (when (equal (machine-instance) "zor")
    1.56     (run-shell-command "sh ~/.screenlayout/default.sh"))
    1.57-  (dolist (s stumpwm:*screen-list*) 
    1.58-    (enable-mode-line s (car (screen-heads s)) t)))
    1.59+  (dolist (h (screen-heads (current-screen)))
    1.60+    (enable-mode-line (current-screen) h t)))
    1.61 
    1.62 (defcommand term (&optional program) ()
    1.63   (sb-thread:make-thread
    1.64@@ -87,4 +94,7 @@
    1.65    (lambda ()
    1.66      (run-shell-command "chromium"))))
    1.67 
    1.68+(defcommand emacsclient () ()
    1.69+  (run-shell-command "emacsclient -c -a="))
    1.70+
    1.71 (define-key *root-map* (kbd "c") "term")