ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 23:46:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: mg: Update style.

Browse source 
* gnu/packages/text-editors.scm (mg)[native-inputs, inputs]: Remove labels.
[arguments]: Use SEARCH-INPUT-FILE and #$OUTPUT in phases.
This commit is contained in:
Marius Bakke 2021-07-31 13:33:54 +02:00
parent 317313a178
commit 1f82eeec8d
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA
1 changed files with 7 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
gnu/packages/text-editors.scm
View file

@ -522,12 +522,8 @@ (define-public mg
(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 @@ (define-public mg
(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")