From df8a468330e52a734b9f50ad8b47ff7b564f466b Mon Sep 17 00:00:00 2001 From: Brendan Tildesley Date: Sat, 5 Mar 2022 11:47:21 +1100 Subject: [PATCH v3 74/86] . service diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm index a3e1318e21..6f13b00347 100644 --- a/gnu/services/desktop.scm +++ b/gnu/services/desktop.scm @@ -157,6 +157,11 @@ (define-module (gnu services desktop) polkit-wheel-service + plasma-desktop-configuration + plasma-desktop-configuration? + plasma-desktop-service + plasma-desktop-service-type + gnome-keyring-configuration gnome-keyring-configuration? gnome-keyring-service-type @@ -1431,6 +1436,29 @@ (define-deprecated (xfce-desktop-service #:key (config (service xfce-desktop-service-type config)) + + +;;; +;;; KDE Plasma desktop service. +;;; + +(define-record-type* plasma-desktop-configuration + make-plasma-desktop-configuration + plasma-desktop-configuration? + (plasma plasma-package + (default plasma-workspace))) ;; do we need a union package? + +(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-workspace)))) + (default-value (plasma-desktop-configuration)) + (description "Run Plasma desktop environment."))) + + ;;; ;;; Lxqt desktop service. ;;; diff --git a/gnu/system/examples/desktop.tmpl b/gnu/system/examples/desktop.tmpl index 7055a8f92d..f343a7395a 100644 --- a/gnu/system/examples/desktop.tmpl +++ b/gnu/system/examples/desktop.tmpl @@ -76,6 +76,7 @@ ;; NetworkManager, and more. (services (if (target-x86-64?) (append (list (service gnome-desktop-service-type) + (service plasma-desktop-service-type) (service xfce-desktop-service-type) (set-xorg-configuration (xorg-configuration -- 2.37.0