02/05: services: Add cups-pk-helper.

[guix-commits]

cbaines pushed a commit to branch master
in repository guix.

commit 96c7b4c846214a9f04480fc1a5be37ac5c42744e
Author: Christopher Baines <address@hidden>
Date:   Tue Jan 29 10:03:12 2019 +0000

    services: Add cups-pk-helper.
    
    This service integrates cups and PolicyKit. The gnome-control-center 
printing
    section uses this functionality.
    
    * gnu/sevices/desktop.scm (cups-pk-helper-service-type): New variable.
    (%desktop-services): Add the cups-pk-helper service.
---
 gnu/services/desktop.scm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm
index fbeabf1..a93fa3c 100644
--- a/gnu/services/desktop.scm
+++ b/gnu/services/desktop.scm
@@ -39,6 +39,7 @@
   #:use-module (gnu system pam)
   #:use-module (gnu packages glib)
   #:use-module (gnu packages admin)
+  #:use-module (gnu packages cups)
   #:use-module (gnu packages freedesktop)
   #:use-module (gnu packages gnome)
   #:use-module (gnu packages xfce)
@@ -802,6 +803,21 @@ accountsservice web site} for more information."
 
 
 ;;;
+;;; cups-pk-helper service.
+;;;
+
+(define cups-pk-helper-service-type
+  (service-type
+   (name 'cups-pk-helper)
+   (description
+    "PolicyKit helper to configure CUPS with fine-grained privileges.")
+   (extensions
+    (list (service-extension dbus-root-service-type list)
+          (service-extension polkit-service-type list)))
+   (default-value cups-pk-helper)))
+
+
+;;;
 ;;; GNOME desktop service.
 ;;;
 
@@ -990,6 +1006,7 @@ as expected.")))
          (udisks-service)
          (upower-service)
          (accountsservice-service)
+         (service cups-pk-helper-service-type)
          (colord-service)
          (geoclue-service)
          (service polkit-service-type)