104/143: gnu: Add plasma-desktop.

[guix-commits]

mbakke pushed a commit to branch master
in repository guix.

commit 1ad1517dac14a064d9ea7332a1a2af025174bc6a
Author: Brendan Tildesley <mail@brendan.scot>
AuthorDate: Sat Mar 5 11:46:54 2022 +1100

    gnu: Add plasma-desktop.
    
    * gnu/packages/kde-plasma.scm (plasma-desktop): New variable.
    
    Signed-off-by: Marius Bakke <marius@gnu.org>
---
 gnu/packages/kde-plasma.scm | 155 +++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 154 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/kde-plasma.scm b/gnu/packages/kde-plasma.scm
index a4cb8c7909..eb151180d5 100644
--- a/gnu/packages/kde-plasma.scm
+++ b/gnu/packages/kde-plasma.scm
@@ -48,9 +48,11 @@
   #:use-module (gnu packages glib)
   #:use-module (gnu packages gnome)
   #:use-module (gnu packages gtk)
+  #:use-module (gnu packages ibus)
   #:use-module (gnu packages iso-codes)
   #:use-module (gnu packages kde)
   #:use-module (gnu packages kde-frameworks)
+  #:use-module (gnu packages kde-pim)
   #:use-module (gnu packages libcanberra)
   #:use-module (gnu packages linux)
   #:use-module (gnu packages libusb)
@@ -59,7 +61,6 @@
   #:use-module (gnu packages multiprecision)
   #:use-module (gnu packages pciutils)
   #:use-module (gnu packages pkg-config)
-  #:use-module (gnu packages polkit)
   #:use-module (gnu packages pulseaudio)
   #:use-module (gnu packages python)
   #:use-module (gnu packages package-management) ; flatpak
@@ -1391,6 +1392,158 @@ active window on Plasma Desktop.")
 the KDE Plasma 5 desktop.")
     (license license:gpl3+)))
 
+(define-public plasma-desktop
+  (package
+    (name "plasma-desktop")
+    (version "5.25.5")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://kde/stable/plasma/" version
+                                  "/" name "-" version ".tar.xz"))
+              (sha256
+               (base32
+                "05s1pkwr4xmkghp8jrwcyrvjm83n68ngmk2694055xcfgi0pxicg"))))
+    (build-system qt-build-system)
+    (native-inputs (list extra-cmake-modules
+                         dbus
+                         kdoctools
+                         intltool
+                         pkg-config
+                         qtsvg-5
+                         qttools-5))
+    (inputs (list packagekit-qt5
+                  signon-plugin-oauth2
+                  signond
+                  attica
+                  appstream-qt
+                  baloo
+                  breeze
+                  breeze-icons
+                  eudev
+                  fontconfig
+                  glib
+                  ibus
+                  kaccounts-integration
+                  kactivities
+                  kactivities-stats
+                  kauth
+                  karchive
+                  kcmutils
+                  kconfig
+                  kcoreaddons
+                  kcrash
+                  kdbusaddons
+                  kdeclarative
+                  kded
+                  kdesu
+                  kdelibs4support
+                  kglobalaccel
+                  kguiaddons
+                  kholidays
+                  ki18n
+                  kiconthemes
+                  kidletime
+                  kinit
+                  kio
+                  kitemmodels
+                  knewstuff
+                  knotifications
+                  knotifyconfig
+                  kpackage
+                  kpeople
+                  krunner
+                  kscreenlocker
+                  ktexteditor
+                  ktextwidgets
+                  kunitconversion
+                  kuserfeedback
+                  kwallet
+                  kwayland
+                  kwin
+                  layer-shell-qt
+                  libaccounts-qt
+                  libcanberra
+                  libkscreen
+                  libksysguard
+                  libqalculate
+                  gmp
+                  mpfr
+                  libsm
+                  libxi
+                  libxft
+                  libxkbcommon
+                  libxrender
+                  libxtst
+                  networkmanager-qt
+                  phonon
+                  pipewire-0.3
+                  plasma-framework
+                  plasma-wayland-protocols
+                  pulseaudio
+                  prison
+                  qqc2-desktop-style
+                  qtbase-5
+                  qtdeclarative-5
+                  qtquickcontrols2-5
+                  qtwayland
+                  qtx11extras
+                  wayland
+                  wayland-protocols
+                  xcb-util
+                  xcb-util-image
+                  xcb-util-keysyms
+                  xdg-user-dirs
+
+                  ;; These are needed for Xserver
+                  xf86-input-libinput
+                  xf86-input-evdev
+                  xorg-server
+                  xf86-input-synaptics
+                  xkeyboard-config
+                  libxkbfile
+                  libxcursor
+                  libxkbcommon))
+    (propagated-inputs (list iso-codes kirigami plasma-workspace))
+    (arguments
+     (list #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'unpack 'fix-paths
+                 (lambda* (#:key inputs #:allow-other-keys)
+                   (substitute* "kcms/keyboard/iso_codes.h"
+                     (("\"/usr/share/xml/iso-codes\"")
+                      (string-append "\"" (search-input-directory
+                                           inputs "/share/xml/iso-codes")
+                                     "\"")))))
+               (add-after 'unpack 'patch-qml-import-path
+                 (lambda _
+                   (substitute*
+                       '("applets/pager/package/contents/ui/main.qml"
+                         
"containments/desktop/package/contents/ui/FolderView.qml"
+                         "containments/desktop/package/contents/ui/main.qml"
+                         "containments/panel/contents/ui/main.qml")
+                     (("^import \"(utils|FolderTools|LayoutManager).js\" as "
+                       line mod)
+                      (string-append "import \"../code/" mod
+                                     ".js\" as ")))))
+               (replace 'check
+                 (lambda* (#:key tests? #:allow-other-keys)
+                   (when tests?
+                     (setenv "HOME" (getcwd))
+                     (setenv "XDG_RUNTIME_DIR" (getcwd))
+                     (setenv "XDG_CACHE_HOME" (getcwd))
+                     (setenv "QT_QPA_PLATFORM" "offscreen")
+                     (invoke "ctest" "-E" "foldermodeltest")))))))
+    (home-page "https://kde.org/plasma-desktop/";)
+    (synopsis "Plasma for the Desktop")
+    (description
+     "Plasma Desktop offers a beautiful looking desktop that takes
+complete advantage of modern computing technology.  Through the use of visual
+effects and scalable graphics, the desktop experience is not only smooth but
+also pleasant to the eye.  The looks of Plasma Desktop not only provide
+beauty, they are also used to support and improve your computer
+activities effectively, without being distracting.")
+    (license license:gpl2+)))
+
 (define-public plasma-disks
   (package
     (name "plasma-disks")