summaryrefslogtreecommitdiff
path: root/deployment
diff options
context:
space:
mode:
authorMarek Paśnikowski <marek@marekpasnikowski.pl>2025-11-13 17:37:09 +0100
committerMarek Paśnikowski <marek@marekpasnikowski.pl>2025-11-22 01:43:16 +0100
commit4f583f39bfcbbf1f950bdff626b5dc42a3feeee1 (patch)
treed934fcff2db64bed124b917fc37afab55f11e0e0 /deployment
parenta204342ee72c02958be055029bb27d30d3582c7a (diff)
rakan: implement a Samba share to accept scansHEADtestmaster
* deployment/systems/rakan.scm (samba-configuration, samba-service): define the configuration records. * deployment/systems/rakan.scm (system): add Samba to the list of services.
Diffstat (limited to 'deployment')
-rw-r--r--deployment/systems/rakan.scm24
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