[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#33186] [PATCH 3/7] services: kmscon: Add an auto-login option.
From: |
Mathieu Othacehe |
Subject: |
[bug#33186] [PATCH 3/7] services: kmscon: Add an auto-login option. |
Date: |
Sun, 28 Oct 2018 21:40:39 +0900 |
Add an auto-login option that behaves as the one of mingetty-service.
* gnu/services/base.scm (kmscon-configuration)[auto-login]: New field.
(kmscon-service-type): Pass it to kmscon command.
* doc/guix.texi: Document it.
---
doc/guix.texi | 6 +++++-
gnu/services/base.scm | 9 ++++++++-
2 files changed, 13 insertions(+), 2 deletions(-)
diff --git a/doc/guix.texi b/doc/guix.texi
index 87579d414..c58d7909f 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -31,7 +31,7 @@ Copyright @copyright{} 2016, 2017, 2018 Jan address@hidden
Copyright @copyright{} 2016 Julien address@hidden
Copyright @copyright{} 2016 Alex ter address@hidden
Copyright @copyright{} 2017, 2018 Clément address@hidden
-Copyright @copyright{} 2017 Mathieu address@hidden
+Copyright @copyright{} 2017, 2018 Mathieu address@hidden
Copyright @copyright{} 2017 Federico address@hidden
Copyright @copyright{} 2017, 2018 Carlo address@hidden
Copyright @copyright{} 2017 Thomas address@hidden
@@ -10873,6 +10873,10 @@ A gexp denoting the name of the log-in program. The
default log-in program is
@item @code{login-arguments} (default: @code{'("-p")})
A list of arguments to pass to @command{login}.
address@hidden @code{auto-login} (default: #f)
+When passed a login name, as a string, the specified user will be logged
+in automatically without prompting for their login name or password.
+
@item @code{hardware-acceleration?} (default: #f)
Whether to use hardware acceleration.
diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index 4c341309b..8a8df45a1 100644
--- a/gnu/services/base.scm
+++ b/gnu/services/base.scm
@@ -6,6 +6,7 @@
;;; Copyright © 2016, 2017 Leo Famulari <address@hidden>
;;; Copyright © 2016 David Craven <address@hidden>
;;; Copyright © 2016 Ricardo Wurmus <address@hidden>
+;;; Copyright © 2018 Mathieu Othacehe <address@hidden>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -2040,6 +2041,8 @@ This service is not part of @var{%base-services}."
(default (file-append shadow "/bin/login")))
(login-arguments kmscon-configuration-login-arguments
(default '("-p")))
+ (auto-login kmscon-configuration-auto-login
+ (default #f))
(hardware-acceleration? kmscon-configuration-hardware-acceleration?
(default #f))) ; #t causes failure
@@ -2051,6 +2054,7 @@ This service is not part of @var{%base-services}."
(virtual-terminal (kmscon-configuration-virtual-terminal config))
(login-program (kmscon-configuration-login-program config))
(login-arguments (kmscon-configuration-login-arguments config))
+ (auto-login (kmscon-configuration-auto-login config))
(hardware-acceleration?
(kmscon-configuration-hardware-acceleration? config)))
(define kmscon-command
@@ -2059,7 +2063,10 @@ This service is not part of @var{%base-services}."
"--vt" #$virtual-terminal
"--no-switchvt"
#$@(if hardware-acceleration? '("--hwaccel") '())
- "--" #$login-program address@hidden))
+ "--" #$login-program address@hidden
+ #$@(if auto-login
+ #~(#$auto-login)
+ #~())))
(shepherd-service
(documentation "kmscon virtual terminal")
--
2.17.1
- [bug#33186] [PATCH 0/7] Preliminary installer work, Mathieu Othacehe, 2018/10/28
- [bug#33186] [PATCH 1/7] gnu: Add guile-newt., Mathieu Othacehe, 2018/10/28
- [bug#33186] [PATCH 2/7] services: kmscon: Do not switch to vt at start., Mathieu Othacehe, 2018/10/28
- [bug#33186] [PATCH 3/7] services: kmscon: Add an auto-login option.,
Mathieu Othacehe <=
- [bug#33186] [PATCH 7/7] gnu: python-3.6: Disable congestion test., Mathieu Othacehe, 2018/10/28
- [bug#33186] [PATCH 5/7] gnu: terminals: Change libtsm and kmscon repositories., Mathieu Othacehe, 2018/10/28
- [bug#33186] [PATCH 4/7] gnu: glibc: Export supported locales., Mathieu Othacehe, 2018/10/28
- [bug#33186] [PATCH 6/7] gnu: slang: Use a correct location for terminfo dirs., Mathieu Othacehe, 2018/10/28