From 5a8e73b903a94af0f536299a736841337dfd4af9 Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.com>
Date: Wed, 23 Aug 2023 07:52:11 +0300
Subject: stumpwm: load pinentry when is-zeus

---
 stumpwm.org | 17 +++++++++++------
 1 file 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/")
 
 
-- 
cgit v1.2.3