1 files changed, 51 insertions, 3 deletions

diff --git a/oni/home/services/emacs.scm b/oni/home/services/emacs.scm
index 137da8a..6d05821 100644
--- a/oni/home/services/emacs.scm
+++ b/oni/home/services/emacs.scm
@@ -2,10 +2,13 @@
   #:use-module ((gnu services configuration)
                 #:select (serialize-package
                           define-configuration
+                          define-configuration/no-serialization
                           text-config?
                           serialize-text-config))
   #:use-module ((gnu packages emacs)
                 #:select (emacs))
+  #:use-module ((gnu packages emacs-xyz)
+                #:select (emacs-helpful))
   #:use-module ((gnu home services)
                 #:select (service-type
                           service-extension
@@ -23,12 +26,20 @@
                 #:select (package?))
 
   #:export (home-emacs-service-type
-            home-emacs-configuration))
+            home-emacs-configuration
+
+            home-emacs-helpful-service-type
+            home-emacs-helpful-configuration))
+
+(define-configuration/no-serialization home-emacs-extension
+  (configurations
+   (text-config '())
+   "The configuration for the extension."))
 
 (define-configuration home-emacs-configuration
   (package
-   (package emacs)
-   "Package to use for setting Emacs")
+    (package emacs)
+    "Package to use for setting Emacs")
   (configurations
    (text-config '())
    "A list of other configuration files to autoload"))
@@ -36,6 +47,13 @@
 (define (add-emacs-packages config)
   (list (home-emacs-configuration-package config)))
 
+(define (home-emacs-extensions original-config extension-configs)
+  (home-emacs-configuration
+   (inherit original-config)
+   (configurations
+    (apply append (home-emacs-configuration-configurations original-config)
+           (map home-emacs-extension-configurations extension-configs)))))
+
 (define (home-emacs-shepherd-service config)
   (list
    (shepherd-service
@@ -69,5 +87,35 @@
            home-files-service-type
            home-emacs-config-files)))
    (compose identity)
+   (extend home-emacs-extensions)
    (default-value (home-emacs-configuration))
    (description "Install and configure Emacs.")))
+
+(define-configuration/no-serialization home-emacs-helpful-configuration
+  (package
+    (package emacs-helpful)
+    "Package to use for setting emacs-helpful.")
+  (configurations
+   (text-config '())
+   "Configuration for emacs-helpful."))
+
+(define (add-emacs-helpful config)
+  (home-emacs-extension
+   (configurations (home-emacs-helpful-configuration-configurations config))))
+
+(define (add-emacs-helpful-packages config)
+  (list (home-emacs-helpful-configuration-package config)))
+
+(define home-emacs-helpful-service-type
+  (service-type
+   (name 'home-emacs-helpful)
+   (extensions
+    (list (service-extension
+           home-emacs-service-type
+           add-emacs-helpful)
+          (service-extension
+           home-profile-service-type
+           add-emacs-helpful-packages)))
+   (compose identity)
+   (default-value (home-emacs-helpful-configuration))
+   (description "Install and configure emacs-helpful.")))