Warn if the i3lock program can’t be found

2020-04-14 22:14:58 -07:00 · 2020-04-14 22:14:58 -07:00 · f339c6b237
commit f339c6b237
parent ed92628a52
1 changed files with 5 additions and 0 deletions
--- a/stumpwm/.stumpwmrc
+++ b/stumpwm/.stumpwmrc
@ -36,4 +36,9 @@ after it has been unlocked."

 (swm-gaps:toggle-gaps)

+(with-message-queuing t
+  (let ((programs-in-path (programs-in-path)))
+   (unless (member "i3lock" programs-in-path :test #'string-equal)
+     (echo "Couldn't find the i3lock executable, can't lock screen"))))
+
 (swank:create-server :dont-close t)