rakan: implement home-l2mdtest

1 files changed, 59 insertions, 2 deletions

diff --git a/deployment/systems/rakan.scm b/deployment/systems/rakan.scm
index a442c22..407597e 100644
--- a/deployment/systems/rakan.scm
+++ b/deployment/systems/rakan.scm
@@ -5,6 +5,10 @@
   #:use-module (guix gexp)
   #:use-module ( (deployment keys)
                  #:prefix deployment:keys:)
+  #:use-module ( (gnu home)
+                 #:prefix gnu:home:)
+  #:use-module ( (gnu home services)
+                 #:prefix gnu:home:services:)
   #:use-module ( (gnu services)
                  #:prefix gnu:services:)
   #:use-module ( (gnu services base)
@@ -27,6 +31,8 @@
                  #:prefix nongnu:packages:linux:)
   #:use-module ( (nongnu system linux-initrd)
                  #:prefix nongnu:system:linux-initrd:)
+  #:use-module ( (gnu home-services mail)
+                 #:prefix rde/gnu:home-services:mail:)
   #:use-module ( (sovereign devices)
                  #:prefix sovereign:devices:)
   #:use-module ( (sovereign devices amd64)
@@ -79,6 +85,40 @@
   (gnu:services:service gnu:services:base:guix-publish-service-type
                         guix-publish-configuration))
 
+(define (l2md-maildir name)
+ (string-append "~/Publiczne/l2md/"
+                name))
+
+(define l2md-repo-guix-devel
+ (rde/gnu:home-services:mail:l2md-repo
+  (name           "guix-devel")
+  (urls           "https://yhetil.org/guix-devel/0")
+  (maildir        (l2md-maildir name))
+  (pipe           "")
+  (initial-import 0)
+  (sync-enabled?  #t)))
+
+(define l2md-repo-guix-user
+ (rde/gnu:home-services:mail:l2md-repo
+  (name           "guix-user")
+  (urls           "https://yhetil.org/guix-user/0")
+  (maildir        (l2md-maildir name))
+  (pipe           "")
+  (initial-import 0)
+  (sync-enabled?  #t)))
+
+(define l2md-configuration
+ (rde/gnu:home-services:mail:home-l2md-configuration
+  (autostart? #t)
+  (base       "~/Publiczne/l2md")
+  (repos      (list l2md-repo-guix-devel
+                    l2md-repo-guix-user))))
+
+(define home-l2md
+ (gnu:services:service
+  rde/gnu:home-services:mail:home-l2md-service-type
+  l2md-configuration))
+
 (define samba-configuration
   (gnu:services:samba:samba-configuration
     (enable-smbd? #t)
@@ -89,7 +129,7 @@
                                    "\n"
                                    "[public]\n"
                                    "browsable = yes\n"
-                                   "path = /tmp/Brother\n"
+                                   "path = /tmp\n"
                                    "read only = no\n"
                                    "guest ok = yes\n"
                                    "guest only = yes\n"))))
@@ -99,6 +139,23 @@
     gnu:services:samba:samba-service-type
     samba-configuration))
 
+(define name/home-environment-1000
+  (let
+    ( (name/home-environment- users:id1000:name/home-environment))
+    (let
+      ( (home-environment- (car (cdr name/home-environment-)))
+        (name-             (car name/home-environment-)))
+      (let*
+        ( (services- (gnu:home:home-environment-user-services home-environment-))
+          (packages- (gnu:home:home-environment-packages home-environment-))
+          (home-environment-* (gnu:home:home-environment
+                                (inherit  home-environment-)
+                                (packages packages-)
+                                (services (cons* home-l2md
+                                                 services-)))))
+        (list name-
+              home-environment-*)))))
+
 (define system
   (let
     ( (l-bootloader     (sovereign:devices:amd64:custom-bootloader-configuration system-name))
@@ -106,7 +163,7 @@
                                file-system-efi
                                gnu:system:file-systems:%base-file-systems))
       (l-firmware       (list nongnu:packages:linux:linux-firmware))
-      (l-guix-homes     (list users:id1000:name/home-environment))
+      (l-guix-homes     (list name/home-environment-1000))
       (l-initrd-modules (cons* "mei_me"
                                gnu:system:linux-initrd:%base-initrd-modules))
       (l-offload-auth   (gnu:services:simple-service 'offload-authorizations