diff options
| -rw-r--r-- | stumpwm.org | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/stumpwm.org b/stumpwm.org index d77356f..ed15a9f 100644 --- a/stumpwm.org +++ b/stumpwm.org @@ -5,12 +5,15 @@ #+STARTUP: overview * Load Modules #+begin_src lisp + + (setf is-zeus (equal (asdf:hostname) "zeus")) + (setf is-hermes (equal (asdf:hostname) "hermes")) + (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") @@ -21,25 +24,27 @@ (load-module "mpd") (load-module "stump-backlight") (load-module "urgentwindows") + (when is-zeus + (load-module "pinentry")) + (mpd:mpd-connect) #+end_src * Setup slynk #+begin_src lisp (ql:quickload :slynk) + + (stumpwm:defcommand sly-start-server () () "Start a slynk server for sly." - (ql:quickload :slynk) - (slynk:create-server :dont-close t)) + (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)))) + #+end_src * Autostart #+begin_src lisp - - (setf is-zeus (equal (asdf:hostname) "zeus")) - (setf is-hermes (equal (asdf:hostname) "hermes")) (setf *wallpapers* "~/wallpapers/") |