From 238e4ec73e4143f3a5a85b56ca00d395cdf60197 Mon Sep 17 00:00:00 2001
From: Sharlatan Hellseher <sharlatanus@gmail.com>
Date: Sat, 13 Apr 2024 13:43:44 +0100
Subject: gnu: ploticus: Refresh package style.

* gnu/packages/plotutils.scm (ploticus): Apply G-expressions to refresh
package style.

Change-Id: Iabf465a9bd4e02c1087b117533dbbf0b4c1a3f14
---
 gnu/packages/plotutils.scm | 60 +++++++++++++++++++++-------------------------
 1 file changed, 27 insertions(+), 33 deletions(-)

(limited to 'gnu/packages/plotutils.scm')

diff --git a/gnu/packages/plotutils.scm b/gnu/packages/plotutils.scm
index 84fb5fa7ac..d0cc1bc842 100644
--- a/gnu/packages/plotutils.scm
+++ b/gnu/packages/plotutils.scm
@@ -310,41 +310,35 @@ (define-public ploticus
               (modules '((guix build utils)))
               (snippet
                ;; Install binaries in the right place.
-               '(begin
-                  (substitute* "src/Makefile"
-                    (("INSTALLBIN =.*$")
-                     (string-append "INSTALLBIN = $(out)/bin")))
-                  #t))))
+               #~(begin
+                   (substitute* "src/Makefile"
+                     (("INSTALLBIN =.*$")
+                      (string-append "INSTALLBIN = $(out)/bin")))))))
     (build-system gnu-build-system)
     (arguments
-     '(#:tests? #f
-       #:phases
-       (modify-phases %standard-phases
-         (replace 'configure (lambda _ (chdir "src")))
-         (add-before 'install 'make-target-directories
-                     (lambda* (#:key outputs #:allow-other-keys)
-                       (let ((out (assoc-ref outputs "out")))
-                         (mkdir-p (string-append out "/bin"))
-                         #t)))
-         (add-after 'install 'install-prefabs
-                    (lambda* (#:key outputs #:allow-other-keys)
-                      (let* ((out (assoc-ref outputs "out"))
-                             (dir (string-append out
-                                                 "/share/ploticus/prefabs"))
-                             (bin (string-append out "/bin")))
-                        (mkdir-p dir)
-
-                        ;; Install "prefabs".
-                        (for-each (lambda (file)
-                                    (let ((target
-                                           (string-append dir "/"
-                                                          (basename file))))
-                                      (copy-file file target)))
-                                  (find-files "../prefabs" "."))
-
-                        ;; Allow them to be found.
-                        (wrap-program (string-append bin "/pl")
-                          `("PLOTICUS_PREFABS" ":" = (,dir)))))))))
+     (list
+      #:tests? #f ; no tests
+      #:phases
+      #~(modify-phases %standard-phases
+          (replace 'configure (lambda _ (chdir "src")))
+          (add-before 'install 'make-target-directories
+            (lambda _
+              (mkdir-p (string-append #$output "/bin"))))
+          (add-after 'install 'install-prefabs
+            (lambda _
+              (let* ((out #$output)
+                     (dir (string-append out "/share/ploticus/prefabs"))
+                     (bin (string-append out "/bin")))
+                (mkdir-p dir)
+                ;; Install "prefabs".
+                (for-each
+                 (lambda (file)
+                   (let ((target (string-append dir "/" (basename file))))
+                     (copy-file file target)))
+                 (find-files "../prefabs" "."))
+                ;; Allow them to be found.
+                (wrap-program (string-append bin "/pl")
+                  `("PLOTICUS_PREFABS" ":" = (,dir)))))))))
     (inputs
      (list libpng libx11 zlib))
     (home-page "https://ploticus.sourceforge.net/")
-- 
cgit v1.2.3