mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2025-01-26 20:49:29 -05:00
services: Remove deprecated service procedures.
These service procedures were deprecated in January 2019, for instance
in commit 65a67bf711.
* gnu/services/avahi.scm (avahi-service): Remove.
* gnu/services/base.scm (console-keymap, guix-service)
(guix-publish-service, gpm-service, urandom-seed-service): Remove.
* gnu/services/desktop.scm (upower-service, colord-service): Remove.
* gnu/services/mcron.scm (mcron-service): Remove.
* gnu/services/messaging.scm (bitlbee-service): Remove.
* gnu/services/networking.scm (dhcp-client-service, ntp-service)
(tor-service): Remove.
* gnu/services/xorg.scm (slim-service, gdm-service): Remove.
This commit is contained in:
Ludovic Courtès
parent
73622e613b
commit
f70c3429ed
7 changed files with 1 additions and 273 deletions
|
|
@ -40,7 +40,6 @@ (define-module (gnu services avahi)
|
||||||
avahi-configuration-wide-area?
|
avahi-configuration-wide-area?
|
||||||
avahi-configuration-domains-to-browse
|
avahi-configuration-domains-to-browse
|
||||||
|
|
||||||
avahi-service
|
|
||||||
avahi-service-type))
|
avahi-service-type))
|
||||||
|
|
||||||
;;; Commentary:
|
;;; Commentary:
|
||||||
|
|
@ -166,38 +165,4 @@ (define avahi-service-type
|
||||||
avahi-package)))
|
avahi-package)))
|
||||||
(default-value (avahi-configuration)))))
|
(default-value (avahi-configuration)))))
|
||||||
|
|
||||||
(define-deprecated (avahi-service #:key (avahi avahi) debug?
|
|
||||||
host-name
|
|
||||||
(publish? #t)
|
|
||||||
(ipv4? #t) (ipv6? #t)
|
|
||||||
wide-area?
|
|
||||||
(domains-to-browse '()))
|
|
||||||
avahi-service-type
|
|
||||||
"Return a service that runs @command{avahi-daemon}, a system-wide
|
|
||||||
mDNS/DNS-SD responder that allows for service discovery and
|
|
||||||
\"zero-configuration\" host name lookups (see @uref{https://avahi.org/}), and
|
|
||||||
extends the name service cache daemon (nscd) so that it can resolve
|
|
||||||
@code{.local} host names using
|
|
||||||
@uref{http://0pointer.de/lennart/projects/nss-mdns/, nss-mdns}. Additionally,
|
|
||||||
add the @var{avahi} package to the system profile so that commands such as
|
|
||||||
@command{avahi-browse} are directly usable.
|
|
||||||
|
|
||||||
If @var{host-name} is different from @code{#f}, use that as the host name to
|
|
||||||
publish for this machine; otherwise, use the machine's actual host name.
|
|
||||||
|
|
||||||
When @var{publish?} is true, publishing of host names and services is allowed;
|
|
||||||
in particular, avahi-daemon will publish the machine's host name and IP
|
|
||||||
address via mDNS on the local network.
|
|
||||||
|
|
||||||
When @var{wide-area?} is true, DNS-SD over unicast DNS is enabled.
|
|
||||||
|
|
||||||
Boolean values @var{ipv4?} and @var{ipv6?} determine whether to use IPv4/IPv6
|
|
||||||
sockets."
|
|
||||||
(service avahi-service-type
|
|
||||||
(avahi-configuration
|
|
||||||
(avahi avahi) (debug? debug?) (host-name host-name)
|
|
||||||
(publish? publish?) (ipv4? ipv4?) (ipv6? ipv6?)
|
|
||||||
(wide-area? wide-area?)
|
|
||||||
(domains-to-browse domains-to-browse))))
|
|
||||||
|
|
||||||
;;; avahi.scm ends here
|
;;; avahi.scm ends here
|
||||||
|
|
|
||||||
|
|
@ -71,7 +71,6 @@ (define-module (gnu services base)
|
||||||
file-system-service-type
|
file-system-service-type
|
||||||
swap-service
|
swap-service
|
||||||
host-name-service
|
host-name-service
|
||||||
console-keymap-service
|
|
||||||
%default-console-font
|
%default-console-font
|
||||||
console-font-service-type
|
console-font-service-type
|
||||||
console-font-service
|
console-font-service
|
||||||
|
|
@ -151,7 +150,6 @@ (define-module (gnu services base)
|
||||||
guix-configuration-extra-options
|
guix-configuration-extra-options
|
||||||
guix-configuration-log-file
|
guix-configuration-log-file
|
||||||
|
|
||||||
guix-service
|
|
||||||
guix-service-type
|
guix-service-type
|
||||||
guix-publish-configuration
|
guix-publish-configuration
|
||||||
guix-publish-configuration?
|
guix-publish-configuration?
|
||||||
|
|
@ -163,16 +161,13 @@ (define-module (gnu services base)
|
||||||
guix-publish-configuration-nar-path
|
guix-publish-configuration-nar-path
|
||||||
guix-publish-configuration-cache
|
guix-publish-configuration-cache
|
||||||
guix-publish-configuration-ttl
|
guix-publish-configuration-ttl
|
||||||
guix-publish-service
|
|
||||||
guix-publish-service-type
|
guix-publish-service-type
|
||||||
|
|
||||||
gpm-configuration
|
gpm-configuration
|
||||||
gpm-configuration?
|
gpm-configuration?
|
||||||
gpm-service-type
|
gpm-service-type
|
||||||
gpm-service
|
|
||||||
|
|
||||||
urandom-seed-service-type
|
urandom-seed-service-type
|
||||||
urandom-seed-service
|
|
||||||
|
|
||||||
rngd-configuration
|
rngd-configuration
|
||||||
rngd-configuration?
|
rngd-configuration?
|
||||||
|
|
@ -543,10 +538,6 @@ (define urandom-seed-service-type
|
||||||
generator (RNG) with the value recorded when the system was last shut
|
generator (RNG) with the value recorded when the system was last shut
|
||||||
down.")))
|
down.")))
|
||||||
|
|
||||||
(define-deprecated (urandom-seed-service)
|
|
||||||
urandom-seed-service-type
|
|
||||||
(service urandom-seed-service-type))
|
|
||||||
|
|
||||||
|
|
||||||
;;;
|
;;;
|
||||||
;;; Add hardware random number generator to entropy pool.
|
;;; Add hardware random number generator to entropy pool.
|
||||||
|
|
@ -651,11 +642,6 @@ (define console-keymap-service-type
|
||||||
@code{keyboard-layout} field of @code{operating-system}.} Load the given list
|
@code{keyboard-layout} field of @code{operating-system}.} Load the given list
|
||||||
of console keymaps with @command{loadkeys}.")))
|
of console keymaps with @command{loadkeys}.")))
|
||||||
|
|
||||||
(define-deprecated (console-keymap-service #:rest files)
|
|
||||||
#f
|
|
||||||
"Return a service to load console keymaps from @var{files}."
|
|
||||||
(service console-keymap-service-type files))
|
|
||||||
|
|
||||||
(define %default-console-font
|
(define %default-console-font
|
||||||
;; Note: 'LatGrkCyr-8x16' has the advantage of providing three common
|
;; Note: 'LatGrkCyr-8x16' has the advantage of providing three common
|
||||||
;; scripts as well as glyphs for em dash, quotation marks, and other Unicode
|
;; scripts as well as glyphs for em dash, quotation marks, and other Unicode
|
||||||
|
|
@ -1770,13 +1756,6 @@ (define guix-service-type
|
||||||
(description
|
(description
|
||||||
"Run the build daemon of GNU@tie{}Guix, aka. @command{guix-daemon}.")))
|
"Run the build daemon of GNU@tie{}Guix, aka. @command{guix-daemon}.")))
|
||||||
|
|
||||||
(define-deprecated (guix-service #:optional
|
|
||||||
(config %default-guix-configuration))
|
|
||||||
guix-service-type
|
|
||||||
"Return a service that runs the Guix build daemon according to
|
|
||||||
@var{config}."
|
|
||||||
(service guix-service-type config))
|
|
||||||
|
|
||||||
|
|
||||||
(define-record-type* <guix-publish-configuration>
|
(define-record-type* <guix-publish-configuration>
|
||||||
guix-publish-configuration make-guix-publish-configuration
|
guix-publish-configuration make-guix-publish-configuration
|
||||||
|
|
@ -1928,19 +1907,6 @@ (define guix-publish-service-type
|
||||||
"Add a Shepherd service running @command{guix publish}, a
|
"Add a Shepherd service running @command{guix publish}, a
|
||||||
command that allows you to share pre-built binaries with others over HTTP.")))
|
command that allows you to share pre-built binaries with others over HTTP.")))
|
||||||
|
|
||||||
(define-deprecated (guix-publish-service #:key (guix guix)
|
|
||||||
(port 80) (host "localhost"))
|
|
||||||
guix-publish-service-type
|
|
||||||
"Return a service that runs @command{guix publish} listening on @var{host}
|
|
||||||
and @var{port} (@pxref{Invoking guix publish}).
|
|
||||||
|
|
||||||
This assumes that @file{/etc/guix} already contains a signing key pair as
|
|
||||||
created by @command{guix archive --generate-key} (@pxref{Invoking guix
|
|
||||||
archive}). If that is not the case, the service will fail to start."
|
|
||||||
;; Deprecated.
|
|
||||||
(service guix-publish-service-type
|
|
||||||
(guix-publish-configuration (guix guix) (port port) (host host))))
|
|
||||||
|
|
||||||
|
|
||||||
;;;
|
;;;
|
||||||
;;; Udev.
|
;;; Udev.
|
||||||
|
|
@ -2282,19 +2248,6 @@ (define gpm-service-type
|
||||||
notably to select, copy, and paste text. The default options use the
|
notably to select, copy, and paste text. The default options use the
|
||||||
@code{ps2} protocol, which works for both USB and PS/2 mice.")))
|
@code{ps2} protocol, which works for both USB and PS/2 mice.")))
|
||||||
|
|
||||||
(define-deprecated (gpm-service #:key (gpm gpm)
|
|
||||||
(options %default-gpm-options))
|
|
||||||
gpm-service-type
|
|
||||||
"Run @var{gpm}, the general-purpose mouse daemon, with the given
|
|
||||||
command-line @var{options}. GPM allows users to use the mouse in the console,
|
|
||||||
notably to select, copy, and paste text. The default value of @var{options}
|
|
||||||
uses the @code{ps2} protocol, which works for both USB and PS/2 mice.
|
|
||||||
|
|
||||||
This service is not part of @var{%base-services}."
|
|
||||||
;; To test in QEMU, use "-usbdevice mouse" and then, in the monitor, use
|
|
||||||
;; "info mice" and "mouse_set X" to use the right mouse.
|
|
||||||
(service gpm-service-type
|
|
||||||
(gpm-configuration (gpm gpm) (options options))))
|
|
||||||
|
|
||||||
(define-record-type* <kmscon-configuration>
|
(define-record-type* <kmscon-configuration>
|
||||||
kmscon-configuration make-kmscon-configuration
|
kmscon-configuration make-kmscon-configuration
|
||||||
|
|
|
||||||
|
|
@ -82,7 +82,6 @@ (define-module (gnu services desktop)
|
||||||
upower-configuration-time-action
|
upower-configuration-time-action
|
||||||
upower-configuration-critical-power-action
|
upower-configuration-critical-power-action
|
||||||
|
|
||||||
upower-service
|
|
||||||
upower-service-type
|
upower-service-type
|
||||||
|
|
||||||
udisks-configuration
|
udisks-configuration
|
||||||
|
|
@ -91,7 +90,6 @@ (define-module (gnu services desktop)
|
||||||
udisks-service-type
|
udisks-service-type
|
||||||
|
|
||||||
colord-service-type
|
colord-service-type
|
||||||
colord-service
|
|
||||||
|
|
||||||
geoclue-application
|
geoclue-application
|
||||||
geoclue-configuration
|
geoclue-configuration
|
||||||
|
|
@ -285,37 +283,6 @@ (define upower-service-type
|
||||||
upower-package)))
|
upower-package)))
|
||||||
(default-value (upower-configuration)))))
|
(default-value (upower-configuration)))))
|
||||||
|
|
||||||
(define-deprecated (upower-service #:key (upower upower)
|
|
||||||
(watts-up-pro? #f)
|
|
||||||
(poll-batteries? #t)
|
|
||||||
(ignore-lid? #f)
|
|
||||||
(use-percentage-for-policy? #f)
|
|
||||||
(percentage-low 10)
|
|
||||||
(percentage-critical 3)
|
|
||||||
(percentage-action 2)
|
|
||||||
(time-low 1200)
|
|
||||||
(time-critical 300)
|
|
||||||
(time-action 120)
|
|
||||||
(critical-power-action 'hybrid-sleep))
|
|
||||||
upower-service-type
|
|
||||||
"Return a service that runs @uref{http://upower.freedesktop.org/,
|
|
||||||
@command{upowerd}}, a system-wide monitor for power consumption and battery
|
|
||||||
levels, with the given configuration settings. It implements the
|
|
||||||
@code{org.freedesktop.UPower} D-Bus interface, and is notably used by GNOME."
|
|
||||||
(let ((config (upower-configuration
|
|
||||||
(watts-up-pro? watts-up-pro?)
|
|
||||||
(poll-batteries? poll-batteries?)
|
|
||||||
(ignore-lid? ignore-lid?)
|
|
||||||
(use-percentage-for-policy? use-percentage-for-policy?)
|
|
||||||
(percentage-low percentage-low)
|
|
||||||
(percentage-critical percentage-critical)
|
|
||||||
(percentage-action percentage-action)
|
|
||||||
(time-low time-low)
|
|
||||||
(time-critical time-critical)
|
|
||||||
(time-action time-action)
|
|
||||||
(critical-power-action critical-power-action))))
|
|
||||||
(service upower-service-type config)))
|
|
||||||
|
|
||||||
|
|
||||||
;;;
|
;;;
|
||||||
;;; GeoClue D-Bus service.
|
;;; GeoClue D-Bus service.
|
||||||
|
|
@ -540,15 +507,6 @@ (define colord-service-type
|
||||||
interface to manage the color profiles of input and output devices such as
|
interface to manage the color profiles of input and output devices such as
|
||||||
screens and scanners.")))
|
screens and scanners.")))
|
||||||
|
|
||||||
(define-deprecated (colord-service #:key (colord colord))
|
|
||||||
colord-service-type
|
|
||||||
"Return a service that runs @command{colord}, a system service with a D-Bus
|
|
||||||
interface to manage the color profiles of input and output devices such as
|
|
||||||
screens and scanners. It is notably used by the GNOME Color Manager graphical
|
|
||||||
tool. See @uref{http://www.freedesktop.org/software/colord/, the colord web
|
|
||||||
site} for more information."
|
|
||||||
(service colord-service-type colord))
|
|
||||||
|
|
||||||
|
|
||||||
;;;
|
;;;
|
||||||
;;; UDisks.
|
;;; UDisks.
|
||||||
|
|
|
||||||
|
|
@ -31,8 +31,7 @@ (define-module (gnu services mcron)
|
||||||
mcron-configuration-mcron
|
mcron-configuration-mcron
|
||||||
mcron-configuration-jobs
|
mcron-configuration-jobs
|
||||||
|
|
||||||
mcron-service-type
|
mcron-service-type))
|
||||||
mcron-service))
|
|
||||||
|
|
||||||
;;; Commentary:
|
;;; Commentary:
|
||||||
;;;
|
;;;
|
||||||
|
|
@ -173,18 +172,4 @@ (define mcron-service-type
|
||||||
jobs)))))
|
jobs)))))
|
||||||
(default-value (mcron-configuration)))) ;empty job list
|
(default-value (mcron-configuration)))) ;empty job list
|
||||||
|
|
||||||
(define-deprecated (mcron-service jobs #:optional (mcron mcron))
|
|
||||||
mcron-service-type
|
|
||||||
"Return an mcron service running @var{mcron} that schedules @var{jobs}, a
|
|
||||||
list of gexps denoting mcron job specifications.
|
|
||||||
|
|
||||||
This is a shorthand for:
|
|
||||||
@example
|
|
||||||
(service mcron-service-type
|
|
||||||
(mcron-configuration (mcron mcron) (jobs jobs)))
|
|
||||||
@end example
|
|
||||||
"
|
|
||||||
(service mcron-service-type
|
|
||||||
(mcron-configuration (mcron mcron) (jobs jobs))))
|
|
||||||
|
|
||||||
;;; mcron.scm ends here
|
;;; mcron.scm ends here
|
||||||
|
|
|
||||||
|
|
@ -52,7 +52,6 @@ (define-module (gnu services messaging)
|
||||||
|
|
||||||
bitlbee-configuration
|
bitlbee-configuration
|
||||||
bitlbee-configuration?
|
bitlbee-configuration?
|
||||||
bitlbee-service
|
|
||||||
bitlbee-service-type
|
bitlbee-service-type
|
||||||
|
|
||||||
quassel-configuration
|
quassel-configuration
|
||||||
|
|
@ -889,26 +888,6 @@ (define bitlbee-service-type
|
||||||
"Run @url{http://bitlbee.org,BitlBee}, a daemon that acts as
|
"Run @url{http://bitlbee.org,BitlBee}, a daemon that acts as
|
||||||
a gateway between IRC and chat networks.")))
|
a gateway between IRC and chat networks.")))
|
||||||
|
|
||||||
(define-deprecated (bitlbee-service #:key (bitlbee bitlbee)
|
|
||||||
(interface "127.0.0.1") (port 6667)
|
|
||||||
(extra-settings ""))
|
|
||||||
bitlbee-service-type
|
|
||||||
"Return a service that runs @url{http://bitlbee.org,BitlBee}, a daemon that
|
|
||||||
acts as a gateway between IRC and chat networks.
|
|
||||||
|
|
||||||
The daemon will listen to the interface corresponding to the IP address
|
|
||||||
specified in @var{interface}, on @var{port}. @code{127.0.0.1} means that only
|
|
||||||
local clients can connect, whereas @code{0.0.0.0} means that connections can
|
|
||||||
come from any networking interface.
|
|
||||||
|
|
||||||
In addition, @var{extra-settings} specifies a string to append to the
|
|
||||||
configuration file."
|
|
||||||
(service bitlbee-service-type
|
|
||||||
(bitlbee-configuration
|
|
||||||
(bitlbee bitlbee)
|
|
||||||
(interface interface) (port port)
|
|
||||||
(extra-settings extra-settings))))
|
|
||||||
|
|
||||||
|
|
||||||
;;;
|
;;;
|
||||||
;;; Quassel.
|
;;; Quassel.
|
||||||
|
|
|
||||||
|
|
@ -73,7 +73,6 @@ (define-module (gnu services networking)
|
||||||
#:re-export (static-networking-service
|
#:re-export (static-networking-service
|
||||||
static-networking-service-type)
|
static-networking-service-type)
|
||||||
#:export (%facebook-host-aliases
|
#:export (%facebook-host-aliases
|
||||||
dhcp-client-service
|
|
||||||
dhcp-client-service-type
|
dhcp-client-service-type
|
||||||
|
|
||||||
dhcpd-service-type
|
dhcpd-service-type
|
||||||
|
|
@ -99,7 +98,6 @@ (define-module (gnu services networking)
|
||||||
ntp-server-address
|
ntp-server-address
|
||||||
ntp-server-options
|
ntp-server-options
|
||||||
|
|
||||||
ntp-service
|
|
||||||
ntp-service-type
|
ntp-service-type
|
||||||
|
|
||||||
%openntpd-servers
|
%openntpd-servers
|
||||||
|
|
@ -126,7 +124,6 @@ (define-module (gnu services networking)
|
||||||
tor-configuration
|
tor-configuration
|
||||||
tor-configuration?
|
tor-configuration?
|
||||||
tor-hidden-service
|
tor-hidden-service
|
||||||
tor-service
|
|
||||||
tor-service-type
|
tor-service-type
|
||||||
|
|
||||||
wicd-service-type
|
wicd-service-type
|
||||||
|
|
@ -310,12 +307,6 @@ (define ifaces
|
||||||
(description "Run @command{dhcp}, a Dynamic Host Configuration
|
(description "Run @command{dhcp}, a Dynamic Host Configuration
|
||||||
Protocol (DHCP) client, on all the non-loopback network interfaces.")))
|
Protocol (DHCP) client, on all the non-loopback network interfaces.")))
|
||||||
|
|
||||||
(define-deprecated (dhcp-client-service #:key (dhcp isc-dhcp))
|
|
||||||
dhcp-client-service-type
|
|
||||||
"Return a service that runs @var{dhcp}, a Dynamic Host Configuration
|
|
||||||
Protocol (DHCP) client, on all the non-loopback network interfaces."
|
|
||||||
(service dhcp-client-service-type dhcp))
|
|
||||||
|
|
||||||
(define-record-type* <dhcpd-configuration>
|
(define-record-type* <dhcpd-configuration>
|
||||||
dhcpd-configuration make-dhcpd-configuration
|
dhcpd-configuration make-dhcpd-configuration
|
||||||
dhcpd-configuration?
|
dhcpd-configuration?
|
||||||
|
|
@ -541,21 +532,6 @@ (define ntp-service-type
|
||||||
will keep the system clock synchronized with that of the given servers.")
|
will keep the system clock synchronized with that of the given servers.")
|
||||||
(default-value (ntp-configuration))))
|
(default-value (ntp-configuration))))
|
||||||
|
|
||||||
(define-deprecated (ntp-service #:key (ntp ntp)
|
|
||||||
(servers %ntp-servers)
|
|
||||||
allow-large-adjustment?)
|
|
||||||
ntp-service-type
|
|
||||||
"Return a service that runs the daemon from @var{ntp}, the
|
|
||||||
@uref{http://www.ntp.org, Network Time Protocol package}. The daemon will
|
|
||||||
keep the system clock synchronized with that of @var{servers}.
|
|
||||||
@var{allow-large-adjustment?} determines whether @command{ntpd} is allowed to
|
|
||||||
make an initial adjustment of more than 1,000 seconds."
|
|
||||||
(service ntp-service-type
|
|
||||||
(ntp-configuration (ntp ntp)
|
|
||||||
(servers servers)
|
|
||||||
(allow-large-adjustment?
|
|
||||||
allow-large-adjustment?))))
|
|
||||||
|
|
||||||
|
|
||||||
;;;
|
;;;
|
||||||
;;; OpenNTPD.
|
;;; OpenNTPD.
|
||||||
|
|
@ -1059,21 +1035,6 @@ (define tor-service-type
|
||||||
"Run the @uref{https://torproject.org, Tor} anonymous
|
"Run the @uref{https://torproject.org, Tor} anonymous
|
||||||
networking daemon.")))
|
networking daemon.")))
|
||||||
|
|
||||||
(define-deprecated (tor-service #:optional
|
|
||||||
(config-file (plain-file "empty" ""))
|
|
||||||
#:key (tor tor))
|
|
||||||
tor-service-type
|
|
||||||
"Return a service to run the @uref{https://torproject.org, Tor} anonymous
|
|
||||||
networking daemon.
|
|
||||||
|
|
||||||
The daemon runs as the @code{tor} unprivileged user. It is passed
|
|
||||||
@var{config-file}, a file-like object, with an additional @code{User tor} line
|
|
||||||
and lines for hidden services added via @code{tor-hidden-service}. Run
|
|
||||||
@command{man tor} for information about the configuration file."
|
|
||||||
(service tor-service-type
|
|
||||||
(tor-configuration (tor tor)
|
|
||||||
(config-file config-file))))
|
|
||||||
|
|
||||||
(define tor-hidden-service-type
|
(define tor-hidden-service-type
|
||||||
;; A type that extends Tor with hidden services.
|
;; A type that extends Tor with hidden services.
|
||||||
(service-type (name 'tor-hidden-service)
|
(service-type (name 'tor-hidden-service)
|
||||||
|
|
|
||||||
|
|
@ -95,7 +95,6 @@ (define-module (gnu services xorg)
|
||||||
slim-configuration-sessreg
|
slim-configuration-sessreg
|
||||||
|
|
||||||
slim-service-type
|
slim-service-type
|
||||||
slim-service
|
|
||||||
|
|
||||||
screen-locker
|
screen-locker
|
||||||
screen-locker?
|
screen-locker?
|
||||||
|
|
@ -108,7 +107,6 @@ (define-module (gnu services xorg)
|
||||||
|
|
||||||
gdm-configuration
|
gdm-configuration
|
||||||
gdm-service-type
|
gdm-service-type
|
||||||
gdm-service
|
|
||||||
|
|
||||||
handle-xorg-configuration
|
handle-xorg-configuration
|
||||||
set-xorg-configuration))
|
set-xorg-configuration))
|
||||||
|
|
@ -664,49 +662,6 @@ (define slim-service-type
|
||||||
(description
|
(description
|
||||||
"Run the SLiM graphical login manager for X11."))))
|
"Run the SLiM graphical login manager for X11."))))
|
||||||
|
|
||||||
(define-deprecated (slim-service #:key (slim slim)
|
|
||||||
(allow-empty-passwords? #t) auto-login?
|
|
||||||
(default-user "")
|
|
||||||
(theme %default-slim-theme)
|
|
||||||
(theme-name %default-slim-theme-name)
|
|
||||||
(xauth xauth) (shepherd shepherd)
|
|
||||||
(auto-login-session #f)
|
|
||||||
(startx (xorg-start-command)))
|
|
||||||
slim-service-type
|
|
||||||
"Return a service that spawns the SLiM graphical login manager, which in
|
|
||||||
turn starts the X display server with @var{startx}, a command as returned by
|
|
||||||
@code{xorg-start-command}.
|
|
||||||
|
|
||||||
@cindex X session
|
|
||||||
|
|
||||||
SLiM automatically looks for session types described by the @file{.desktop}
|
|
||||||
files in @file{/run/current-system/profile/share/xsessions} and allows users
|
|
||||||
to choose a session from the log-in screen using @kbd{F1}. Packages such as
|
|
||||||
@var{xfce}, @var{sawfish}, and @var{ratpoison} provide @file{.desktop} files;
|
|
||||||
adding them to the system-wide set of packages automatically makes them
|
|
||||||
available at the log-in screen.
|
|
||||||
|
|
||||||
In addition, @file{~/.xsession} files are honored. When available,
|
|
||||||
@file{~/.xsession} must be an executable that starts a window manager
|
|
||||||
and/or other X clients.
|
|
||||||
|
|
||||||
When @var{allow-empty-passwords?} is true, allow logins with an empty
|
|
||||||
password. When @var{auto-login?} is true, log in automatically as
|
|
||||||
@var{default-user} with @var{auto-login-session}.
|
|
||||||
|
|
||||||
If @var{theme} is @code{#f}, the use the default log-in theme; otherwise
|
|
||||||
@var{theme} must be a gexp denoting the name of a directory containing the
|
|
||||||
theme to use. In that case, @var{theme-name} specifies the name of the
|
|
||||||
theme."
|
|
||||||
(service slim-service-type
|
|
||||||
(slim-configuration
|
|
||||||
(slim slim)
|
|
||||||
(allow-empty-passwords? allow-empty-passwords?)
|
|
||||||
(auto-login? auto-login?) (default-user default-user)
|
|
||||||
(theme theme) (theme-name theme-name)
|
|
||||||
(xauth xauth) (shepherd shepherd)
|
|
||||||
(auto-login-session auto-login-session))))
|
|
||||||
|
|
||||||
|
|
||||||
;;;
|
;;;
|
||||||
;;; Screen lockers & co.
|
;;; Screen lockers & co.
|
||||||
|
|
@ -1043,34 +998,6 @@ (define gdm-service-type
|
||||||
"Run the GNOME Desktop Manager (GDM), a program that allows
|
"Run the GNOME Desktop Manager (GDM), a program that allows
|
||||||
you to log in in a graphical session, whether or not you use GNOME."))))
|
you to log in in a graphical session, whether or not you use GNOME."))))
|
||||||
|
|
||||||
(define-deprecated (gdm-service #:key (gdm gdm)
|
|
||||||
(allow-empty-passwords? #t)
|
|
||||||
(x-server (xorg-wrapper)))
|
|
||||||
gdm-service-type
|
|
||||||
"Return a service that spawns the GDM graphical login manager, which in turn
|
|
||||||
starts the X display server with @var{X}, a command as returned by
|
|
||||||
@code{xorg-wrapper}.
|
|
||||||
|
|
||||||
@cindex X session
|
|
||||||
|
|
||||||
GDM automatically looks for session types described by the @file{.desktop}
|
|
||||||
files in @file{/run/current-system/profile/share/xsessions} and allows users
|
|
||||||
to choose a session from the log-in screen using @kbd{F1}. Packages such as
|
|
||||||
@var{xfce}, @var{sawfish}, and @var{ratpoison} provide @file{.desktop} files;
|
|
||||||
adding them to the system-wide set of packages automatically makes them
|
|
||||||
available at the log-in screen.
|
|
||||||
|
|
||||||
In addition, @file{~/.xsession} files are honored. When available,
|
|
||||||
@file{~/.xsession} must be an executable that starts a window manager
|
|
||||||
and/or other X clients.
|
|
||||||
|
|
||||||
When @var{allow-empty-passwords?} is true, allow logins with an empty
|
|
||||||
password."
|
|
||||||
(service gdm-service-type
|
|
||||||
(gdm-configuration
|
|
||||||
(gdm gdm)
|
|
||||||
(allow-empty-passwords? allow-empty-passwords?))))
|
|
||||||
|
|
||||||
(define* (set-xorg-configuration config
|
(define* (set-xorg-configuration config
|
||||||
#:optional
|
#:optional
|
||||||
(login-manager-service-type
|
(login-manager-service-type
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue