Subject: [PATCH 048/209] gnu: kdoctools: use G-expressions.

From: Zheng Junjie <[email-masked]>
Date: Sun, 23 Jul 2023 16:44:28 +0800

* gnu/packages/kde-frameworks.scm (kdoctools)[arguments]:
Rewrite as G-expressions.
---
 gnu/packages/kde-frameworks.scm | 46 +++++++++++++++++----------------
 1 file changed, 24 insertions(+), 22 deletions(-)

diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm
index 91b6262311..d8429576a3 100644
--- a/gnu/packages/kde-frameworks.scm
+++ b/gnu/packages/kde-frameworks.scm
@@ -1705,28 +1705,30 @@ (define-public kdoctools
            perl-uri
            qtbase-5))
     (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (add-after 'unpack 'cmake-find-docbook
-           (lambda* (#:key inputs #:allow-other-keys)
-             (substitute* (find-files "cmake" "\\.cmake$")
-               (("CMAKE_SYSTEM_PREFIX_PATH")
-                "CMAKE_PREFIX_PATH"))
-             (substitute* "cmake/FindDocBookXML4.cmake"
-               (("^.*xml/docbook/schema/dtd.*$")
-                "xml/dtd/docbook\n"))
-             (substitute* "cmake/FindDocBookXSL.cmake"
-               (("^.*xml/docbook/stylesheet.*$")
-                (string-append "xml/xsl/docbook-xsl-"
-                               ,(package-version docbook-xsl) "\n")))))
-         (add-after 'install 'add-symlinks
-           ;; Some package(s) (e.g. kdelibs4support) refer to this locale by a
-           ;; different spelling.
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let ((xsl (string-append (assoc-ref outputs "out")
-                                       "/share/kf5/kdoctools/customization/xsl/")))
-               (symlink (string-append xsl "pt_br.xml")
-                        (string-append xsl "pt-BR.xml"))))))))
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'cmake-find-docbook
+            (lambda* (#:key inputs #:allow-other-keys)
+              (substitute* (find-files "cmake" "\\.cmake$")
+                (("CMAKE_SYSTEM_PREFIX_PATH")
+                 "CMAKE_PREFIX_PATH"))
+              (substitute* "cmake/FindDocBookXML4.cmake"
+                (("^.*xml/docbook/schema/dtd.*$")
+                 "xml/dtd/docbook\n"))
+              (substitute* "cmake/FindDocBookXSL.cmake"
+                (("^.*xml/docbook/stylesheet.*$")
+                 (string-append "xml/xsl/docbook-xsl-"
+                                #$(package-version docbook-xsl)
+                                "\n")))))
+          (add-after 'install 'add-symlinks
+            ;; Some package(s) (e.g. kdelibs4support) refer to this locale by a
+            ;; different spelling.
+            (lambda* (#:key outputs #:allow-other-keys)
+              (let ((xsl (string-append (assoc-ref outputs "out")
+                                        "/share/kf5/kdoctools/customization/xsl/")))
+                (symlink (string-append xsl "pt_br.xml")
+                         (string-append xsl "pt-BR.xml"))))))))
     (home-page "https://community.kde.org/Frameworks")
     (synopsis "Create documentation from DocBook")
     (description "Provides tools to generate documentation in various format
-- 
2.41.0