amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: KDE Frameworks: Remove trailing booleans.

Browse source 
* gnu/packages/kde-frameworks.scm (kcalendarcore, kconfig, kcoreaddons,
ksyntaxhighlighting, kwayland, kwindowsystem, modemmanager-qt, kcontacts,
kdoctools, kfilemetadata, imageformats, knotifications, kpackage, kpty,
baloo, kbookmarks, kcmutils, kconfigwidgets, kemoticons, kiconthemes,
kinit, kio, knewstuff, kparts, kservice, ktexteditor, kxmlgui,plasma-framework,
kde-frameworkintegration, kdelibs4support): Remove trailing booleans.

Signed-off-by: Marius Bakke <marius@gnu.org>
This commit is contained in:
Petr Hodina 2022-07-25 11:07:29 +02:00 • committed by Marius Bakke
parent 575a03ab39
commit fccf6be1ae
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA
1 changed files with 42 additions and 82 deletions
Download patch file Download diff file Expand all files Collapse all files

124
gnu/packages/kde-frameworks.scm
View file

@ -10,6 +10,7 @@
;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2021 Alexandros Theodotou <alex@zrythm.org> ;;; Copyright © 2021 Alexandros Theodotou <alex@zrythm.org>
;;; Copyright © 2022 Brendan Tildesley <mail@brendan.scot> ;;; Copyright © 2022 Brendan Tildesley <mail@brendan.scot>
;;; Copyright © 2022 Petr Hodina <phodina@protonmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -204,8 +205,7 @@ common build settings used in software produced by the KDE community.")
(assoc-ref inputs "qtbase")))) (assoc-ref inputs "qtbase"))))
(substitute* "cmake_install.cmake" (substitute* "cmake_install.cmake"
((regex all dest) ((regex all dest)
(string-append dest (assoc-ref outputs "out"))))) (string-append dest (assoc-ref outputs "out"))))))))))
#t)))))
(home-page "https://phonon.kde.org") (home-page "https://phonon.kde.org")
(synopsis "KDE's multimedia library") (synopsis "KDE's multimedia library")
(description "KDE's multimedia library.") (description "KDE's multimedia library.")
@ -465,8 +465,7 @@ GZip format, via a subclass of QIODevice.")
(when tests? (when tests?
;; Its already been fixed upstream; remove in 5.93. ;; Its already been fixed upstream; remove in 5.93.
;; c0428a284444b995d320046c04ef5377d51e4c5c ;; c0428a284444b995d320046c04ef5377d51e4c5c
(invoke "ctest" "-E" "testdateserialization")) (invoke "ctest" "-E" "testdateserialization")))))))
#t)))))
(home-page "https://community.kde.org/Frameworks") (home-page "https://community.kde.org/Frameworks")
(synopsis "Library for interfacing with calendars") (synopsis "Library for interfacing with calendars")
(description "This library provides access to and handling of calendar (description "This library provides access to and handling of calendar
@ -541,8 +540,7 @@ Internet).")
(setenv "HOME" (getcwd)) (setenv "HOME" (getcwd))
(setenv "QT_QPA_PLATFORM" "offscreen") (setenv "QT_QPA_PLATFORM" "offscreen")
(invoke "ctest" "-E" "(kconfigcore-kconfigtest|\ (invoke "ctest" "-E" "(kconfigcore-kconfigtest|\
kconfiggui-kstandardshortcutwatchertest)")) kconfiggui-kstandardshortcutwatchertest)")))))))
#t)))))
(home-page "https://community.kde.org/Frameworks") (home-page "https://community.kde.org/Frameworks")
(synopsis "Kconfiguration settings framework for Qt") (synopsis "Kconfiguration settings framework for Qt")
(description "KConfig provides an advanced configuration system. (description "KConfig provides an advanced configuration system.
@ -602,8 +600,7 @@ propagate their changes to their respective configuration files.")
(setenv "TMPDIR" (getcwd)) (setenv "TMPDIR" (getcwd))
(when tests? ;; kdirwatch test fails inconsistently. kprocesstest fails. (when tests? ;; kdirwatch test fails inconsistently. kprocesstest fails.
(invoke "ctest" "-E" "(kdirwatch_qfswatch_unittest|kprocesstest|\ (invoke "ctest" "-E" "(kdirwatch_qfswatch_unittest|kprocesstest|\
kdirwatch_stat_unittest)")) kdirwatch_stat_unittest)")))))))
#t)))))
(home-page "https://community.kde.org/Frameworks") (home-page "https://community.kde.org/Frameworks")
(synopsis "Qt addon library with a collection of non-GUI utilities") (synopsis "Qt addon library with a collection of non-GUI utilities")
(description "KCoreAddons provides classes built on top of QtCore to (description "KCoreAddons provides classes built on top of QtCore to
@ -1001,8 +998,7 @@ pixel units.")
(((which "sh")) " /bin/sh")) ;; space in front! (((which "sh")) " /bin/sh")) ;; space in front!
(substitute* '("autotests/input/highlight.pl" (substitute* '("autotests/input/highlight.pl"
"autotests/folding/highlight.pl.fold") "autotests/folding/highlight.pl.fold")
(((which "perl")) "/usr/bin/perl")) (((which "perl")) "/usr/bin/perl")))))))
#t)))))
(home-page "https://community.kde.org/Frameworks") (home-page "https://community.kde.org/Frameworks")
(synopsis "Syntax highlighting engine for Kate syntax definitions") (synopsis "Syntax highlighting engine for Kate syntax definitions")
(description "This is a stand-alone implementation of the Kate syntax (description "This is a stand-alone implementation of the Kate syntax
@ -1063,8 +1059,7 @@ protocols used in KDE Plasma.")
(setenv "XDG_RUNTIME_DIR" (getcwd)) (setenv "XDG_RUNTIME_DIR" (getcwd))
(setenv "QT_QPA_PLATFORM" "offscreen") (setenv "QT_QPA_PLATFORM" "offscreen")
(when tests? ;; One test fails. (when tests? ;; One test fails.
(invoke "ctest" "-E" "kwayland-testWaylandRegistry")) (invoke "ctest" "-E" "kwayland-testWaylandRegistry")))))))
#t)))))
(home-page "https://community.kde.org/Frameworks") (home-page "https://community.kde.org/Frameworks")
(synopsis "Qt-style API to interact with the wayland client and server") (synopsis "Qt-style API to interact with the wayland client and server")
(description "As the names suggest they implement a Client respectively a (description "As the names suggest they implement a Client respectively a
@ -1146,8 +1141,7 @@ configuration pages, message boxes, and password requests.")
(with-output-to-file "autotests/BLACKLIST" (with-output-to-file "autotests/BLACKLIST"
(lambda _ (lambda _
(display "[testGroupLeader]\n*\n") (display "[testGroupLeader]\n*\n")
(display "[testClientMachine]\n*\n"))) ;; requires network (display "[testClientMachine]\n*\n"))))) ;; requires network
#t))
(replace 'check (replace 'check
(lambda* (#:key tests? #:allow-other-keys) (lambda* (#:key tests? #:allow-other-keys)
;; The test suite requires a running window anager ;; The test suite requires a running window anager
@ -1203,8 +1197,7 @@ lower level classes for interaction with the X Windowing System.")
(lambda* (#:key tests? #:allow-other-keys) (lambda* (#:key tests? #:allow-other-keys)
(when tests? (when tests?
(setenv "DBUS_FATAL_WARNINGS" "0") (setenv "DBUS_FATAL_WARNINGS" "0")
(invoke "dbus-launch" "ctest")) (invoke "dbus-launch" "ctest")))))))
#t)))))
(home-page "https://community.kde.org/Frameworks") (home-page "https://community.kde.org/Frameworks")
(synopsis "Qt wrapper for ModemManager DBus API") (synopsis "Qt wrapper for ModemManager DBus API")
(description "ModemManagerQt provides access to all ModemManager features (description "ModemManagerQt provides access to all ModemManager features
@ -1605,8 +1598,7 @@ integrated it into your application's other widgets.")
;;Expected (result) : ;;Expected (result) :
;;"Jim Knopf\nLummerlandstr. 1\n12345 Lummerstadt\n\nGERMANIA" ;;"Jim Knopf\nLummerlandstr. 1\n12345 Lummerstadt\n\nGERMANIA"
(invoke "ctest" "-E" (invoke "ctest" "-E"
"(kcontacts-addresstest|kcontacts-emailtest|kcontacts-phonenumbertest|kcontacts-secrecytest|kcontacts-geotest|kcontacts-keytest|kcontacts-testroundtrip|kcontacts-impptest|kcontacts-birthdaytest|kcontacts-addresseetest)")) "(kcontacts-addresstest|kcontacts-emailtest|kcontacts-phonenumbertest|kcontacts-secrecytest|kcontacts-geotest|kcontacts-keytest|kcontacts-testroundtrip|kcontacts-impptest|kcontacts-birthdaytest|kcontacts-addresseetest)")))))))
#t)))))
(home-page "https://community.kde.org/Frameworks") (home-page "https://community.kde.org/Frameworks")
(synopsis "API for contacts/address book data following the vCard standard") (synopsis "API for contacts/address book data following the vCard standard")
(description "This library provides a vCard data model, vCard (description "This library provides a vCard data model, vCard
@ -1679,8 +1671,7 @@ application crashes.")
(substitute* "cmake/FindDocBookXSL.cmake" (substitute* "cmake/FindDocBookXSL.cmake"
(("^.*xml/docbook/stylesheet.*$") (("^.*xml/docbook/stylesheet.*$")
(string-append "xml/xsl/docbook-xsl-" (string-append "xml/xsl/docbook-xsl-"
,(package-version docbook-xsl) "\n"))) ,(package-version docbook-xsl) "\n")))))
#t))
(add-after 'install 'add-symlinks (add-after 'install 'add-symlinks
;; Some package(s) (e.g. kdelibs4support) refer to this locale by a ;; Some package(s) (e.g. kdelibs4support) refer to this locale by a
;; different spelling. ;; different spelling.
@ -1688,8 +1679,7 @@ application crashes.")
(let ((xsl (string-append (assoc-ref outputs "out") (let ((xsl (string-append (assoc-ref outputs "out")
"/share/kf5/kdoctools/customization/xsl/"))) "/share/kf5/kdoctools/customization/xsl/")))
(symlink (string-append xsl "pt_br.xml") (symlink (string-append xsl "pt_br.xml")
(string-append xsl "pt-BR.xml"))) (string-append xsl "pt-BR.xml"))))))))
#t)))))
(home-page "https://community.kde.org/Frameworks") (home-page "https://community.kde.org/Frameworks")
(synopsis "Create documentation from DocBook") (synopsis "Create documentation from DocBook")
(description "Provides tools to generate documentation in various format (description "Provides tools to generate documentation in various format
@ -1719,8 +1709,7 @@ from DocBook files.")
;; FIXME: Test can't find audio/x-speex mimeinfo ;; FIXME: Test can't find audio/x-speex mimeinfo
;; (but it can find audio/x-speex+ogg). ;; (but it can find audio/x-speex+ogg).
(invoke "ctest" "-E" (invoke "ctest" "-E"
"(usermetadatawritertest|embeddedimagedatatest|taglibextractortest)")) "(usermetadatawritertest|embeddedimagedatatest|taglibextractortest)")))))))
#t)))))
(native-inputs (native-inputs
`(("extra-cmake-modules" ,extra-cmake-modules) `(("extra-cmake-modules" ,extra-cmake-modules)
("pkg-config" ,pkg-config))) ("pkg-config" ,pkg-config)))
@ -1783,8 +1772,7 @@ by applications to write metadata.")
(setenv "QT_QPA_PLATFORM" "offscreen") (setenv "QT_QPA_PLATFORM" "offscreen")
(setenv "QT_PLUGIN_PATH" (setenv "QT_PLUGIN_PATH"
(string-append (getcwd) "/bin:" (string-append (getcwd) "/bin:"
(getenv "QT_PLUGIN_PATH"))) (getenv "QT_PLUGIN_PATH"))))))
#t)))
;; FIXME: The header files of ilmbase (propagated by openexr) are not ;; FIXME: The header files of ilmbase (propagated by openexr) are not
;; found when included by the header files of openexr, and an explicit ;; found when included by the header files of openexr, and an explicit
;; flag needs to be set. ;; flag needs to be set.
@ -1860,8 +1848,7 @@ asynchronous jobs.")
(when tests? (when tests?
(setenv "HOME" (getcwd)) (setenv "HOME" (getcwd))
(setenv "DBUS_FATAL_WARNINGS" "0") (setenv "DBUS_FATAL_WARNINGS" "0")
(invoke "dbus-launch" "ctest")) (invoke "dbus-launch" "ctest")))))))
#t)))))
(home-page "https://community.kde.org/Frameworks") (home-page "https://community.kde.org/Frameworks")
(synopsis "Desktop notifications") (synopsis "Desktop notifications")
(description "KNotification is used to notify the user of an event. It (description "KNotification is used to notify the user of an event. It
@ -1903,8 +1890,7 @@ covers feedback and persistent events.")
(("^\\s*(const QDirIterator::IteratorFlags flags = QDirIterator::Subdirectories)(;)" _ a b) (("^\\s*(const QDirIterator::IteratorFlags flags = QDirIterator::Subdirectories)(;)" _ a b)
(string-append a " | QDirIterator::FollowSymlinks" b)) (string-append a " | QDirIterator::FollowSymlinks" b))
(("^\\s*(QDirIterator it\\(.*, QDirIterator::Subdirectories)(\\);)" _ a b) (("^\\s*(QDirIterator it\\(.*, QDirIterator::Subdirectories)(\\);)" _ a b)
(string-append a " | QDirIterator::FollowSymlinks" b))) (string-append a " | QDirIterator::FollowSymlinks" b)))))
#t))
(add-after 'unpack 'patch-tests (add-after 'unpack 'patch-tests
(lambda _ (lambda _
;; /bin/ls doesn't exist in the build-container use /etc/passwd ;; /bin/ls doesn't exist in the build-container use /etc/passwd
@ -1914,12 +1900,10 @@ covers feedback and persistent events.")
(string-append a "etc" b "etc" c "etc\"")) (string-append a "etc" b "etc" c "etc\""))
(("filePath\\(\"bin\", QStringLiteral\\(\"ls\"))") (("filePath\\(\"bin\", QStringLiteral\\(\"ls\"))")
"filePath(\"etc\", QStringLiteral(\"passwd\"))") "filePath(\"etc\", QStringLiteral(\"passwd\"))")
(("\"/bin/ls\"") "\"/etc/passwd\"")) (("\"/bin/ls\"") "\"/etc/passwd\""))))
#t))
(add-before 'check 'check-setup (add-before 'check 'check-setup
(lambda _ (lambda _
(setenv "HOME" (getcwd)) (setenv "HOME" (getcwd)))))))
#t)))))
(home-page "https://community.kde.org/Frameworks") (home-page "https://community.kde.org/Frameworks")
(synopsis "Installation and loading of additional content as packages") (synopsis "Installation and loading of additional content as packages")
(description "The Package framework lets the user install and load packages (description "The Package framework lets the user install and load packages
@ -1954,8 +1938,7 @@ were traditional plugins.")
(add-after 'unpack 'patch-tests (add-after 'unpack 'patch-tests
(lambda _ (lambda _
(substitute* "autotests/kptyprocesstest.cpp" (substitute* "autotests/kptyprocesstest.cpp"
(("/bin/bash") (which "bash"))) (("/bin/bash") (which "bash"))))))))
#t)))))
(home-page "https://community.kde.org/Frameworks") (home-page "https://community.kde.org/Frameworks")
(synopsis "Interfacing with pseudo terminal devices") (synopsis "Interfacing with pseudo terminal devices")
(description "This library provides primitives to interface with pseudo (description "This library provides primitives to interface with pseudo
@ -2070,15 +2053,13 @@ between feed formats.")
(substitute* "autotests/unit/file/CMakeLists.txt" (substitute* "autotests/unit/file/CMakeLists.txt"
;; The test only runs on GNU/Linux, piggy-back on the check. ;; The test only runs on GNU/Linux, piggy-back on the check.
(("CMAKE_SYSTEM_NAME MATCHES \"Linux\"" all) (("CMAKE_SYSTEM_NAME MATCHES \"Linux\"" all)
(string-append all " AND NOT TRUE"))) (string-append all " AND NOT TRUE")))))
#t))
(replace 'check (replace 'check
(lambda* (#:key tests? #:allow-other-keys) (lambda* (#:key tests? #:allow-other-keys)
(when tests? (when tests?
(setenv "DBUS_FATAL_WARNINGS" "0") (setenv "DBUS_FATAL_WARNINGS" "0")
(setenv "HOME" (getcwd)) (setenv "HOME" (getcwd))
(invoke "dbus-launch" "ctest")) (invoke "dbus-launch" "ctest")))))))
#t)))))
(home-page "https://community.kde.org/Frameworks") (home-page "https://community.kde.org/Frameworks")
(synopsis "File searching and indexing") (synopsis "File searching and indexing")
(description "Baloo provides file searching and indexing. It does so by (description "Baloo provides file searching and indexing. It does so by
@ -2146,8 +2127,7 @@ by which applications, and what documents have been linked to which activity.")
(lambda _ (lambda _
(setenv "HOME" (getcwd)) (setenv "HOME" (getcwd))
;; make Qt render "offscreen", required for tests ;; make Qt render "offscreen", required for tests
(setenv "QT_QPA_PLATFORM" "offscreen") (setenv "QT_QPA_PLATFORM" "offscreen"))))))
#t)))))
(home-page "https://community.kde.org/Frameworks") (home-page "https://community.kde.org/Frameworks")
(synopsis "Bookmarks management library") (synopsis "Bookmarks management library")
(description "KBookmarks lets you access and manipulate bookmarks stored (description "KBookmarks lets you access and manipulate bookmarks stored
@ -2184,12 +2164,10 @@ using the XBEL format.")
(substitute* "src/kcmoduleloader.cpp" (substitute* "src/kcmoduleloader.cpp"
;; print plugin name when loading fails ;; print plugin name when loading fails
(("^\\s*(qWarning\\(\\) << \"Error loading) (plugin:\")( << loader\\.errorString\\(\\);)" _ a b c) (("^\\s*(qWarning\\(\\) << \"Error loading) (plugin:\")( << loader\\.errorString\\(\\);)" _ a b c)
(string-append a " KCM plugin\" << mod.service()->library() << \":\"" c))) (string-append a " KCM plugin\" << mod.service()->library() << \":\"" c)))))
#t))
(add-before 'check 'check-setup (add-before 'check 'check-setup
(lambda _ (lambda _
(setenv "QT_QPA_PLATFORM" "offscreen") (setenv "QT_QPA_PLATFORM" "offscreen"))))))
#t)))))
(inputs (inputs
(list kauth (list kauth
kcodecs kcodecs
@ -2246,13 +2224,11 @@ KCModules can be created with the KConfigWidgets framework.")
(("^\\s*(QDirIterator it\\(.*, QDirIterator::Subdirectories)(\\);)" _ a b) (("^\\s*(QDirIterator it\\(.*, QDirIterator::Subdirectories)(\\);)" _ a b)
(string-append a " | QDirIterator::FollowSymlinks" b))) (string-append a " | QDirIterator::FollowSymlinks" b)))
(substitute* "CMakeLists.txt" (substitute* "CMakeLists.txt"
(("5\\.90\\.0") "5.92.0")) (("5\\.90\\.0") "5.92.0"))))
#t))
(replace 'check (replace 'check
(lambda* (#:key tests? #:allow-other-keys) (lambda* (#:key tests? #:allow-other-keys)
(when tests? (when tests?
(invoke "ctest" "-E" "kstandardactiontest")) (invoke "ctest" "-E" "kstandardactiontest")))))))
#t)))))
(home-page "https://community.kde.org/Frameworks") (home-page "https://community.kde.org/Frameworks")
(synopsis "Widgets for configuration dialogs") (synopsis "Widgets for configuration dialogs")
(description "KConfigWidgets provides easy-to-use classes to create (description "KConfigWidgets provides easy-to-use classes to create
@ -2471,8 +2447,7 @@ engine WebKit via QtWebKit.")
(lambda _ (lambda _
(setenv "HOME" (getcwd)) (setenv "HOME" (getcwd))
;; make Qt render "offscreen", required for tests ;; make Qt render "offscreen", required for tests
(setenv "QT_QPA_PLATFORM" "offscreen") (setenv "QT_QPA_PLATFORM" "offscreen"))))))
#t)))))
(home-page "https://community.kde.org/Frameworks") (home-page "https://community.kde.org/Frameworks")
(synopsis "Convert text emoticons to graphical emoticons") (synopsis "Convert text emoticons to graphical emoticons")
(description "KEmoticons converts emoticons from text to a graphical (description "KEmoticons converts emoticons from text to a graphical
@ -2551,8 +2526,7 @@ window does not need focus for them to be activated.")
"/share")) "/share"))
(setenv "HOME" (getcwd)) (setenv "HOME" (getcwd))
;; make Qt render "offscreen", required for tests ;; make Qt render "offscreen", required for tests
(setenv "QT_QPA_PLATFORM" "offscreen") (setenv "QT_QPA_PLATFORM" "offscreen"))))))
#t)))))
(home-page "https://community.kde.org/Frameworks") (home-page "https://community.kde.org/Frameworks")
(synopsis "Icon GUI utilities") (synopsis "Icon GUI utilities")
(description "This library contains classes to improve the handling of icons (description "This library contains classes to improve the handling of icons
@ -2585,8 +2559,7 @@ in applications using the KDE Frameworks.")
(substitute* "src/kdeinit/kinit.cpp" (substitute* "src/kdeinit/kinit.cpp"
(("GUIX_PKGS_KF5_KIO") (assoc-ref inputs "kio")) (("GUIX_PKGS_KF5_KIO") (assoc-ref inputs "kio"))
(("GUIX_PKGS_KF5_PARTS") (assoc-ref inputs "kparts")) (("GUIX_PKGS_KF5_PARTS") (assoc-ref inputs "kparts"))
(("GUIX_PKGS_KF5_PLASMA") (assoc-ref inputs "plasma-framework"))) (("GUIX_PKGS_KF5_PLASMA") (assoc-ref inputs "plasma-framework"))))))))
#t)))))
(native-search-paths (native-search-paths
(list (search-path-specification (list (search-path-specification
(variable "KDEINIT5_LIBRARY_PATH") (variable "KDEINIT5_LIBRARY_PATH")
@ -2688,8 +2661,7 @@ consumption.")
;; Better error message (taken from NixOS) ;; Better error message (taken from NixOS)
(substitute* "src/kiod/kiod_main.cpp" (substitute* "src/kiod/kiod_main.cpp"
(("(^\\s*qCWarning(KIOD_CATEGORY) << \"Error loading plugin:\")( << loader.errorString();)" _ a b) (("(^\\s*qCWarning(KIOD_CATEGORY) << \"Error loading plugin:\")( << loader.errorString();)" _ a b)
(string-append a "<< name" b))) (string-append a "<< name" b)))))
#t))
(replace 'check (replace 'check
(lambda* (#:key tests? #:allow-other-keys) (lambda* (#:key tests? #:allow-other-keys)
(when tests? (when tests?
@ -2717,8 +2689,7 @@ consumption.")
"|kiowidgets-kfileitemactionstest" "|kiowidgets-kfileitemactionstest"
"|kiowidgets-kurifiltertest-colon-separator" "|kiowidgets-kurifiltertest-colon-separator"
"|kiowidgets-kurifiltertest-space-separator" "|kiowidgets-kurifiltertest-space-separator"
"|kiofilewidgets-knewfilemenutest)"))) "|kiofilewidgets-knewfilemenutest)")))))
#t))
(add-after 'install 'add-symlinks (add-after 'install 'add-symlinks
;; Some package(s) (e.g. bluedevil) refer to these service types by ;; Some package(s) (e.g. bluedevil) refer to these service types by
;; the wrong name. I would prefer to patch those packages, but I ;; the wrong name. I would prefer to patch those packages, but I
@ -2785,8 +2756,7 @@ KIO enabled infrastructure.")
(lambda _ ; XDG_DATA_DIRS isn't set (lambda _ ; XDG_DATA_DIRS isn't set
(setenv "HOME" (getcwd)) (setenv "HOME" (getcwd))
;; make Qt render "offscreen", required for tests ;; make Qt render "offscreen", required for tests
(setenv "QT_QPA_PLATFORM" "offscreen") (setenv "QT_QPA_PLATFORM" "offscreen"))))))
#t)))))
(home-page "https://community.kde.org/Frameworks") (home-page "https://community.kde.org/Frameworks")
(synopsis "Framework for downloading and sharing additional application data") (synopsis "Framework for downloading and sharing additional application data")
(description "The KNewStuff library implements collaborative data sharing (description "The KNewStuff library implements collaborative data sharing
@ -2858,8 +2828,7 @@ notifications which can be embedded in your application.")
;; XXX: PartLoaderTest wants to create a .desktop file ;; XXX: PartLoaderTest wants to create a .desktop file
;; in the common locations and test that MIME types work. ;; in the common locations and test that MIME types work.
;; The setup required for this is extensive, skip for now. ;; The setup required for this is extensive, skip for now.
(("partloadertest\\.cpp") "")) (("partloadertest\\.cpp") "")))))))
#t)))))
(propagated-inputs (propagated-inputs
(list kio ktextwidgets kxmlgui)) (list kio ktextwidgets kxmlgui))
(native-inputs (native-inputs
@ -3028,8 +2997,7 @@ typed.")
;; Normalize path, but don't resolve symlinks (taken from ;; Normalize path, but don't resolve symlinks (taken from
;; NixOS) ;; NixOS)
(("^\\s*QString resolved = QDir\\(dir\\)\\.canonicalPath\\(\\);") (("^\\s*QString resolved = QDir\\(dir\\)\\.canonicalPath\\(\\);")
"QString resolved = QDir::cleanPath(dir);")) "QString resolved = QDir::cleanPath(dir);"))))
#t))
(replace 'check (replace 'check
(lambda* (#:key tests? #:allow-other-keys) (lambda* (#:key tests? #:allow-other-keys)
(when tests? (when tests?
@ -3098,14 +3066,12 @@ types or handled by application specific code.")
(add-after 'unpack 'setup (add-after 'unpack 'setup
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(setenv "XDG_DATA_DIRS" ; FIXME build phase doesn't find parts.desktop (setenv "XDG_DATA_DIRS" ; FIXME build phase doesn't find parts.desktop
(string-append (assoc-ref inputs "kparts") "/share")) (string-append (assoc-ref inputs "kparts") "/share"))))
#t))
(replace 'check (replace 'check
(lambda* (#:key tests? #:allow-other-keys) (lambda* (#:key tests? #:allow-other-keys)
(when tests? ;; Maybe locale issues with tests? (when tests? ;; Maybe locale issues with tests?
(setenv "QT_QPA_PLATFORM" "offscreen") (setenv "QT_QPA_PLATFORM" "offscreen")
(invoke "ctest" "-E" "(completion_test|kateview_test|movingrange_test)")) (invoke "ctest" "-E" "(completion_test|kateview_test|movingrange_test)"))))
#t))
(add-after 'install 'add-symlinks (add-after 'install 'add-symlinks
;; Some package(s) (e.g. plasma-sdk) refer to these service types ;; Some package(s) (e.g. plasma-sdk) refer to these service types
;; by the wrong name. I would prefer to patch those packages, but ;; by the wrong name. I would prefer to patch those packages, but
@ -3114,8 +3080,7 @@ types or handled by application specific code.")
(let ((kst5 (string-append (assoc-ref outputs "out") (let ((kst5 (string-append (assoc-ref outputs "out")
"/share/kservicetypes5/"))) "/share/kservicetypes5/")))
(symlink (string-append kst5 "ktexteditorplugin.desktop") (symlink (string-append kst5 "ktexteditorplugin.desktop")
(string-append kst5 "ktexteditor-plugin.desktop")) (string-append kst5 "ktexteditor-plugin.desktop"))))))))
#t))))))
(home-page "https://community.kde.org/Frameworks") (home-page "https://community.kde.org/Frameworks")
(synopsis "Full text editor component") (synopsis "Full text editor component")
(description "KTextEditor provides a powerful text editor component that you (description "KTextEditor provides a powerful text editor component that you
@ -3245,8 +3210,7 @@ the passwords on KDE work spaces.")
(lambda _ (lambda _
(setenv "HOME" (getcwd)) (setenv "HOME" (getcwd))
;; make Qt render "offscreen", required for tests ;; make Qt render "offscreen", required for tests
(setenv "QT_QPA_PLATFORM" "offscreen") (setenv "QT_QPA_PLATFORM" "offscreen"))))))
#t)))))
(home-page "https://community.kde.org/Frameworks") (home-page "https://community.kde.org/Frameworks")
(synopsis "Framework for managing menu and toolbar actions") (synopsis "Framework for managing menu and toolbar actions")
(description "KXMLGUI provides a framework for managing menu and toolbar (description "KXMLGUI provides a framework for managing menu and toolbar
@ -3362,8 +3326,7 @@ setUrl, setUserAgent and call.")
(invoke "ctest" "-E" (string-append "(plasma-dialogstatetest" (invoke "ctest" "-E" (string-append "(plasma-dialogstatetest"
"|plasma-iconitemtest" "|plasma-iconitemtest"
"|plasma-themetest" "|plasma-themetest"
"|dialognativetest)"))) "|dialognativetest)"))))))))
#t)))))
(home-page "https://community.kde.org/Frameworks") (home-page "https://community.kde.org/Frameworks")
(synopsis "Libraries, components and tools of Plasma workspaces") (synopsis "Libraries, components and tools of Plasma workspaces")
(description "The plasma framework provides QML components, libplasma and (description "The plasma framework provides QML components, libplasma and
@ -3473,8 +3436,7 @@ need.")
(lambda _ (lambda _
(setenv "HOME" (getcwd)) (setenv "HOME" (getcwd))
;; Make Qt render "offscreen", required for tests ;; Make Qt render "offscreen", required for tests
(setenv "QT_QPA_PLATFORM" "offscreen") (setenv "QT_QPA_PLATFORM" "offscreen"))))))
#t)))))
(home-page "https://community.kde.org/Frameworks") (home-page "https://community.kde.org/Frameworks")
(synopsis "KDE Frameworks 5 workspace and cross-framework integration plugins") (synopsis "KDE Frameworks 5 workspace and cross-framework integration plugins")
(description "Framework Integration is a set of plugins responsible for (description "Framework Integration is a set of plugins responsible for
@ -3568,8 +3530,7 @@ workspace.")
(lambda _ (lambda _
(substitute* "cmake/FindDocBookXML4.cmake" (substitute* "cmake/FindDocBookXML4.cmake"
(("^.*xml/docbook/schema/dtd.*$") (("^.*xml/docbook/schema/dtd.*$")
"xml/dtd/docbook\n")) "xml/dtd/docbook\n"))))
#t))
(delete 'check) (delete 'check)
(add-after 'install 'check-post-install (add-after 'install 'check-post-install
(lambda* (#:key inputs tests? #:allow-other-keys) (lambda* (#:key inputs tests? #:allow-other-keys)
@ -3815,8 +3776,7 @@ offers abstract functionality to deal with scripts.")
(lambda* (#:key tests? #:allow-other-keys) (lambda* (#:key tests? #:allow-other-keys)
(when tests? ;; Seems to require network. (when tests? ;; Seems to require network.
(invoke "ctest" "-E" (invoke "ctest" "-E"
"(kdav-davcollectionsmultifetchjobtest|kdav-davitemfetchjob)")) "(kdav-davcollectionsmultifetchjobtest|kdav-davitemfetchjob)")))))))
#t)))))
(home-page "https://invent.kde.org/frameworks/kdav") (home-page "https://invent.kde.org/frameworks/kdav")
(synopsis "DAV protocol implementation with KJobs") (synopsis "DAV protocol implementation with KJobs")
(description "This is a DAV protocol implementation with KJobs. Calendars (description "This is a DAV protocol implementation with KJobs. Calendars