(services nfs): define initial implementation of autofs

1 files changed, 35 insertions, 1 deletions

diff --git a/deployment/services/nfs.scm b/deployment/services/nfs.scm
index fc4838e..863578c 100644
--- a/deployment/services/nfs.scm
+++ b/deployment/services/nfs.scm
@@ -19,10 +19,31 @@
 ;;; If not, see <https://www.gnu.org/licenses/>.
 
 (define-module (deployment services nfs)
-  #:export     (service-nfs-aisaka)
+  #:export     (autofs-aisaka_service
+                autofs-akashi_service
+                nfs-akashi_service
+                service-nfs-aisaka)
   #:use-module (gnu services nfs)
   #:use-module (sovereign services nfs))
 
+(define autofs-indirect-map/mnt_record
+  (autofs-indirect-map
+   (inherit %autofs-indirect-map/mnt_record)
+   (entries (list (autofs-map-entry
+                   (inherit     %autofs-map-entry/nfs_record)
+                   (device      "10.0.0.1:/home/marek/Szablony")
+                   (mount-point "szablony"))))))
+
+(define autofs-aisaka_record
+  (autofs-configuration
+   (inherit %autofs-configuration_record)
+   (mounts  (list autofs-indirect-map/mnt_record))))
+
+(define autofs-akashi_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"
@@ -34,7 +55,20 @@
      (exports (list Export-Dokumenty
                     Export-Szablony)))))
 
+(define nfs-client-akashi
+  (nfs-configuration
+   (inherit %nfs-configuration)))
+
+(define autofs-aisaka_service
+  (autofs_proc autofs-aisaka_record))
+
+(define autofs-akashi_service
+  (autofs_proc autofs-akashi_record))
+
 (define service-nfs-aisaka
   (service-nfs nfs-server-aisaka))
 
+(define nfs-akashi_service
+  (service-nfs nfs-client-akashi))
+
 ;;; EOF