summaryrefslogtreecommitdiff
path: root/stumpwm.org
diff options
context:
space:
mode:
Diffstat (limited to 'stumpwm.org')
-rw-r--r--stumpwm.org17
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/")