From 7601d46c2fef16fe03b4b9c94c228517c34cfc0a Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Mon, 9 Dec 2024 11:08:32 -0800
Subject: Make custom-file a setting in the Emacs configuration

---
 oni/home/services/emacs.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'oni/home/services')

diff --git a/oni/home/services/emacs.scm b/oni/home/services/emacs.scm
index 76856a5..c698301 100644
--- a/oni/home/services/emacs.scm
+++ b/oni/home/services/emacs.scm
@@ -95,6 +95,9 @@
 (define (serialize-list-of-strings field value)
   (string-append "    " (string-join value "\n    ")))
 
+(define (serialize-string field value)
+  "")
+
 ;;; Emacs
 
 (define-configuration/no-serialization home-emacs-extension
@@ -106,6 +109,9 @@
   (package
     (package emacs)
     "Package to use for setting Emacs")
+  (custom-file
+   (string "config.el")
+   "Location of the Custom file where customization settings are stored.")
   (configurations
    (text-config '())
    "A list of other configuration files to autoload"))
@@ -137,7 +143,10 @@
   `((".emacs.d/init.el"
      ,(mixed-text-file
        "init.el"
-       (serialize-text-config config (home-emacs-configuration-configurations config))))))
+       (serialize-text-config config (home-emacs-configuration-configurations config))
+       (format #f "(setq custom-file (expand-file-name ~s user-emacs-directory))~%"
+               (home-emacs-configuration-custom-file config))
+       "(load custom-file :noerror)\n"))))
 
 (define home-emacs-service-type
   (service-type
-- 
cgit v1.3-2-g0d8e