diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-09-12 13:53:21 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-10-10 22:46:14 +0200 |
| commit | 66e4f01c601bfad813011a811796e70f970258f9 (patch) | |
| tree | 7b48b858e0a03edf52a6f572d617655f24dd384f /gnu/system | |
| parent | be1c2c54d9f918f50f71c6d32a72d4498c07504c (diff) | |
| download | gnu-guix-66e4f01c601bfad813011a811796e70f970258f9.tar gnu-guix-66e4f01c601bfad813011a811796e70f970258f9.tar.gz | |
services: mingetty-service: Use <mingetty-configuration> objects.
* gnu/services/base.scm (<mingetty-configuration>): New record type.
(mingetty-service): Expect a single <mingetty-configuration> instead
of keyword arguments.
(%base-services): Adjust accordingly.
* gnu/system/install.scm (installation-services): Likewise.
* doc/guix.texi (Base Services): Adjust accordingly.
Diffstat (limited to 'gnu/system')
| -rw-r--r-- | gnu/system/install.scm | 24 |
1 files changed, 13 insertions, 11 deletions
diff --git a/gnu/system/install.scm b/gnu/system/install.scm index 1ba36c394b..560d64b5d4 100644 --- a/gnu/system/install.scm +++ b/gnu/system/install.scm @@ -242,22 +242,24 @@ it is alpha software, so it may BREAK IN UNEXPECTED WAYS. You have been warned. Thanks for being so brave. "))) (define (normal-tty tty) - (mingetty-service tty - #:motd motd - #:auto-login "root" - #:login-pause? #t)) + (mingetty-service (mingetty-configuration (tty tty) + (motd motd) + (auto-login "root") + (login-pause? #t)))) - (list (mingetty-service "tty1" - #:motd motd - #:auto-login "root") + (list (mingetty-service (mingetty-configuration + (tty "tty1") + (motd motd) + (auto-login "root"))) ;; Documentation. The manual is in UTF-8, but ;; 'console-font-service' sets up Unicode support and loads a font ;; with all the useful glyphs like em dash and quotation marks. - (mingetty-service "tty2" - #:motd motd - #:auto-login "guest" - #:login-program (log-to-info)) + (mingetty-service (mingetty-configuration + (tty "tty2") + (motd motd) + (auto-login "guest") + (login-program (log-to-info)))) ;; Documentation add-on. (configuration-template-service) |