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

2
users/tazjin/emacs/config/desktop.el
View file

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

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)