From 4f583f39bfcbbf1f950bdff626b5dc42a3feeee1 Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marek@marekpasnikowski.pl>
Date: Thu, 13 Nov 2025 17:37:09 +0100
Subject: rakan: implement a Samba share to accept scans

* deployment/systems/rakan.scm (samba-configuration, samba-service):
  define the configuration records.

* deployment/systems/rakan.scm (system):
  add Samba to the list of services.
---
 deployment/systems/rakan.scm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

(limited to 'deployment/systems/rakan.scm')

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
-- 
cgit v1.2.3