aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/kde-frameworks.scm
diff options
context:
space:
mode:
authorMaxim Cournoyer <maxim.cournoyer@gmail.com>2023-02-08 22:58:24 -0500
committerMaxim Cournoyer <maxim.cournoyer@gmail.com>2023-02-09 08:43:34 -0500
commit1ab68deba643c38ee7bf4cdb8a2d251a01fb03d0 (patch)
treebbd8251289726ab4b074bfc10d00fe7f1be73518 /gnu/packages/kde-frameworks.scm
parentb123a814bfae358b452a414a25740449b52979f1 (diff)
downloadguix-1ab68deba643c38ee7bf4cdb8a2d251a01fb03d0.tar.gz
guix-1ab68deba643c38ee7bf4cdb8a2d251a01fb03d0.zip
gnu: kio: Fix indentation.
* gnu/packages/kde-frameworks.scm (kio): Fix indentation.
Diffstat (limited to 'gnu/packages/kde-frameworks.scm')
-rw-r--r--gnu/packages/kde-frameworks.scm94
1 files 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.