diff options
| -rw-r--r-- | suweren/home/emacs-init.el | 5 | ||||
| -rw-r--r-- | suweren/home/services.scm | 11 |
2 files changed, 13 insertions, 3 deletions
diff --git a/suweren/home/emacs-init.el b/suweren/home/emacs-init.el new file mode 100644 index 0000000..c9080f0 --- /dev/null +++ b/suweren/home/emacs-init.el @@ -0,0 +1,5 @@ +;; This is a DRY expression to load a list of Emacs configuration files. +(mapcar (lambda (file-name) + (let ((file-path (concat "$XDG_CONFIG_HOME/emacs/" file-name))) + (load-file file-path))) + (list "configuration.el")) diff --git a/suweren/home/services.scm b/suweren/home/services.scm index db2e0df..0bd92b1 100644 --- a/suweren/home/services.scm +++ b/suweren/home/services.scm @@ -13,11 +13,16 @@ (bash-profile bash-profile)))) (define-public suweren-home-xdg-configuration-files-extension - (let* ((emacs-init-file (local-file "emacs-configuration.el")) + (let* ((emacs-configuration-file (local-file "emacs-configuration.el")) + (emacs-init-file (local-file "emacs-init.el")) - (emacs-init (list "emacs/init.el" emacs-init-file)) + (emacs-configuration (list "emacs/configuration.el" + emacs-configuration-file)) + (emacs-init (list "emacs/init.el" + emacs-init-file)) - (value (list emacs-init))) + (value (list emacs-configuration + emacs-init))) (simple-service 'suweren-home-xdg-configuration-files home-xdg-configuration-files-service-type value))) |