Aloha Guix Development Team,
Running =guix home search emacs= returns nothing. I also could not find an email using =C-u M-x debbugs-gnu= about an Emacs configuration service.
This is my first email to this mailing address. Please give me pointers on formatting and further improvements.
I have attempted to make an =emacs-home-service-type= so that it is possible to configure Emacs using Guix home. This code is extremely preliminary hence I don't even think it is worth sending as a patch. Also I have never worked on a multi person Git project before and do not know how to solve the keyring error I get when using guix pull. I will outline what my code does and what features I would like to add.
#+BEGIN_SRC scheme
(define* (emacs-configuration-service name #:key (init '()) (early-init '()) (emacs-packages '()))
(service-type (name (symbol-append 'emacs- name '-configuration))
(extensions
(list (service-extension
home-profile-service-type
(lambda (config) emacs-packages))
(service-extension
home-files-service-type
(lambda (config)
(list
`(,(string-append
".config/emacs/services/" (symbol->string name) ".el")
,(scheme-file (string-append (symbol->string name) ".el")
init #:splice? #t))
`(,(string-append
".config/emacs/early-services/" (symbol->string name) ".el")
,(scheme-file (string-append "early-" (symbol->string name) ".el")
early-init #:splice? #t)))))))
(default-value #f)
(description "Configures Emacs init.el")))
(define-public emacs-init-service-type
(service-type (name 'home-emacs)
(extensions
(list (service-extension
home-profile-service-type
(lambda (config) (list emacs-next)))
(service-extension
home-files-service-type
(lambda (config)
(list
`(".config/emacs/early-init.el"
,(scheme-file
"early-init.el"
'((mapc
'load (file-expand-wildcards
"~/.config/emacs/early-services/*.el")))
#:splice? #t))
`(".config/emacs/init.el"
,(scheme-file
"init.el"
'((mapc
'load (file-expand-wildcards
"~/.config/emacs/services/*.el")))
#:splice? #t)))))))
(default-value #f)
(description "Configures Emacs init.el")))
#+END_SRC
I define a general configuration service generator which takes in four things:
1. The =name= of the service
2. The configuration to be ran in =init.el=
3. The configuration to be ran in =early-init.el=
4. The packages in Guix to be added to the =home-profile=.
After giving the =name=, =packages=, and =config.el= files we get a new service type that we can add to our home declaration. This service will then add a file in =~/.config/emacs/services/emacs-{NAME}-configuration.el=. I then have another service that places an =init.el= which loads everything in the service directory.
If we want to install and configure =evil-mode= using this =home-service= we may define the following somewhere.
#+BEGIN_SRC scheme
(define-public emacs-evil-service-type
(emacs-configuration-service
'evil #:emacs-packages (list emacs-evil)
#:init '((evil-mode 1))))
#+END_SRC
Within our =home-environment= we may add the service using:
#+BEGIN_SRC scheme
(home-environment
;; ...Things in the home-environment...
(services
(list
;; ...Other Services...
(service emacs-evil-service-type))))
#+END_SRC
There are some missing features I want to add.
1. Have the =home-emacs-*-service-type= service-types add to the =init.el= directly rather than within a folder to be loaded. I couldn't add two files with the same name to the store. So I have emacs-evil.el in the store to be placed separately later rather than appending to the existing init.el file.
2. Have Emacs update whenever the =home-environment= is updated. Meaning, if I did not add =(service emacs-evil-service-type)= in my =home-environment= then obviously =M-x evil-mode= should not work. But after adding the service then I want =M-x evil-mode= to work without having to restart Emacs. I do not understand the Emacs loading system on Guix well enough to know why it does not work. Skipping all of the =home-service= stuff, running =guix install emacs-evil-mode= then =(guix-emacs-autoload-packages)= does not let emacs know that =evil-mode= is installed. I would need to close Emacs and start Emacs again for Emacs to know about =evil-mode= being installed.
3. Use configurations somehow. I have completely neglected this feature in my system. I do not know what would be useful there.
--