diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-02-08 22:58:24 -0500 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-02-09 08:43:34 -0500 |
| commit | 1ab68deba643c38ee7bf4cdb8a2d251a01fb03d0 (patch) | |
| tree | bbd8251289726ab4b074bfc10d00fe7f1be73518 | |
| parent | b123a814bfae358b452a414a25740449b52979f1 (diff) | |
| download | guix-1ab68deba643c38ee7bf4cdb8a2d251a01fb03d0.tar guix-1ab68deba643c38ee7bf4cdb8a2d251a01fb03d0.tar.gz | |
gnu: kio: Fix indentation.
* gnu/packages/kde-frameworks.scm (kio): Fix indentation.
| -rw-r--r-- | gnu/packages/kde-frameworks.scm | 94 |
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. |