diff options
| author | Simon Streit <simon@netpanic.org> | 2021-11-22 11:04:41 +0100 |
|---|---|---|
| committer | Simon Streit <simon@netpanic.org> | 2021-11-22 11:04:41 +0100 |
| commit | 85c564fb056ce23eb04328b410c86db91a51207d (patch) | |
| tree | 5035143b7a360d87895e89f354e7cc9367eea931 | |
| parent | 4cd156e85a1229b9f57847227a723905adf6feaf (diff) | |
services: samba
Add `config-sections'.
| -rw-r--r-- | siguix/services/samba.scm | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/siguix/services/samba.scm b/siguix/services/samba.scm index 4aed53d..a71fa86 100644 --- a/siguix/services/samba.scm +++ b/siguix/services/samba.scm @@ -66,6 +66,7 @@ samba-configuration-wins-server samba-configuration-wins-proxy? samba-configuration-dns-proxy? + samba-configuration-config-sections ;; temp! samba-configuration-default-config-file @@ -157,9 +158,8 @@ (default #f)) (dns-proxy? samba-configuration-dns-proxy? (default #f)) - ;; ( samba-configuration- - ;; (default )) - ) + (config-sections samba-configuration-config-sections + (default #f))) (define (samba-configuration-config-file global-extra-config workgroup @@ -178,7 +178,8 @@ wins-support? wins-server wins-proxy? - dns-proxy?) + dns-proxy? + config-sections) (mixed-text-file "smb.conf" "# Generated by samba-service. @@ -216,7 +217,10 @@ (if global-extra-config (string-append "\n#Extra options provided by ‘global-extra-config’:\n" - global-extra-config "\n") ""))) + global-extra-config "\n") "") +(if config-sections + (string-append "\n#Contents of ‘config-sections’:\n" + config-sections "\n") ""))) (define samba-activation (match-lambda @@ -242,7 +246,7 @@ wins-server wins-proxy? dns-proxy? - ) + config-sections) (with-imported-modules '((guix build utils)) (let ((config-file (or config-file @@ -263,7 +267,8 @@ wins-support? wins-server wins-proxy? - dns-proxy?))) + dns-proxy? + config-sections))) (lib-directory "/var/lib/samba") (log-directory "/var/log/samba") (run-directory "/var/run/samba") |