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 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'deployment/services')

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