kylekrein/emacs-config
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

App launcher package

Browse source
This commit is contained in:
Aleksandr Lebedev 2025-09-23 13:28:54 +02:00
parent bb9bd29fec
commit 20d2be3fa2
1 changed files with 2 additions and 155 deletions
Download patch file Download diff file Expand all files Collapse all files

157
config.org
View file

@ -299,161 +299,8 @@ Using [[https://github.com/gkowzan/alert-toast][Alert toast]]
This code creates a menu to launch linux apps, that have Desktop entry.
Code was taken from [[https://github.com/SebastienWae/app-launcher/blob/main/app-launcher.el][this awesome repo]]
#+begin_src emacs-lisp
(require 'xdg)
(require 'cl-seq)
(defcustom app-launcher-apps-directories
(mapcar (lambda (dir) (expand-file-name "applications" dir))
(cons (xdg-data-home)
(xdg-data-dirs)))
"Directories in which to search for applications (.desktop files)."
:type '(repeat directory))
(defcustom app-launcher--annotation-function #'app-launcher--annotation-function-default
"Define the function that genereate the annotation for each completion choices."
:type 'function)
(defcustom app-launcher--action-function #'app-launcher--action-function-default
"Define the function that is used to run the selected application."
:type 'function)
(defvar app-launcher--cache nil
"Cache of desktop files data.")
(defvar app-launcher--cache-timestamp nil
"Time when we last updated the cached application list.")
(defvar app-launcher--cached-files nil
"List of cached desktop files.")
(defun app-launcher-list-desktop-files ()
"Return an alist of all Linux applications.
Each list entry is a pair of (desktop-name . desktop-file).
This function always returns its elements in a stable order."
(let ((hash (make-hash-table :test #'equal))
result)
(dolist (dir app-launcher-apps-directories)
(when (file-exists-p dir)
(let ((dir (file-name-as-directory dir)))
(dolist (file (directory-files-recursively dir ".*\\.desktop$"))
(let ((id (subst-char-in-string ?/ ?- (file-relative-name file dir))))
(when (and (not (gethash id hash)) (file-readable-p file))
(push (cons id file) result)
(puthash id file hash)))))))
result))
(defun app-launcher-parse-files (files)
"Parse the .desktop files to return usable informations."
(let ((hash (make-hash-table :test #'equal)))
(dolist (entry files hash)
(let ((file (cdr entry)))
(with-temp-buffer
(insert-file-contents file)
(goto-char (point-min))
(let ((start (re-search-forward "^\\[Desktop Entry\\] *$" nil t))
(end (re-search-forward "^\\[" nil t))
(visible t)
name comment exec)
(catch 'break
(unless start
(message "Warning: File %s has no [Desktop Entry] group" file)
(throw 'break nil))
(goto-char start)
(when (re-search-forward "^\\(Hidden\\|NoDisplay\\) *= *\\(1\\|true\\) *$" end t)
(setq visible nil))
(setq name (match-string 1))
(goto-char start)
(unless (re-search-forward "^Type *= *Application *$" end t)
(throw 'break nil))
(setq name (match-string 1))
(goto-char start)
(unless (re-search-forward "^Name *= *\\(.+\\)$" end t)
(push file counsel-linux-apps-faulty)
(message "Warning: File %s has no Name" file)
(throw 'break nil))
(setq name (match-string 1))
(goto-char start)
(when (re-search-forward "^Comment *= *\\(.+\\)$" end t)
(setq comment (match-string 1)))
(goto-char start)
(unless (re-search-forward "^Exec *= *\\(.+\\)$" end t)
;; Don't warn because this can technically be a valid desktop file.
(throw 'break nil))
(setq exec (match-string 1))
(goto-char start)
(when (re-search-forward "^TryExec *= *\\(.+\\)$" end t)
(let ((try-exec (match-string 1)))
(unless (locate-file try-exec exec-path nil #'file-executable-p)
(throw 'break nil))))
(puthash name
(list (cons 'file file)
(cons 'exec exec)
(cons 'comment comment)
(cons 'visible visible))
hash))))))))
(defun app-launcher-list-apps ()
"Return list of all Linux .desktop applications."
(let* ((new-desktop-alist (app-launcher-list-desktop-files))
(new-files (mapcar 'cdr new-desktop-alist)))
(unless (and (equal new-files app-launcher--cached-files)
(null (cl-find-if
(lambda (file)
(time-less-p
app-launcher--cache-timestamp
(nth 5 (file-attributes file))))
new-files)))
(setq app-launcher--cache (app-launcher-parse-files new-desktop-alist))
(setq app-launcher--cache-timestamp (current-time))
(setq app-launcher--cached-files new-files)))
app-launcher--cache)
(defun app-launcher--annotation-function-default (choice)
"Default function to annotate the completion choices."
(let ((str (cdr (assq 'comment (gethash choice app-launcher--cache)))))
(when str (concat " - " (propertize str 'face 'completions-annotations)))))
(defun app-launcher--action-function-default (selected)
"Default function used to run the selected application."
(let* ((exec (cdr (assq 'exec (gethash selected app-launcher--cache))))
(command (let (result)
(dolist (chunk (split-string exec " ") result)
(unless (or (equal chunk "%U")
(equal chunk "%F")
(equal chunk "%u")
(equal chunk "%f"))
(setq result (concat result chunk " ")))))))
(call-process-shell-command command nil 0 nil)))
;;;###autoload
(defun app-launcher-run-app (&optional arg)
"Launch an application installed on your machine.
When ARG is non-nil, ignore NoDisplay property in *.desktop files."
(interactive)
(let* ((candidates (app-launcher-list-apps))
(result (completing-read
"Run app: "
(lambda (str pred flag)
(if (eq flag 'metadata)
'(metadata
(annotation-function . (lambda (choice)
(funcall
app-launcher--annotation-function
choice))))
(complete-with-action flag candidates str pred)))
(lambda (x y)
(if arg
t
(cdr (assq 'visible y))))
t nil 'app-launcher nil nil)))
(funcall app-launcher--action-function result)))
(git-package "https://github.com/SebastienWae/app-launcher")
(use-package app-launcher)
#+end_src
** Standalone run
This code snippet runs app launcher without emacs frame