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

Small emacs service

Browse source
This commit is contained in:
Aleksandr Lebedev 2025-11-10 00:27:20 +01:00
parent 4db81bbde7
commit 54ff0cc3ae
5 changed files with 1141 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -31,13 +31,13 @@
(list `(".emacs.d/config.el"
,(mixed-text-file "config.el"
";; Emacs Config from Guix Home\n"
(call-with-input-file (home-emacs-configuration-config-file config) get-string-all)))
"(load-file \"" (home-emacs-configuration-config-file config) "\")\n"))
`(".emacs.d/early-config.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")
(home-emacs-configuration-early-config-file config)))))
"(load-file \"" (home-emacs-configuration-early-config-file config) "\")\n"))))
(define (home-emacs-profile-service config)
(list (home-emacs-configuration-emacs config)))