From f339c6b23756d07214b742c4aac51cb0f6ee6933 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Tue, 14 Apr 2020 22:14:58 -0700
Subject: Warn if the i3lock program can’t be found

---
 stumpwm/.stumpwmrc | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'stumpwm/.stumpwmrc')

diff --git a/stumpwm/.stumpwmrc b/stumpwm/.stumpwmrc
index fda3412..927c682 100644
--- 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)
-- 
cgit v1.2.3-54-g00ecf