diff options
| author | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2026-08-11 18:17:14 +0200 |
|---|---|---|
| committer | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2026-08-14 17:06:07 +0200 |
| commit | ff9395ed7c3c30a290850b3f3b773e734ebaf672 (patch) | |
| tree | 58df5f55501aabb6aaf8ad626f809076394f8bc6 | |
| parent | 399a334b13fabdfa9e1450ca7ae185f38cfd9d80 (diff) | |
(services nfs): define initial implementation of autofs
| -rw-r--r-- | deployment/services/nfs.scm | 36 | ||||
| -rw-r--r-- | deployment/system/akashi.scm | 4 |
2 files changed, 39 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 diff --git a/deployment/system/akashi.scm b/deployment/system/akashi.scm index e3cb5e0..4e2bb24 100644 --- a/deployment/system/akashi.scm +++ b/deployment/system/akashi.scm @@ -26,6 +26,8 @@ #:use-module (users id1000) #:use-module ((deployment gexp) #:prefix deployment:gexp:) + #:use-module ((deployment services nfs) + #:prefix deployment:services:nfs:) #:use-module ((deployment services vpn) #:prefix deployment:services:vpn:) #:use-module ((deployment system file-systems) @@ -142,6 +144,8 @@ (essential-services (gnu:system:operating-system-default-essential-services gnu:system:this-operating-system)) (services (cons* guix-home offload-extension + deployment:services:nfs:nfs-akashi_service + deployment:services:nfs:autofs-akashi_service deployment:services:vpn:wireguard-service-akashi sovereign:systems:%sovereign-services)) (pam-services (gnu:system:pam:base-pam-services)) |