diff options
Diffstat (limited to 'users/tazjin/emacs/config')
| -rw-r--r-- | users/tazjin/emacs/config/desktop.el | 2 | ||||
| -rw-r--r-- | users/tazjin/emacs/config/functions.el | 17 |
2 files changed, 18 insertions, 1 deletions
diff --git a/users/tazjin/emacs/config/desktop.el b/users/tazjin/emacs/config/desktop.el index 810521db185a..c64073f5f824 100644 --- a/users/tazjin/emacs/config/desktop.el +++ b/users/tazjin/emacs/config/desktop.el @@ -220,7 +220,7 @@ in-progress." (exwm-input-set-key (kbd "C-c j") #'exwm-jump-to-buffer) ;; Launch applications / any command with completion (dmenu style!) -;; (exwm-input-set-key (kbd "s-d") #'counsel-linux-app) ;; TODO(tazjin): completing-read version +(exwm-input-set-key (kbd "s-d") #'run-xdg-app) (exwm-input-set-key (kbd "s-x") #'run-external-command) (exwm-input-set-key (kbd "s-p") #'password-store-lookup) diff --git a/users/tazjin/emacs/config/functions.el b/users/tazjin/emacs/config/functions.el index a5f109f4b5a6..6e2cff7caec9 100644 --- a/users/tazjin/emacs/config/functions.el +++ b/users/tazjin/emacs/config/functions.el @@ -332,4 +332,21 @@ names, instead of only their names (which might change)." (get-buffer name)))) (switch-to-buffer (or selected name) nil 't))) +(defun run-xdg-app () + "Use `//users/tazjin/gio-list-apps' to retrieve a list of +installed (and visible) XDG apps, and let users launch them." + (interactive) + (let* ((apps-json (s-lines (s-trim (shell-command-to-string "gio-list-apps")))) + (apps (seq-map (lambda (app) + (let ((parsed (json-parse-string app :object-type 'alist))) + (cons (cdr (assoc 'name parsed)) + (cdr (assoc 'commandline parsed))))) + apps-json)) + + ;; Display the command that will be run as an annotation + (completion-extra-properties + '(:annotation-function (lambda (app) (format " [%s]" (cdr (assoc app apps))))))) + + (run-external-command--handler (cdr (assoc (completing-read "App: " apps nil t) apps))))) + (provide 'functions) |