gnu: kio: Fix indentation.

* gnu/packages/kde-frameworks.scm (kio): Fix indentation.
This commit is contained in:
Maxim Cournoyer 2023-02-08 22:58:24 -05:00
parent b123a814bf
commit 1ab68deba6
No known key found for this signature in database
GPG key ID: 1260E46482E63562

View file

@ -2703,54 +2703,56 @@ (define-public kio
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.