From cd97d72f3b9054d84c38d85321476175dda4b226 Mon Sep 17 00:00:00 2001 From: Hilton Chain Date: Sat, 11 Apr 2026 10:34:54 +0800 Subject: [PATCH] home: services: emacs: Install .desktop files. * modules/rosenthal/home/services/emacs.scm (home-emacs-package): Install .desktop files and patch Emacs references. --- modules/rosenthal/home/services/emacs.scm | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/modules/rosenthal/home/services/emacs.scm b/modules/rosenthal/home/services/emacs.scm index 596c969..ebdb6a3 100644 --- a/modules/rosenthal/home/services/emacs.scm +++ b/modules/rosenthal/home/services/emacs.scm @@ -105,10 +105,15 @@ of Emacs extensions.") (let ((src (in-vicinity #$home-emacs-profile path)) (dst (in-vicinity #$output path))) (mkdir-p (dirname dst)) - (symlink src dst))) - '("share/icons" + (copy-recursively src dst))) + '("share/applications" + "share/icons" "share/info" - "share/man"))))) + "share/man")) + (let ((applications + (in-vicinity #$output "share/applications"))) + (substitute* (find-files applications "\\.desktop$") + ((#$emacs) #$output)))))) (native-inputs '()) (inputs '()) (propagated-inputs '())