Add ‘ace-link-notmuch’ package and configuration

This commit is contained in:
Tom Willemse 2024-01-28 00:39:45 -08:00
parent 98dd7c6966
commit 5755831bb6
3 changed files with 75 additions and 1 deletions

View file

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

View file

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

View file

@ -519,3 +519,27 @@ headings, and emulates org-mode navigation and structure editing. It is based on
the built-in outline-minor-mode and is simple by design, providing just a few
key features.")
(license license:gpl3+)))
(define-public emacs-ace-link-notmuch
(let ((commit "fb09673881ef0f7b7ad744c576a19f578df7c51d")
(revision "0"))
(package
(name "emacs-ace-link-notmuch")
(version (git-version "0.0.0" revision commit))
(source
(origin
(uri (git-reference
(url "https://git.sr.ht/~ryuslash/ace-link-notmuch")
(commit commit)))
(method git-fetch)
(sha256
(base32 "1wpdimvwkrbic0hybsp5pqaql066yvl1aar37fr5kcm19gbgvcf6"))
(file-name (git-file-name name version))))
(propagated-inputs
(list emacs-ace-link))
(build-system emacs-build-system)
(synopsis "ace-link functionality for notmuch")
(description
"ace-link functionality for notmuch")
(license license:gpl3+)
(home-page "https://sr.ht/~ryuslash/ace-link-notmuch/"))))