me
/
guix
Archived
1
0
Fork 0
Code

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.
master
Ludovic Courtès 2017-09-12 22:28:43 +02:00
parent 96da5d6296
commit 4e854b1814
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gnu/system/install.scm
View File

@ -215,6 +215,9 @@ You have been warned. Thanks for being so brave.
(auto-login "root") (auto-login "root")
(login-pause? #t)))) (login-pause? #t))))
(define bare-bones-os
(load "examples/bare-bones.tmpl"))
(list (mingetty-service (mingetty-configuration (list (mingetty-service (mingetty-configuration
(tty "tty1") (tty "tty1")
(auto-login "root"))) (auto-login "root")))
@ -284,7 +287,11 @@ You have been warned. Thanks for being so brave.
;; connections to this system to work. ;; connections to this system to work.
(service special-files-service-type (service special-files-service-type
`(("/bin/sh" ,(file-append (canonical-package bash) `(("/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 (define %issue
;; Greeting. ;; Greeting.