1.1--- a/.stumpwm.d/init.lisp	Fri Aug 30 17:07:30 2024 -0400
     1.2+++ b/.stumpwm.d/init.lisp	Sat Sep 07 22:40:44 2024 -0400
     1.3@@ -5,7 +5,12 @@
     1.4 (stumpwm:set-prefix-key (kbd "s-SPC"))
     1.5 
     1.6 (ignore-errors
     1.7- (ql:quickload '(:std :core :prelude :user)))
     1.8+ (ql:quickload '(:std :core :prelude :user :swank)))
     1.9+
    1.10+(defcommand quickload (system)
    1.11+  ((:rest "System: "))
    1.12+  "Load a system with QL:QUICKLOAD"
    1.13+  (ql:quickload system))
    1.14 
    1.15 (defcommand load-std () ()
    1.16   (ql:quickload :std))
    1.17@@ -39,7 +44,7 @@
    1.18 (unless swm-golden-ratio:*golden-ratio-on*
    1.19   (swm-golden-ratio:toggle-golden-ratio))
    1.20 
    1.21-;; (load-module "stumptray")
    1.22+(load-module "screenshot")
    1.23 (load-module "cpu")
    1.24 (load-module "hostname")
    1.25 (load-module "mpd")
    1.26@@ -51,8 +56,6 @@
    1.27 
    1.28 (ql:quickload :xml-emitter)
    1.29 (ql:quickload :dbus)
    1.30-(load-module "notify")
    1.31-(notify:notify-server-toggle)
    1.32 
    1.33 (set-fg-color "#ffffff")
    1.34 (set-bg-color "#000000")