diff mbox series

[bug#65479,core-updates,v3,37/63] gnu: metapixel: Rewrite with G-Expressions.

Message ID fa4db81715988e3dc4eb87a75843e62e39d5b9c9.1696881354.git.mirai@makinata.eu
State New
Headers show
Series Docbook & XML/SGML improvements | expand

Commit Message

Bruno Victal Oct. 9, 2023, 8:06 p.m. UTC 
* gnu/packages/image-processing.scm (metapixel)[arguments]: Rewrite with
G-Expressions.
[inputs, native-inputs]: Drop labels.
---
 gnu/packages/image-processing.scm | 44 +++++++++++++++----------------
 1 file changed, 22 insertions(+), 22 deletions(-)
diff mbox series

Patch

diff --git a/gnu/packages/image-processing.scm b/gnu/packages/image-processing.scm
index 639d584c13..9627ee7303 100644
--- a/gnu/packages/image-processing.scm
+++ b/gnu/packages/image-processing.scm
@@ -1562,30 +1562,30 @@  (define-public metapixel
          (sha256
           (base32 "0r7n3a6bvcxkbpda4mwmrpicii09iql5z69nkjqygkwxw7ny3309"))))
       (build-system gnu-build-system)
+      (arguments
+       (list
+        #:tests? #f                    ; No tests.
+        #:make-flags
+        #~(list
+           (string-append "PREFIX=" #$output)
+           (format #f "MANPAGE_XSL=~a/xml/xsl/~a-~a/manpages/docbook.xsl"
+                   #$(this-package-native-input "docbook-xsl")
+                   #$(package-name
+                      (this-package-native-input "docbook-xsl"))
+                   #$(package-version
+                      (this-package-native-input "docbook-xsl"))))
+        #:phases
+        #~(modify-phases %standard-phases
+            (delete 'configure)
+            (add-before 'install 'fix-directory-creation
+              (lambda _
+                (mkdir-p (string-append #$output "/share/man/man1")))))))
       (inputs
-       `(("giflib" ,giflib)
-         ("libjpeg" ,libjpeg-turbo)
-         ("libpng" ,libpng)
-         ("perl" ,perl)))
+       (list giflib libjpeg-turbo libpng
+             perl))
       (native-inputs
-       `(("pkg-config" ,pkg-config)
-         ("docbook-xml" ,docbook-xml-4.2)
-         ("docbook-xsl" ,docbook-xsl)
-         ("xsltproc" ,libxslt)))
-      (arguments
-       `(#:tests? #f                    ; No tests.
-         #:make-flags (list
-                       (string-append "PREFIX=" (assoc-ref %outputs "out"))
-                       (string-append "MANPAGE_XSL="
-                                      (assoc-ref %build-inputs "docbook-xsl")
-                                      "/xml/xsl/docbook-xsl-*/manpages/docbook.xsl"))
-         #:phases
-         (modify-phases %standard-phases
-           (delete 'configure)
-           (add-before 'install 'fix-directory-creation
-             (lambda* (#:key outputs #:allow-other-keys)
-               (mkdir-p (string-append (assoc-ref outputs "out") "/share/man/man1"))
-               #t)))))
+       (list docbook-xml-4.2 docbook-xsl
+             libxslt pkg-config))
       (home-page "https://www.complang.tuwien.ac.at/schani/metapixel/")
       (synopsis "Photomosaics generator")
       (description "Metapixel is a program for generating photomosaics.  It can