kylekrein/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Emacs package

Browse source
This commit is contained in:
Aleksandr Lebedev 2025-11-10 14:15:56 +01:00
parent 54ff0cc3ae
commit a16e106f98
4 changed files with 72 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

12
guix-config/home/services/emacs.scm
View file

@ -6,7 +6,6 @@
#:use-module (gnu services)
#:use-module (gnu home services)
#:use-module (gnu packages emacs-xyz)
#:use-module (ice-9 textual-ports) ;for get-string-all
#:export (home-emacs-service-type
home-emacs-configuration))
@ -20,24 +19,23 @@
(early-config-file
(text-config '())
"The early-config.el file.")
; (emacs-packages
; (list-of-packages)
; "Emacs packages to install with emacs")
)
(define package-user-dir "~/.cache/emacs/elpa")
(define (home-emacs-files-service config)
(list `(".emacs.d/config.el"
(list
`(".config/emacs/config.el"
,(mixed-text-file "config.el"
";; Emacs Config from Guix Home\n"
"(load-file \"" (home-emacs-configuration-config-file config) "\")\n"))
`(".emacs.d/early-config.el"
`(".config/emacs/init.el"
,(mixed-text-file "early-config.el"
";; Emacs Early Config from Guix Home\n"
(string-append "(make-directory \"" package-user-dir "\" t)\n")
(string-append "(setq package-user-dir \"" package-user-dir "\")\n")
"(load-file \"" (home-emacs-configuration-early-config-file config) "\")\n"))))
"(load-file \"" (home-emacs-configuration-early-config-file config) "\")\n"
"(load-file \"~/.config/emacs/config.el\")"))))
(define (home-emacs-profile-service config)
(list (home-emacs-configuration-emacs config)))