From 60bb6cc17fa5def36510ad572b13f2ee24bfae5c Mon Sep 17 00:00:00 2001 From: Thomas Freeman Date: Wed, 6 Jul 2022 20:46:26 -0400 Subject: [PATCH] Follow symbolic links to *.desktop files This small change causes app-launcher to follow symbolic links so that *.desktop files can be managed by a program such as GNU Stow. --- app-launcher.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/app-launcher.el b/app-launcher.el index cd8177c..68b941e 100644 --- a/app-launcher.el +++ b/app-launcher.el @@ -69,7 +69,7 @@ This function always returns its elements in a stable order." (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$")) + (dolist (file (directory-files-recursively dir ".*\\.desktop$" nil nil t)) (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)