diff options
| author |  Tom Willemse | 2025-06-21 08:53:25 -0700 |
|---|---|---|
| committer | Tom Willemse | 2025-06-21 08:53:25 -0700 |
| commit | 6a325f9bd23100828117c52a95d025f8af626976 (patch) | |
| tree | af1e2a647646f87215d448180ee156a65acac78f /oni/home | |
| parent | fd5eaeb4c3d1d5f28e5bfbb74b6e1b3ff56f94c9 (diff) | |
| download | new-dotfiles-6a325f9bd23100828117c52a95d025f8af626976.tar.gz new-dotfiles-6a325f9bd23100828117c52a95d025f8af626976.zip | |
stumpwm: Add command to refresh the .desktop cache
Diffstat (limited to 'oni/home')
| -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)) |