[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/03: gnu: kio: Fix indentation.
|
From: |
guix-commits |
|
Subject: |
02/03: gnu: kio: Fix indentation. |
|
Date: |
Thu, 9 Feb 2023 08:49:15 -0500 (EST) |
apteryx pushed a commit to branch master
in repository guix.
commit 1ab68deba643c38ee7bf4cdb8a2d251a01fb03d0
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Wed Feb 8 22:58:24 2023 -0500
gnu: kio: Fix indentation.
* gnu/packages/kde-frameworks.scm (kio): Fix indentation.
---
gnu/packages/kde-frameworks.scm | 94 +++++++++++++++++++++--------------------
1 file changed, 48 insertions(+), 46 deletions(-)
diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm
index ae0e7f894d..71ee9ea895 100644
--- a/gnu/packages/kde-frameworks.scm
+++ b/gnu/packages/kde-frameworks.scm
@@ -2703,54 +2703,56 @@ consumption.")
qtscript
qtx11extras
sonnet
- `(,util-linux "lib") ; libmount
+ `(,util-linux "lib") ; libmount
zlib))
(arguments
- (list #:phases
- #~(modify-phases %standard-phases
- (add-after 'unpack 'patch
- (lambda _
- ;; Better error message (taken from NixOS)
- (substitute* "src/kiod/kiod_main.cpp"
- (("(^\\s*qCWarning(KIOD_CATEGORY) << \"Error loading
plugin:\")( << loader.errorString();)" _ a b)
- (string-append a "<< name" b)))))
- (replace 'check
- (lambda* (#:key tests? #:allow-other-keys)
- (when tests?
- (setenv "HOME" (getcwd))
- (setenv "XDG_RUNTIME_DIR" (getcwd))
- (setenv "QT_QPA_PLATFORM" "offscreen")
- (setenv "DBUS_FATAL_WARNINGS" "0")
- (invoke "dbus-launch" "ctest"
- "-E"
- ;; The following tests fail or are flaky (see:
- ;; https://bugs.kde.org/show_bug.cgi?id=440721).
- (string-append "(kiocore-jobtest"
- "|kiocore-kmountpointtest"
- "|kiowidgets-kdirlistertest"
- "|kiocore-kfileitemtest"
- "|kiocore-ktcpsockettest"
- "|kiocore-mimetypefinderjobtest"
- "|kiocore-krecentdocumenttest"
- "|kiocore-http_jobtest"
- "|kiogui-openurljobtest"
- "|applicationlauncherjob_forkingtest"
- "|applicationlauncherjob_scopetest"
- "|applicationlauncherjob_servicetest"
- "|commandlauncherjob_forkingtest"
- "|commandlauncherjob_scopetest"
- "|commandlauncherjob_servicetest"
- "|kiowidgets-kdirmodeltest"
-
"|kiowidgets-kurifiltertest-colon-separator"
-
"|kiowidgets-kurifiltertest-space-separator)")))))
- (add-after 'install 'add-symlinks
- ;; Some package(s) (e.g. bluedevil) refer to these service types by
- ;; the wrong name. I would prefer to patch those packages, but I
- ;; cannot find the files!
- (lambda* (#:key outputs #:allow-other-keys)
- (let ((kst5 (string-append #$output "/share/kservicetypes5/")))
- (symlink (string-append kst5 "kfileitemactionplugin.desktop")
- (string-append kst5
"kfileitemaction-plugin.desktop"))))))))
+ (list
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'patch
+ (lambda _
+ ;; Better error message (taken from NixOS)
+ (substitute* "src/kiod/kiod_main.cpp"
+ (("(^\\s*qCWarning(KIOD_CATEGORY) << \
+\"Error loading plugin:\")( << loader.errorString();)" _ a b)
+ (string-append a "<< name" b)))))
+ (replace 'check
+ (lambda* (#:key tests? #:allow-other-keys)
+ (when tests?
+ (setenv "HOME" (getcwd))
+ (setenv "XDG_RUNTIME_DIR" (getcwd))
+ (setenv "QT_QPA_PLATFORM" "offscreen")
+ (setenv "DBUS_FATAL_WARNINGS" "0")
+ (invoke "dbus-launch" "ctest"
+ "-E"
+ ;; The following tests fail or are flaky (see:
+ ;; https://bugs.kde.org/show_bug.cgi?id=440721).
+ (string-append "(kiocore-jobtest"
+ "|kiocore-kmountpointtest"
+ "|kiowidgets-kdirlistertest"
+ "|kiocore-kfileitemtest"
+ "|kiocore-ktcpsockettest"
+ "|kiocore-mimetypefinderjobtest"
+ "|kiocore-krecentdocumenttest"
+ "|kiocore-http_jobtest"
+ "|kiogui-openurljobtest"
+ "|applicationlauncherjob_forkingtest"
+ "|applicationlauncherjob_scopetest"
+ "|applicationlauncherjob_servicetest"
+ "|commandlauncherjob_forkingtest"
+ "|commandlauncherjob_scopetest"
+ "|commandlauncherjob_servicetest"
+ "|kiowidgets-kdirmodeltest"
+
"|kiowidgets-kurifiltertest-colon-separator"
+
"|kiowidgets-kurifiltertest-space-separator)")))))
+ (add-after 'install 'add-symlinks
+ ;; Some package(s) (e.g. bluedevil) refer to these service types by
+ ;; the wrong name. I would prefer to patch those packages, but I
+ ;; cannot find the files!
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let ((kst5 (string-append #$output "/share/kservicetypes5/")))
+ (symlink (string-append kst5 "kfileitemactionplugin.desktop")
+ (string-append kst5
"kfileitemaction-plugin.desktop"))))))))
(home-page "https://community.kde.org/Frameworks";)
(synopsis "Network transparent access to files and data")
(description "This framework implements a lot of file management functions.