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

home: services: emacs: Don't import (guix config) in gexp.

Browse Source 
* modules/rosenthal/home/services/emacs.scm (home-emacs-package): Implement
load-profile in home-emacs-program.
This commit is contained in:
Hilton Chain 2026-04-11 00:03:35 +08:00
parent 5b3539c882
commit 057f66639a
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 22 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10,6 +10,7 @@
#:use-module (guix packages)
#:use-module (guix profiles)
#:use-module (guix records)
#:use-module (guix search-paths)
;; Guix System - services
#:use-module (gnu services)
#:use-module (gnu services configuration)
@ -41,19 +42,36 @@ of Emacs extensions."))
(content (manifest
(cons (package->manifest-entry emacs)
(manifest-entries packages))))))
(home-emacs-search-paths
(map search-path-specification->sexp
(manifest-search-paths
(profile-content home-emacs-profile))))
(home-emacs-program
(program-file "home-emacs-program"
(with-imported-modules
;; XXX: (guix profiles) imports (guix config).
(source-module-closure
'((guix profiles)
'((guix search-paths)
(guix build utils)))
#~(begin
(use-modules (ice-9 match)
(guix profiles)
(guix search-paths)
(guix build utils))
(let ((profile #$home-emacs-profile))
(load-profile profile)
;; See also (@ (guix profiles) load-profile).
(for-each
(match-lambda
((($ <search-path-specification> variable _ separator) . value)
(let ((current (getenv variable)))
(setenv variable
(if current
(if separator
(string-append value separator current)
value)
value)))))
(evaluate-search-paths
(map sexp->search-path-specification
'#$home-emacs-search-paths)
(list profile)))
(match (command-line)
((cmd . args)
(apply system*