me/guix
Archived
1
0
Fork 0
Code Activity

gnu: kio: Fix indentation.

Browse source 
* 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
1 changed files with 48 additions and 46 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -2703,54 +2703,56 @@ consumption.")
qtscript qtscript
qtx11extras qtx11extras
sonnet sonnet
`(,util-linux "lib") ; libmount `(,util-linux "lib") ; libmount
zlib)) zlib))
(arguments (arguments
(list #:phases (list
#~(modify-phases %standard-phases #:phases
(add-after 'unpack 'patch #~(modify-phases %standard-phases
(lambda _ (add-after 'unpack 'patch
;; Better error message (taken from NixOS) (lambda _
(substitute* "src/kiod/kiod_main.cpp" ;; Better error message (taken from NixOS)
(("(^\\s*qCWarning(KIOD_CATEGORY) << \"Error loading plugin:\")( << loader.errorString();)" _ a b) (substitute* "src/kiod/kiod_main.cpp"
(string-append a "<< name" b))))) (("(^\\s*qCWarning(KIOD_CATEGORY) << \
(replace 'check \"Error loading plugin:\")( << loader.errorString();)" _ a b)
(lambda* (#:key tests? #:allow-other-keys) (string-append a "<< name" b)))))
(when tests? (replace 'check
(setenv "HOME" (getcwd)) (lambda* (#:key tests? #:allow-other-keys)
(setenv "XDG_RUNTIME_DIR" (getcwd)) (when tests?
(setenv "QT_QPA_PLATFORM" "offscreen") (setenv "HOME" (getcwd))
(setenv "DBUS_FATAL_WARNINGS" "0") (setenv "XDG_RUNTIME_DIR" (getcwd))
(invoke "dbus-launch" "ctest" (setenv "QT_QPA_PLATFORM" "offscreen")
"-E" (setenv "DBUS_FATAL_WARNINGS" "0")
;; The following tests fail or are flaky (see: (invoke "dbus-launch" "ctest"
;; https://bugs.kde.org/show_bug.cgi?id=440721). "-E"
(string-append "(kiocore-jobtest" ;; The following tests fail or are flaky (see:
"|kiocore-kmountpointtest" ;; https://bugs.kde.org/show_bug.cgi?id=440721).
"|kiowidgets-kdirlistertest" (string-append "(kiocore-jobtest"
"|kiocore-kfileitemtest" "|kiocore-kmountpointtest"
"|kiocore-ktcpsockettest" "|kiowidgets-kdirlistertest"
"|kiocore-mimetypefinderjobtest" "|kiocore-kfileitemtest"
"|kiocore-krecentdocumenttest" "|kiocore-ktcpsockettest"
"|kiocore-http_jobtest" "|kiocore-mimetypefinderjobtest"
"|kiogui-openurljobtest" "|kiocore-krecentdocumenttest"
"|applicationlauncherjob_forkingtest" "|kiocore-http_jobtest"
"|applicationlauncherjob_scopetest" "|kiogui-openurljobtest"
"|applicationlauncherjob_servicetest" "|applicationlauncherjob_forkingtest"
"|commandlauncherjob_forkingtest" "|applicationlauncherjob_scopetest"
"|commandlauncherjob_scopetest" "|applicationlauncherjob_servicetest"
"|commandlauncherjob_servicetest" "|commandlauncherjob_forkingtest"
"|kiowidgets-kdirmodeltest" "|commandlauncherjob_scopetest"
"|kiowidgets-kurifiltertest-colon-separator" "|commandlauncherjob_servicetest"
"|kiowidgets-kurifiltertest-space-separator)"))))) "|kiowidgets-kdirmodeltest"
(add-after 'install 'add-symlinks "|kiowidgets-kurifiltertest-colon-separator"
;; Some package(s) (e.g. bluedevil) refer to these service types by "|kiowidgets-kurifiltertest-space-separator)")))))
;; the wrong name. I would prefer to patch those packages, but I (add-after 'install 'add-symlinks
;; cannot find the files! ;; Some package(s) (e.g. bluedevil) refer to these service types by
(lambda* (#:key outputs #:allow-other-keys) ;; the wrong name. I would prefer to patch those packages, but I
(let ((kst5 (string-append #$output "/share/kservicetypes5/"))) ;; cannot find the files!
(symlink (string-append kst5 "kfileitemactionplugin.desktop") (lambda* (#:key outputs #:allow-other-keys)
(string-append kst5 "kfileitemaction-plugin.desktop")))))))) (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") (home-page "https://community.kde.org/Frameworks")
(synopsis "Network transparent access to files and data") (synopsis "Network transparent access to files and data")
(description "This framework implements a lot of file management functions. (description "This framework implements a lot of file management functions.