From ff0015ef47203045f1a1154b8d340a4163a94925 Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marek@marekpasnikowski.pl>
Date: Fri, 4 Sep 2026 12:30:47 +0200
Subject: (system rakan): implement automatic mount and unmounting of NFS

---
 deployment/services/nfs.scm | 17 +++++++++++++++++
 deployment/system/rakan.scm |  6 +++++-
 2 files changed, 22 insertions(+), 1 deletion(-)

(limited to 'deployment')

diff --git a/deployment/services/nfs.scm b/deployment/services/nfs.scm
index 6ec23b4..2e9336b 100644
--- a/deployment/services/nfs.scm
+++ b/deployment/services/nfs.scm
@@ -21,7 +21,9 @@
 (define-module (deployment services nfs)
   #:export     (autofs-aisaka_service
                 autofs-akashi_service
+                autofs-rakan_service-record
                 nfs-akashi_service
+                nfs-rakan_service-record
                 service-nfs-aisaka)
   #:use-module (gnu services nfs)
   #:use-module (sovereign services nfs))
@@ -48,6 +50,11 @@
    (inherit %autofs-configuration_record)
    (mounts  (list autofs-indirect-map/mnt_record))))
 
+(define autofs-rakan_configuration-record
+  (autofs-configuration
+   (inherit %autofs-configuration_record)
+   (mounts (list autofs-indirect-map/mnt_record))))
+
 (define nfs-server-aisaka
   (let
       ((Export-Dokumenty (list "/home/marek/Dokumenty"
@@ -63,16 +70,26 @@
   (nfs-configuration
    (inherit %nfs-configuration)))
 
+(define nfs-rakan_service-record
+  (nfs-configuration
+   (inherit %nfs-configuration)))
+
 (define autofs-aisaka_service
   (autofs_proc autofs-aisaka_record))
 
 (define autofs-akashi_service
   (autofs_proc autofs-akashi_record))
 
+(define autofs-rakan_service-record
+  (autofs_proc autofs-rakan_configuration-record))
+
 (define service-nfs-aisaka
   (service-nfs nfs-server-aisaka))
 
 (define nfs-akashi_service
   (service-nfs nfs-client-akashi))
 
+(define nfs-rakan_service-record
+  (service-nfs nfs-rakan_service-record))
+
 ;;; EOF
diff --git a/deployment/system/rakan.scm b/deployment/system/rakan.scm
index faa08c5..8edfa4a 100644
--- a/deployment/system/rakan.scm
+++ b/deployment/system/rakan.scm
@@ -26,6 +26,8 @@
                  #:prefix deployment:gexp:)
   #:use-module ( (deployment services)
                  #:prefix deployment:services:)
+  #:use-module ( (deployment services nfs)
+                 #:prefix deployment:services:nfs:)
   #:use-module ( (deployment services vpn)
                  #:prefix deployment:services:vpn:)
   #:use-module ( (deployment system file-systems)
@@ -278,8 +280,10 @@
    (locale-libcs            gnu:system:locale:%default-locale-libcs)
    (name-service-switch     gnu:system:nss:%default-nss)
    (essential-services      (gnu:system:operating-system-default-essential-services gnu:system:this-operating-system))
-   (services                (cons* guix-home-service
+   (services                (cons* deployment:services:nfs:autofs-rakan_service-record
+                                   guix-home-service
                                    guix-publish-service
+                                   deployment:services:nfs:nfs-rakan_service-record
                                    sovereign:packages:protonmail:nogui-profile
                                    offload-auth
                                    deployment:services:qemu-binfmt_rakan-record
-- 
cgit v1.3