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

Make custom-file a setting in the Emacs configuration

Browse source
This commit is contained in:
Tom Willemse 2024-12-09 11:08:32 -08:00
parent 1c30ed9675
commit 7601d46c2f
2 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
oni/home/config/pop-os.scm
View file

@ -66,8 +66,6 @@
"init.el"
"(with-eval-after-load 'project (require 'oni-project))\n"
"(require 'oni-gui)\n"
"(setq custom-file \"~/.config/emacs/custom.el\")\n"
"(load custom-file :noerror)\n"
"(provide 'init)\n"
";;; init.el ends here\n")))))
(service home-wakatime-service-type

11
oni/home/services/emacs.scm
View file

@ -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