gnu: octave-cli: Improve style.

* gnu/packages/maths.scm (octave-cli)[arguments]: Run guix style.
  <#:phases>{configure-makeinfo}: Rewrite to use search-input-file.

Merges: https://codeberg.org/guix/guix/pulls/7884
Signed-off-by: Nguyễn Gia Phong <cnx@loang.net>

1 files changed, 18 insertions, 17 deletions

diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm
index a1bdb41a309..7740b3cbf41 100644
--- a/gnu/packages/maths.scm
+++ b/gnu/packages/maths.scm
@@ -3594,23 +3594,24 @@ can solve two kinds of problems:
             (variable "CURLOPT_CAPATH")
             (files '("etc/ssl/certs")))))
     (arguments
-     `(#:configure-flags
-       (list (string-append "--with-shell="
-                            (assoc-ref %build-inputs "bash")
-                            "/bin/sh")
-
-             ;; XXX: Without this flag, linking octave-cli fails with
-             ;; undefined references to 'logf@GLIBCXX_3.4' et.al. due to
-             ;; not pulling in liboctinterp.la for -lstdc++.
-             "--enable-link-all-dependencies")
-       #:phases
-       (modify-phases %standard-phases
-         (add-after 'configure 'configure-makeinfo
-           (lambda* (#:key inputs #:allow-other-keys)
-             (substitute* "libinterp/corefcn/help.h"
-               (("\"makeinfo\"")
-                (string-append
-                 "\"" (assoc-ref inputs "texinfo") "/bin/makeinfo\""))))))))
+     (list
+      #:configure-flags
+      #~(list (string-append "--with-shell="
+                             (assoc-ref %build-inputs "bash")
+                             "/bin/sh")
+
+              ;; XXX: Without this flag, linking octave-cli fails with
+              ;; undefined references to 'logf@GLIBCXX_3.4' et.al. due to
+              ;; not pulling in liboctinterp.la for -lstdc++.
+              "--enable-link-all-dependencies")
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'configure 'configure-makeinfo
+            (lambda* (#:key inputs #:allow-other-keys)
+              (substitute* "libinterp/corefcn/help.h"
+                (("\"makeinfo\"")
+                 (format #f "~s"
+                         (search-input-file inputs "bin/makeinfo")))))))))
     (home-page "https://www.gnu.org/software/octave/")
     (synopsis "High-level language for numerical computation (no GUI)")
     (description "GNU Octave is a high-level interpreted language that is