diff options
Diffstat (limited to 'oni/home')
-rw-r--r-- | oni/home/config/rincewind.scm | 5 | ||||
-rw-r--r-- | oni/home/services/emacs.scm | 47 |
2 files changed, 51 insertions, 1 deletions
diff --git a/oni/home/config/rincewind.scm b/oni/home/config/rincewind.scm index c27412f..a18e196 100644 --- a/oni/home/config/rincewind.scm +++ b/oni/home/config/rincewind.scm @@ -88,6 +88,8 @@ home-emacs-eros-service-type home-emacs-ace-link-service-type home-emacs-ace-link-configuration + home-emacs-ace-link-notmuch-service-type + home-emacs-ace-link-notmuch-configuration home-emacs-golden-ratio-service-type home-emacs-pinentry-service-type home-emacs-vterm-service-type @@ -423,6 +425,9 @@ (default-key "C-S-e") (goto-address-key "C-S-e") (org-mode-key "C-S-e"))) + (service home-emacs-ace-link-notmuch-service-type + (home-emacs-ace-link-notmuch-configuration + (default-key "C-S-e"))) (service home-emacs-golden-ratio-service-type) (service home-emacs-pinentry-service-type) (service home-emacs-vterm-service-type diff --git a/oni/home/services/emacs.scm b/oni/home/services/emacs.scm index b7ee6fb..2155b4c 100644 --- a/oni/home/services/emacs.scm +++ b/oni/home/services/emacs.scm @@ -36,7 +36,8 @@ #:select (package?)) #:use-module ((oni packages emacs) #:select (emacs-yasnippet-capf - emacs-golden-ratio)) + emacs-golden-ratio + emacs-ace-link-notmuch)) #:export (home-emacs-service-type home-emacs-configuration @@ -56,6 +57,9 @@ home-emacs-ace-link-service-type home-emacs-ace-link-configuration + home-emacs-ace-link-notmuch-service-type + home-emacs-ace-link-notmuch-configuration + home-emacs-golden-ratio-service-type home-emacs-golden-ratio-configuration @@ -325,6 +329,47 @@ (default-value (home-emacs-ace-link-configuration)) (description "Install and configure emacs-ace-link."))) +;;; Emacs Ace-link notmuch + +(define-configuration/no-serialization home-emacs-ace-link-notmuch-configuration + (package + (package emacs-ace-link-notmuch) + "Package to use for setting emacs-ace-link-notmuch.") + (default-key + (string "o") + "Key to use as the default keybinding.") + (configurations + (text-config '()) + "Configuration for emacs-ace-link-notmuch.")) + +(define (add-emacs-ace-link-notmuch config) + (home-emacs-extension + (configurations + (append + (list (mixed-text-file "ace-link-notmuch-config" + ";;;;; ace-link-notmuch-config starts here.\n" + (format #f "(ace-link-notmuch-setup-default (kbd ~s))~%" + (home-emacs-ace-link-notmuch-configuration-default-key config)) + ";;;;; ace-link-notmuch-config ends here.\n")) + (home-emacs-ace-link-notmuch-configuration-configurations config))))) + +(define (add-emacs-ace-link-notmuch-packages config) + (list (home-emacs-ace-link-notmuch-configuration-package config))) + +(define home-emacs-ace-link-notmuch-service-type + (service-type + (name 'home-emacs-ace-link-notmuch) + (extensions + (list (service-extension + home-emacs-service-type + add-emacs-ace-link-notmuch) + (service-extension + home-profile-service-type + add-emacs-ace-link-notmuch-packages))) + (compose identity) + (default-value (home-emacs-ace-link-notmuch-configuration)) + (description "Install and configure emacs-ace-link-notmuch."))) + ;;; Emacs Golden Ratio (define-configuration/no-serialization home-emacs-golden-ratio-configuration |