From 1f82eeec8d2190a85cee1ab630470a01bb3e968c Mon Sep 17 00:00:00 2001 From: Marius Bakke Date: Sat, 31 Jul 2021 13:33:54 +0200 Subject: 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 148c97dd01..fe70dbd75e 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") -- cgit v1.2.3