From mboxrd@z Thu Jan 1 00:00:00 1970 From: Andy Wingo Subject: [PATCH v2 6/7] gnu: Add elogind service. Date: Tue, 18 Aug 2015 11:56:17 +0200 Message-ID: <7517af974b60a0a3e6ce03d3419863e16edd5999.1440062095.git.wingo@pobox.com> References: <95cd06d0b1639449fffa2ded823e54d0f26afbb6.1440062095.git.wingo@pobox.com> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:50147) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZSM1y-0000Ar-Cs for guix-devel@gnu.org; Thu, 20 Aug 2015 05:21:07 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZSM1w-0002V7-12 for guix-devel@gnu.org; Thu, 20 Aug 2015 05:21:06 -0400 Received: from pb-sasl0.int.icgroup.com ([208.72.237.25]:63963 helo=sasl.smtp.pobox.com) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZSM1v-0002Ur-T2 for guix-devel@gnu.org; Thu, 20 Aug 2015 05:21:03 -0400 Received: from sasl.smtp.pobox.com (unknown [127.0.0.1]) by pb-sasl0.pobox.com (Postfix) with ESMTP id BCA7B124FF for ; Thu, 20 Aug 2015 05:21:03 -0400 (EDT) Received: from pb-sasl0. (unknown [127.0.0.1]) by pb-sasl0.pobox.com (Postfix) with ESMTP id B55A8124FE for ; Thu, 20 Aug 2015 05:21:03 -0400 (EDT) Received: from rusty (unknown [88.160.190.192]) (using TLSv1 with cipher ECDHE-RSA-AES256-SHA (256/256 bits)) (No client certificate requested) by pb-sasl0.pobox.com (Postfix) with ESMTPSA id 20591124FD for ; Thu, 20 Aug 2015 05:21:03 -0400 (EDT) In-Reply-To: <95cd06d0b1639449fffa2ded823e54d0f26afbb6.1440062095.git.wingo@pobox.com> List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org * 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..4973e82 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 "/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