seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2026-08-14 00:30:14 +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 (packages
(manifest (manifest '())) (manifest (manifest '()))
"A manifest (@pxref{Writing Manifests,,, guix, GNU Guix Reference Manual}) "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 (define home-emacs-package
(match-record-lambda <home-emacs-configuration> (match-record-lambda <home-emacs-configuration>
@ -111,16 +114,24 @@ of Emacs extensions."))
(propagated-inputs '()) (propagated-inputs '())
(outputs '("out")))))) (outputs '("out"))))))
(define home-emacs-shepherd (define (home-emacs-shepherd config)
(list (shepherd-service (match-record config <home-emacs-configuration>
(documentation "Run Emacs daemon.") (shepherd-requirement)
(provision '(emacs-daemon)) (let ((emacs (home-emacs-package config)))
(modules '((shepherd support))) (list (shepherd-service
(start (documentation "Run Emacs daemon.")
#~(make-forkexec-constructor (provision '(emacs-daemon))
'("emacs" "--fg-daemon") (requirement shepherd-requirement)
#:log-file (in-vicinity %user-log-dir "emacs-daemon.log"))) (modules '((shepherd support)))
(stop #~(make-kill-destructor))))) (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 (define home-emacs-service-type
(service-type (service-type
@ -129,6 +140,6 @@ of Emacs extensions."))
(list (service-extension home-profile-service-type (list (service-extension home-profile-service-type
(compose list home-emacs-package)) (compose list home-emacs-package))
(service-extension home-shepherd-service-type (service-extension home-shepherd-service-type
(const home-emacs-shepherd)))) home-emacs-shepherd)))
(default-value (home-emacs-configuration)) (default-value (home-emacs-configuration))
(description "Install Emacs into home profile and run its daemon."))) (description "Install Emacs into home profile and run its daemon.")))