diff options
Diffstat (limited to 'users/tazjin/emacs/config')
| -rw-r--r-- | users/tazjin/emacs/config/functions.el | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/users/tazjin/emacs/config/functions.el b/users/tazjin/emacs/config/functions.el index df36c7eb882c..3739d25122ef 100644 --- a/users/tazjin/emacs/config/functions.el +++ b/users/tazjin/emacs/config/functions.el @@ -2,6 +2,8 @@ (require 'dash) (require 'map) +(require 'gio-list-apps) ;; native module! + (defun goto-line-with-feedback () "Show line numbers temporarily, while prompting for the line number input" (interactive) @@ -336,12 +338,7 @@ names, instead of only their names (which might change)." "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)) + (let* ((apps (taz-list-xdg-apps)) ;; Display the command that will be run as an annotation (completion-extra-properties |