03/04: gnu: mg: Update style.

[guix-commits]

mbakke pushed a commit to branch core-updates-frozen
in repository guix.

commit 1f82eeec8d2190a85cee1ab630470a01bb3e968c
Author: Marius Bakke <marius@gnu.org>
AuthorDate: Sat Jul 31 13:33:54 2021 +0200

    gnu: mg: Update style.
    
    * gnu/packages/text-editors.scm (mg)[native-inputs, inputs]: Remove labels.
    [arguments]: Use SEARCH-INPUT-FILE and #$OUTPUT in phases.
---
 gnu/packages/text-editors.scm | 20 +++++++-------------
 1 file changed, 7 insertions(+), 13 deletions(-)

diff --git a/gnu/packages/text-editors.scm b/gnu/packages/text-editors.scm
index 148c97d..fe70dbd 100644
--- a/gnu/packages/text-editors.scm
+++ b/gnu/packages/text-editors.scm
@@ -522,12 +522,8 @@ Wordstar-, EMACS-, Pico, Nedit or vi-like key bindings.  
e3 can be used on
                           (substitute* "GNUmakefile"
                             (("/usr/bin/") ""))))))
     (build-system gnu-build-system)
-    (native-inputs
-     `(("pkg-config" ,pkg-config)))
-    (inputs
-     `(("diffutils" ,diffutils)
-       ("libbsd" ,libbsd)
-       ("ncurses" ,ncurses)))
+    (native-inputs (list pkg-config))
+    (inputs (list diffutils libbsd ncurses))
     (arguments
      ;; No test suite available.
      (list #:tests? #f
@@ -542,16 +538,14 @@ Wordstar-, EMACS-, Pico, Nedit or vi-like key bindings.  
e3 can be used on
                  (lambda* (#:key inputs #:allow-other-keys)
                    (substitute* "buffer.c"
                      (("/usr/bin/diff")
-                      (string-append (assoc-ref inputs "diffutils")
-                                     "/bin/diff")))))
+                      (search-input-file inputs "/bin/diff")))))
                (add-before 'install 'patch-tutorial-location
-                 (lambda* (#:key outputs #:allow-other-keys)
+                 (lambda _
                    (substitute* "mg.1"
-                     (("/usr") (assoc-ref outputs "out")))))
+                     (("/usr") #$output))))
                (add-after 'install 'install-tutorial
-                 (lambda* (#:key outputs #:allow-other-keys)
-                   (let* ((out (assoc-ref outputs "out"))
-                          (doc (string-append out "/share/doc/mg")))
+                 (lambda _
+                   (let ((doc (string-append #$output "/share/doc/mg")))
                      (install-file "tutorial" doc)))))))
     (home-page "https://homepage.boetes.org/software/mg/";)
     (synopsis "Microscopic GNU Emacs clone")