~ruther/guix-local

4e854b1814a9216ae7cc90aef4d82fd989a519c3 — Ludovic Courtès 8 years ago 96da5d6
install: Include the whole bare-bones OS in the image.

* gnu/system/install.scm (%installation-services): Load
"example/bare-bones.tmpl".  Add a 'gc-root-service-type' instance.
1 files changed, 8 insertions(+), 1 deletions(-)

M gnu/system/install.scm
M gnu/system/install.scm => gnu/system/install.scm +8 -1
@@ 215,6 215,9 @@ You have been warned.  Thanks for being so brave.
                                                (auto-login "root")
                                                (login-pause? #t))))

    (define bare-bones-os
      (load "examples/bare-bones.tmpl"))

    (list (mingetty-service (mingetty-configuration
                             (tty "tty1")
                             (auto-login "root")))


@@ 284,7 287,11 @@ You have been warned.  Thanks for being so brave.
          ;; connections to this system to work.
          (service special-files-service-type
                   `(("/bin/sh" ,(file-append (canonical-package bash)
                                              "/bin/sh")))))))
                                              "/bin/sh"))))

          ;; Keep a reference to BARE-BONES-OS to make sure it can be
          ;; installed without downloading/building anything.
          (service gc-root-service-type (list bare-bones-os)))))

(define %issue
  ;; Greeting.