From 5755831bb64b1f6152057b3b5055e9dddc7ecc70 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Sun, 28 Jan 2024 00:39:45 -0800
Subject: Add ‘ace-link-notmuch’ package and configuration

---
 oni/home/services/emacs.scm | 47 ++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 46 insertions(+), 1 deletion(-)

(limited to 'oni/home/services')

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
-- 
cgit v1.2.3-54-g00ecf