Verified Commit 6b9b7d37 authored by Hartmut Goebel's avatar Hartmut Goebel
Browse files

WIP services: Add KDE Plasme desktop service.

* gnu/services/desktop.scm  (<kde-desktop-configuration>,
  kde-desktop-service-type): New variables.
  (kde-desktop-service): New public variable.
parent 2f6f5024
......@@ -5,6 +5,7 @@
;;; Copyright © 2016 Sou Bunnbu <iyzsong@gmail.com>
;;; Copyright © 2017 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2017 Nils Gillmann <ng0@n0.is>
;;; Copyright © 2017 Hartmut Goebel <h.goebel@crazy-compilers.com>
;;; Copyright © 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
;;;
......@@ -41,6 +42,9 @@
#:use-module (gnu packages admin)
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages gnome)
#:use-module (gnu packages kde)
#:use-module (gnu packages kde-frameworks)
#:use-module (gnu packages kde-plasma)
#:use-module (gnu packages xfce)
#:use-module (gnu packages avahi)
#:use-module (gnu packages xdisorg)
......@@ -95,6 +99,11 @@
mate-desktop-service
mate-desktop-service-type
plasma-desktop-configuration
plasma-desktop-configuration?
plasma-desktop-service
plasma-desktop-service-type
xfce-desktop-configuration
xfce-desktop-configuration?
xfce-desktop-service
......@@ -966,6 +975,51 @@ profile, and extends dbus with the ability for @code{efl} to generate
thumbnails and makes setuid the programs which enlightenment needs to function
as expected.")))
;;;
;;; KDE Plasma desktop service.
;;;
(define-record-type* <plasma-desktop-configuration> plasma-desktop-configuration
make-plasma-desktop-configuration
plasma-desktop-configuration
(plasma-package plasma-package (default plasma-workspace)))
(define (plasma-polkit-settings config)
"Return the list of KDE Plasma dependencies that provide polkit actions and
rules."
(let ((plasma-plasma (plasma-package config)))
(map (lambda (name)
((package-direct-input-selector name) plasma-plasma))
'(;;"kde-settings-daemon"
;;"kde-control-center"
"systemsettings"
"plasma-pa"
"plasma-nm"
"plasma-desktop"
;;"oxygen-fonts"
;; kinit klauncher kded kcminit ksmsettings kstartupconfig5
;; qdbus
;; Magia task-plasma5-minimal adds: ark dbus-x11 dolphin gwenview
;; kcalc khelpcenter kwalletmanager kwrite oxygen-fonts
;; phonon4qt5-gstreamer phonon4qt5-vlc plasma-desktop plasma-pa
;; plasma-workspace sddm systemsettings task-x11 xsettings-kde
))))
(define plasma-desktop-service-type
(service-type
(name 'plasma-desktop)
(extensions
(list ;;(service-extension polkit-service-type
;; plasma-polkit-settings)
(service-extension profile-service-type
(compose list
plasma-package))))))
(define* (plasma-desktop-service #:key (config (plasma-desktop-configuration)))
"Return a service that adds the @code{plasma} package to the system profile,
and extends polkit with the actions from @code{kde-settings-daemon}."
(service plasma-desktop-service-type config))
;;;
;;; The default set of desktop services.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment