stumpwm: modularize

1 files changed, 35 insertions, 0 deletions

diff --git a/.stumpwm.d/utils.lisp b/.stumpwm.d/utils.lisp
new file mode 100644
index 0000000..1aeae66
--- /dev/null
+++ b/.stumpwm.d/utils.lisp
@@ -0,0 +1,35 @@
+(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
+				       (user-homedir-pathname))))
+  (when (probe-file quicklisp-init)
+    (load quicklisp-init)))
+
+(in-package :stumpwm)
+
+(setf *default-package* :stumpwm)
+(set-module-dir "~/.stumpwm.d/modules")
+
+(load-module "kbd-layouts")
+(load-module "mpd")
+(load-module "pinentry")
+(load-module "swm-gaps")
+(load-module "pass")
+(load-module "swm-emacs")
+(load-module "end-session")
+(load-module "globalwindows")
+(load-module "urgentwindows")
+
+(ql:quickload :slynk)
+
+(stumpwm:defcommand sly-start-server () ()
+  "Start a slynk server for sly."
+  (sb-thread:make-thread (lambda () (slynk:create-server :dont-close t))))
+
+
+(stumpwm:defcommand sly-stop-server () ()
+  "Stop current slynk server for sly."
+  (sb-thread:make-thread (lambda () (slynk:stop-server 4005))))
+
+(mpd:mpd-connect)
+
+(setf kbd-layouts:*caps-lock-behavior* :swapped)
+(kbd-layouts:keyboard-layout-list "us" "gr" "bg -variant phonetic")