ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 13:28:12 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: xfce: Add xfce4-power-manager to polkit settings.

Browse source 
* gnu/services/desktop.scm (xfce-desktop-service-type): Add
xfce4-power-manager to polkit-service-type service extension via
new procedure 'xfce-polkit-settings'.

Signed-off-by: Danny Milosavljevic <dannym@scratchpost.org>
This commit is contained in:
David Wilson 2019-10-15 05:17:54 -07:00 committed by Danny Milosavljevic
parent d1e6b9e85f
commit 849af4ae1b
No known key found for this signature in database
GPG key ID: E71A35542C30BAA5
1 changed files with 11 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
gnu/services/desktop.scm
View file

@ -9,6 +9,7 @@
;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017, 2019 Christopher Baines <mail@cbaines.net>
;;; Copyright © 2019 Tim Gesthuizen <tim.gesthuizen@yahoo.de>
;;; Copyright © 2019 David Wilson <david@daviwil.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -907,15 +908,21 @@ (define-record-type* <xfce-desktop-configuration> xfce-desktop-configuration
xfce-desktop-configuration
(xfce xfce-package (default xfce)))
(define (xfce-polkit-settings config)
"Return the list of XFCE dependencies that provide polkit actions and
rules."
(let ((xfce (xfce-package config)))
(map (lambda (name)
((package-direct-input-selector name) xfce))
'("thunar"
"xfce4-power-manager"))))
(define xfce-desktop-service-type
(service-type
(name 'xfce-desktop)
(extensions
(list (service-extension polkit-service-type
(compose list
(package-direct-input-selector
"thunar")
xfce-package))
xfce-polkit-settings)
(service-extension profile-service-type
(compose list xfce-package))))
(default-value (xfce-desktop-configuration))