From 6a325f9bd23100828117c52a95d025f8af626976 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Sat, 21 Jun 2025 08:53:25 -0700
Subject: stumpwm: Add command to refresh the .desktop cache

---
 oni/home/services/stumpwm/pop-os-config.lisp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/oni/home/services/stumpwm/pop-os-config.lisp b/oni/home/services/stumpwm/pop-os-config.lisp
index ae9c3de..d8c88f5 100644
--- a/oni/home/services/stumpwm/pop-os-config.lisp
+++ b/oni/home/services/stumpwm/pop-os-config.lisp
@@ -54,6 +54,10 @@
         (cadr (assoc (completing-read (current-screen) prompt (mapcar #'car applications) :require-match t)
                      applications :test 'string=)))))
 
+(defcommand reload-applications () ()
+  (pop-os-load-applications)
+  (message "OK!"))
+
 (defcommand run-application (application)
     ((:application "Application: "))
   (sb-ext:run-program "/usr/bin/gtk-launch" (list application) :wait nil))
-- 
cgit v1.3-2-g0d8e