diff options
| -rw-r--r-- | oni/home/services/stumpwm/pop-os-config.lisp | 4 |
1 files changed, 4 insertions, 0 deletions
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)) |