From 2fee9280b1d8746def745ec598742158b9469f42 Mon Sep 17 00:00:00 2001
From: Cayetano Santos <csantosb@inventati.org>
Date: Thu, 25 Sep 2025 10:44:06 +0200
Subject: [PATCH] gnu: hpenc: Improve style.

* gnu/packages/crypto.scm (hpenc)[arguments]: Use G-Expressions.

Change-Id: If76c7c198a344ed2ec52b5af94415a081b1036f6
---
 gnu/packages/crypto.scm | 39 ++++++++++++++++++---------------------
 1 file changed, 18 insertions(+), 21 deletions(-)

diff --git a/gnu/packages/crypto.scm b/gnu/packages/crypto.scm
index bf0cc900ca93223e000c2e02ca6f159995497423..f3f50e780722ad8dd267c86466465d08728ab6a8 100644
--- a/gnu/packages/crypto.scm
+++ b/gnu/packages/crypto.scm
@@ -1273,27 +1273,24 @@ utility/testing functions.")
                 "1fb5yi3d2k8kd4zm7liiqagpz610y168xrr1cvn7cbq314jm2my1"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:tests? #f ; No test suite
-       #:make-flags
-       (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
-             ;; Build the program and the docs.
-             "SUBDIRS=src doc")
-       #:phases
-       (modify-phases %standard-phases
-         (delete 'configure) ; No ./configure script
-         (add-after 'unpack 'patch-path
-           (lambda _
-             (substitute* '("src/Makefile" "doc/Makefile")
-               (("/usr/bin/install")
-                "install"))))
-         (add-before 'install 'make-output-directories
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let* ((out (assoc-ref outputs "out"))
-                    (bin (string-append out "/bin"))
-                    (man1 (string-append out "/share/man/man1")))
-               (mkdir-p bin)
-               (mkdir-p man1)
-               #t))))))
+     (list
+      #:tests? #f ; No test suite
+      #:make-flags
+      #~(list (string-append "PREFIX=" #$output)
+              ;; Build the program and the docs.
+              "SUBDIRS=src doc")
+      #:phases
+      #~(modify-phases %standard-phases
+          (delete 'configure) ; No ./configure script
+          (add-after 'unpack 'patch-path
+            (lambda _
+              (substitute* '("src/Makefile" "doc/Makefile")
+                (("/usr/bin/install")
+                 "install"))))
+          (add-before 'install 'make-output-directories
+            (lambda _
+              (mkdir-p (string-append #$output "/bin"))
+              (mkdir-p (string-append #$output "/share/man/man1")))))))
     (inputs
      (list libsodium openssl))
     (synopsis "High-performance command-line tool for stream encryption")