amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: mingetty: Rename misnamed accessors.

Browse source 
Rename the accessors to ensure all start with `mingetty-configuration-'
prefix.  Some were named just `mingetty-$FIELD', instead of
`mingetty-configuration-$FIELD'.

The renaming *is* backwards compatible, since in the define-module's #:export
argument the correct (`mingetty-configuration-$FIELD') were used already and
thus the accessors were not accessible.

* gnu/services/base.scm (<mingetty-configuration>): Rename accessors for
auto-login, login-program, login-pause?, clear-on-logout?.

Change-Id: I4557a82498805ade0b341feda9d33eccc305690f
Modified-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
This commit is contained in:
Tomas Volf 2024-12-13 17:27:45 +01:00 • committed by Maxim Cournoyer
parent 7068f6f7a5
commit a64a3a14e8
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 11 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

22
gnu/services/base.scm
View file

@ -1248,26 +1248,26 @@ the tty to run, among other things."
mingetty-configuration?
(mingetty mingetty-configuration-mingetty ;file-like
(default mingetty))
(tty mingetty-configuration-tty) ;string
(auto-login mingetty-auto-login ;string | #f
(tty mingetty-configuration-tty) ;string
(auto-login mingetty-configuration-auto-login ;string | #f
(default #f))
(login-program mingetty-login-program ;gexp
(login-program mingetty-configuration-login-program ;gexp
(default #f))
(login-pause? mingetty-login-pause? ;Boolean
(login-pause? mingetty-configuration-login-pause? ;boolean
(default #f))
(clear-on-logout? mingetty-clear-on-logout? ;Boolean
(clear-on-logout? mingetty-configuration-clear-on-logout? ;boolean
(default #t))
(delay mingetty-configuration-delay ;Integer | #f
(delay mingetty-configuration-delay ;integer | #f
(default #f))
(print-issue mingetty-configuration-print-issue ;Boolean | Symbol
(print-issue mingetty-configuration-print-issue ;boolean | symbol
(default #t))
(print-hostname mingetty-configuration-print-hostname ;Boolean | Symbol
(print-hostname mingetty-configuration-print-hostname ;boolean | symbol
(default #t))
(nice mingetty-configuration-nice ;Integer | #f
(nice mingetty-configuration-nice ;integer | #f
(default #f))
(working-directory mingetty-configuration-working-directory ;String | #f
(working-directory mingetty-configuration-working-directory ;string | #f
(default #f))
(root-directory mingetty-configuration-root-directory ;String | #f
(root-directory mingetty-configuration-root-directory ;string | #f
(default #f)))
(define (mingetty-shepherd-service config)