diff options
Diffstat (limited to 'deployment/systems/rakan.scm')
| -rw-r--r-- | deployment/systems/rakan.scm | 61 |
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 |