diff options
| author | Marius Bakke <marius@gnu.org> | 2021-07-31 13:33:54 +0200 |
|---|---|---|
| committer | Marius Bakke <marius@gnu.org> | 2021-08-01 23:24:47 +0200 |
| commit | 1f82eeec8d2190a85cee1ab630470a01bb3e968c (patch) | |
| tree | 9275eca42e2f89b3b98954d6dd535fe0bc85e454 /gnu | |
| parent | 317313a1780e93266e88cf141690d8a5426185b5 (diff) | |
| download | guix-1f82eeec8d2190a85cee1ab630470a01bb3e968c.tar.gz | |
gnu: mg: Update style.
* gnu/packages/text-editors.scm (mg)[native-inputs, inputs]: Remove labels. [arguments]: Use SEARCH-INPUT-FILE and #$OUTPUT in phases.
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/packages/text-editors.scm | 20 |
1 files 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") |