home: services: emacs: Install .desktop files.

* modules/rosenthal/home/services/emacs.scm (home-emacs-package): Install
.desktop files and patch Emacs references.
This commit is contained in:
Hilton Chain 2026-04-11 10:34:54 +08:00
parent 74832c049d
commit cd97d72f3b
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292

View File

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