Add start of mbsync service

1 files changed, 34 insertions, 0 deletions

diff --git a/oni/home/services/mail.scm b/oni/home/services/mail.scm
new file mode 100644
index 0000000..10915bb
--- /dev/null
+++ b/oni/home/services/mail.scm
@@ -0,0 +1,34 @@
+(define-module (oni home services mail)
+  #:use-module ((gnu home services)
+                #:select (service-type
+                          service-extension
+                          home-profile-service-type))
+  #:use-module ((gnu packages mail)
+                #:select (isync))
+  #:use-module ((gnu services configuration)
+                #:select (serialize-package
+                         define-configuration))
+  #:use-module ((guix packages)
+                #:select (package?))
+
+  #:export (home-mbsync-service-type
+            home-mbsync-configuration))
+
+(define-configuration home-mbsync-configuration
+  (package
+    (package isync)
+    "Package to use for setting up mbsync"))
+
+(define (add-mbsync-packages config)
+  (list (home-mbsync-configuration-package config)))
+
+(define home-mbsync-service-type
+  (service-type
+   (name 'home-mbsync)
+   (extensions
+    (list (service-extension
+           home-profile-service-type
+           add-mbsync-packages)))
+   (compose 'identity)
+   (default-value (home-mbsync-configuration))
+   (description "Install and configure mbsync.")))