ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-28 07:12:30 -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" (substitute* "GNUmakefile"
(("/usr/bin/") "")))))) (("/usr/bin/") ""))))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs (list pkg-config))
`(("pkg-config" ,pkg-config))) (inputs (list diffutils libbsd ncurses))
(inputs
`(("diffutils" ,diffutils)
("libbsd" ,libbsd)
("ncurses" ,ncurses)))
(arguments (arguments
;; No test suite available. ;; No test suite available.
(list #:tests? #f (list #:tests? #f
@ -542,16 +538,14 @@ (define-public mg
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(substitute* "buffer.c" (substitute* "buffer.c"
(("/usr/bin/diff") (("/usr/bin/diff")
(string-append (assoc-ref inputs "diffutils") (search-input-file inputs "/bin/diff")))))
"/bin/diff")))))
(add-before 'install 'patch-tutorial-location (add-before 'install 'patch-tutorial-location
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(substitute* "mg.1" (substitute* "mg.1"
(("/usr") (assoc-ref outputs "out"))))) (("/usr") #$output))))
(add-after 'install 'install-tutorial (add-after 'install 'install-tutorial
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let* ((out (assoc-ref outputs "out")) (let ((doc (string-append #$output "/share/doc/mg")))
(doc (string-append out "/share/doc/mg")))
(install-file "tutorial" doc))))))) (install-file "tutorial" doc)))))))
(home-page "https://homepage.boetes.org/software/mg/") (home-page "https://homepage.boetes.org/software/mg/")
(synopsis "Microscopic GNU Emacs clone") (synopsis "Microscopic GNU Emacs clone")