seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2026-04-17 23:34:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

home: services: emacs: Inherit graphical session environment.

Browse Source
This commit is contained in:
Hilton Chain 2026-04-11 00:08:23 +08:00
parent 057f66639a
commit 74832c049d
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 23 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
modules/rosenthal/home/services/emacs.scm
View File

@ -31,7 +31,10 @@
(packages
(manifest (manifest '()))
"A manifest (@pxref{Writing Manifests,,, guix, GNU Guix Reference Manual})
of Emacs extensions."))
of Emacs extensions.")
(shepherd-requirement
(list-of-symbols '())
"List of services that should be started before this service."))
(define home-emacs-package
(match-record-lambda <home-emacs-configuration>
@ -111,16 +114,24 @@ of Emacs extensions."))
(propagated-inputs '())
(outputs '("out"))))))
(define home-emacs-shepherd
(list (shepherd-service
(documentation "Run Emacs daemon.")
(provision '(emacs-daemon))
(modules '((shepherd support)))
(start
#~(make-forkexec-constructor
'("emacs" "--fg-daemon")
#:log-file (in-vicinity %user-log-dir "emacs-daemon.log")))
(stop #~(make-kill-destructor)))))
(define (home-emacs-shepherd config)
(match-record config <home-emacs-configuration>
(shepherd-requirement)
(let ((emacs (home-emacs-package config)))
(list (shepherd-service
(documentation "Run Emacs daemon.")
(provision '(emacs-daemon))
(requirement shepherd-requirement)
(modules '((shepherd support)))
(start
#~(lambda args
((make-forkexec-constructor
(list #$(file-append emacs "/bin/emacs") "--fg-daemon")
#:log-file (in-vicinity %user-log-dir "emacs-daemon.log")
;; Inherit graphical session environment.
#:environment-variables (environ))
args)))
(stop #~(make-kill-destructor)))))))
(define home-emacs-service-type
(service-type
@ -129,6 +140,6 @@ of Emacs extensions."))
(list (service-extension home-profile-service-type
(compose list home-emacs-package))
(service-extension home-shepherd-service-type
(const home-emacs-shepherd))))
home-emacs-shepherd)))
(default-value (home-emacs-configuration))
(description "Install Emacs into home profile and run its daemon.")))