aboutsummaryrefslogtreecommitdiff
path: root/gnu/system/install.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-07-24 22:45:24 +0200
committerLudovic Courtès <ludo@gnu.org>2014-07-24 23:02:27 +0200
commit1dac85663858c8323a0d2483fb675aa5820d4d0e (patch)
treef9455f18fe09495f5af9c34b89187140a4869134 /gnu/system/install.scm
parent0a90af153199b03deced53da7ef7f50f0e561f80 (diff)
downloadguix-1dac85663858c8323a0d2483fb675aa5820d4d0e.tar
guix-1dac85663858c8323a0d2483fb675aa5820d4d0e.tar.gz
install: Add a configuration template to the image.
* gnu/system/os-config.tmpl: New file. * gnu-system.am (GNU_SYSTEM_MODULES): Add it * gnu/system/install.scm (configuration-template-service): New procedure. (installation-services): Call it. * doc/guix.texi (System Installation): Mention configuration-template.scm, and @include gnu/system/os-config.tmpl.
Diffstat (limited to 'gnu/system/install.scm')
-rw-r--r--gnu/system/install.scm24
1 files changed, 24 insertions, 0 deletions
diff --git a/gnu/system/install.scm b/gnu/system/install.scm
index d3539b3f84..567934e4c1 100644
--- a/gnu/system/install.scm
+++ b/gnu/system/install.scm
@@ -115,6 +115,27 @@ the given target.")
(delete-file-recursively
(string-append target #$%backing-directory))))))))
+(define (configuration-template-service)
+ "Return a dummy service whose purpose is to install an operating system
+configuration template file in the installation system."
+
+ (define local-template
+ "/etc/configuration-template.scm")
+ (define template
+ (search-path %load-path "gnu/system/os-config.tmpl"))
+
+ (mlet %store-monad ((template (interned-file template)))
+ (return (service
+ (requirement '(root-file-system))
+ (provision '(os-config-template))
+ (documentation
+ "This dummy service installs an OS configuration template.")
+ (start #~(const #t))
+ (stop #~(const #f))
+ (activate
+ #~(unless (file-exists? #$local-template)
+ (copy-file #$template #$local-template)))))))
+
(define (installation-services)
"Return the list services for the installation image."
(let ((motd (text-file "motd" "
@@ -144,6 +165,9 @@ You have been warned. Thanks for being so brave.
#:auto-login "guest"
#:login-program (log-to-info))
+ ;; Documentation add-on.
+ (configuration-template-service)
+
;; A bunch of 'root' ttys.
(normal-tty "tty3")
(normal-tty "tty4")