~ruther/guix-local

3cf319a3f8e23831960a0f1320122cc514188a37 — Ludovic Courtès 9 years ago aa1145d
services: elogind: Provide '%elogind-file-systems' by extension.

* gnu/system/file-systems.scm (%base-file-systems): Remove
%ELOGIND-FILE-SYSTEMS.
* gnu/services/desktop.scm (elogind-service-type): Extend
FILE-SYSTEM-SERVICE-TYPE to provide %ELOGIND-FILE-SYSTEMS.
2 files changed, 7 insertions(+), 2 deletions(-)

M gnu/services/desktop.scm
M gnu/system/file-systems.scm
M gnu/services/desktop.scm => gnu/services/desktop.scm +7 -1
@@ 27,6 27,8 @@
  #:use-module (gnu services avahi)
  #:use-module (gnu services xorg)
  #:use-module (gnu services networking)
  #:use-module ((gnu system file-systems)
                #:select (%elogind-file-systems))
  #:use-module (gnu system shadow)
  #:use-module (gnu system pam)
  #:use-module (gnu packages glib)


@@ 760,7 762,11 @@ seats.)"

                       ;; Extend PAM with pam_elogind.so.
                       (service-extension pam-root-service-type
                                          pam-extension-procedure)))))
                                          pam-extension-procedure)

                       ;; We need /run/user, /run/systemd, etc.
                       (service-extension file-system-service-type
                                          (const %elogind-file-systems))))))

(define* (elogind-service #:key (config (elogind-configuration)))
  "Return a service that runs the @command{elogind} login and seat management

M gnu/system/file-systems.scm => gnu/system/file-systems.scm +0 -1
@@ 257,7 257,6 @@ TARGET in the other system."
  (append (list %pseudo-terminal-file-system
                %shared-memory-file-system
                %immutable-store)
          %elogind-file-systems
          %control-groups))

;; File systems for Linux containers differ from %base-file-systems in that