maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(tazjin/emacs): implement run-xdg-app using gio-list-apps tool

Browse source 
Change-Id: I43111dfc7091c416035be563ca7fc17265667b33
Reviewed-on: https://cl.tvl.fyi/c/depot/+/9158
Tested-by: BuildkiteCI
Reviewed-by: tazjin <tazjin@tvl.su>
This commit is contained in:
Vincent Ambo 2023-08-27 02:22:20 +03:00 • committed by tazjin
parent b5979f26e8
commit c6224c9ef5
4 changed files with 21 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

17
users/tazjin/emacs/config/functions.el
View file

@ -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)