diff options
| -rw-r--r-- | deployment/systems/rakan.scm | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/deployment/systems/rakan.scm b/deployment/systems/rakan.scm index 6d2f244..d4de969 100644 --- a/deployment/systems/rakan.scm +++ b/deployment/systems/rakan.scm @@ -2,6 +2,7 @@ ;;; SPDX-FileCopyrightText: 2024-2025 Marek Paśnikowski <marek@marekpasnikowski.pl> (define-module (deployment systems rakan) + #:use-module (guix gexp) #:use-module ( (deployment keys) #:prefix deployment:keys:) #:use-module ( (gnu services) @@ -10,6 +11,8 @@ #:prefix gnu:services:base:) #:use-module ( (gnu services guix) #:prefix gnu:services:guix:) + #:use-module ( (gnu services samba) + #:prefix gnu:services:samba:) #:use-module ( (gnu services ssh) #:prefix gnu:services:ssh:) #:use-module ( (gnu system) @@ -76,6 +79,26 @@ (gnu:services:service gnu:services:base:guix-publish-service-type guix-publish-configuration)) +(define samba-configuration + (gnu:services:samba:samba-configuration + (enable-smbd? #t) + (config-file (mixed-text-file "smb.conf" + "[global]\n" + "map to guest = Bad User\n" + "logging = syslog@1\n" + "\n" + "[public]\n" + "browsable = yes\n" + "path = /tmp/Brother\n" + "read only = no\n" + "guest ok = yes\n" + "guest only = yes\n")))) + +(define samba-service + (gnu:services:service + gnu:services:samba:samba-service-type + samba-configuration)) + (define system (let* ( (l-guix-homes (list users:id1000:name/home-environment)) @@ -94,6 +117,7 @@ guix-offload-authorizations) (gnu:services:service gnu:services:ssh:openssh-service-type) sovereign:packages:protonmail:nogui-profile + samba-service sovereign:systems:%sovereign-services)) (l-swap-devices (list swap)) (l-users (cons* users:id1000:uid1000-account |