~whereiseveryone/guixrus: feat(home): readd CUSTOM-FILE replacement to HOME-EMACS-SERVICE-TYPE

0b20fef8d54ac60bf31f2dc473f04bd46dea5792 — ( 1 year, 6 months ago 5104909

feat(home): readd CUSTOM-FILE replacement to HOME-EMACS-SERVICE-TYPE

I accidentally removed a feature when I rewrote HOME-EMACS-SERVICE-TYPE.  The
default configuration for setting variables with Custom is to write to the init
file, which of course is read-only under Guix, so this change sets it to use a
new writable '$XDG_CONFIG_HOME/emacs/custom.el' file.

patch browse .tar.gz

1 files changed, 9 insertions(+), 0 deletions(-)

M guixrus/home/services/emacs.scm

M guixrus/home/services/emacs.scm => guixrus/home/services/emacs.scm +9 -0

@@ 143,6 143,15 @@ EMACS-MINIMAL.")
              #~(make-forkexec-constructor
                 (list #$(file-append emacs "/bin/emacs")
                       (string-append "--fg-daemon=" #$server)
+                      "--eval"
+                      (format #f "~s"
+                              `(progn
+                                (setq custom-file
+                                      ,(format #f "~a/emacs/custom.el"
+                                               (or (getenv "XDG_CONFIG_HOME")
+                                                   (format #f "~a/.config"
+                                                           (getenv "HOME")))))
+                                (load custom-file)))
                       #$@(if debug?
                              (list "--debug-init")
                              '()))