[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [PATCH 6/7] gnu: Add elogind service.
From: |
宋文武 |
Subject: |
Re: [PATCH 6/7] gnu: Add elogind service. |
Date: |
Fri, 21 Aug 2015 22:17:10 +0800 |
User-agent: |
Notmuch/0.19 (http://notmuchmail.org) Emacs/24.5.1 (x86_64-unknown-linux-gnu) |
Andy Wingo <address@hidden> writes:
> * gnu/services/desktop.scm (elogind-service): New function.
> (%desktop-services): Add elogind-service.
> ---
> gnu/services/desktop.scm | 27 ++++++++++++++++++++++++++-
> 1 file changed, 26 insertions(+), 1 deletion(-)
>
> diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm
> index 4e4b49d..737a734 100644
> --- a/gnu/services/desktop.scm
> +++ b/gnu/services/desktop.scm
> @@ -26,6 +26,7 @@
> #:use-module (gnu system shadow)
> #:use-module (gnu packages glib)
> #:use-module (gnu packages admin)
> + #:use-module (gnu packages freedesktop)
> #:use-module (gnu packages gnome)
> #:use-module (gnu packages avahi)
> #:use-module (gnu packages wicd)
> @@ -39,6 +40,7 @@
> geoclue-application
> %standard-geoclue-applications
> geoclue-service
> + elogind-service
> %desktop-services))
>
> ;;; Commentary:
> @@ -374,6 +376,28 @@ site} for more information."
>
>
> ;;;
> +;;; Elogind login and seat management service.
> +;;;
> +
> +(define* (elogind-service #:key (elogind elogind))
> + "Return a service that runs the @command{elogind} login and seat management
> +service. The @command{elogind} service integrates with PAM to allow other
> +system components to know the set of logged-in users as well as their session
> +types (graphical, console, remote, etc.). It can also clean up after users
> +when they log out."
> + (with-monad %store-monad
> + (return
> + (service
> + (documentation "Run the elogind login and seat management service.")
> + (provision '(elogind))
> + (requirement '(dbus-system))
> +
> + (start #~(make-forkexec-constructor
> + (list (string-append #$elogind
> "/lib/elogind/elogind"))))
Should be "/libexec/elogind/elogind".
> + (stop #~(make-kill-destructor))))))
> +
> +
> +;;;
> ;;; The default set of desktop services.
> ;;;
> (define %desktop-services
> @@ -389,7 +413,8 @@ site} for more information."
> ;; time, so we currently add them to the set of default services.
> (colord-service)
> (geoclue-service)
> - (dbus-service (list avahi wicd upower colord geoclue))
> + (elogind-service)
> + (dbus-service (list avahi wicd upower colord geoclue elogind))
>
> (ntp-service)
>
> --
> 2.4.3
Look good to me!