From 1ab68deba643c38ee7bf4cdb8a2d251a01fb03d0 Mon Sep 17 00:00:00 2001
From: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Date: Wed, 8 Feb 2023 22:58:24 -0500
Subject: 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 @@ (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.
-- 
cgit v1.2.3