gnu: emacs-graphviz-dot-mode: Fix build.

* gnu/packages/emacs-xyz.scm (emacs-graphviz-dot-mode)[argument]: Use G-expressions.
This commit is contained in:
Nicolas Goaziou 2022-02-18 22:14:04 +01:00
parent 8e7b091c29
commit b118988e40
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D

View file

@ -3302,24 +3302,25 @@ (define-public emacs-graphviz-dot-mode
(base32 "1v1p85wk73nfsvv66qf90flgf9dqhmv15z1r7q4zmc4ifklqn08m"))))
(build-system emacs-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-before 'install 'make-info
(lambda* (#:key inputs #:allow-other-keys)
(with-directory-excursion "texinfo"
(substitute* "Makefile"
(("\\/usr\\/bin\\/gzip")
(search-input-file inputs "/bin/gzip")))
(invoke "make"
"clean"
"info"
(string-append "TEXINFODIR="
(assoc-ref inputs "texinfo")
"/bin")))))
(add-after 'install 'install-info
(lambda _
(let ((info (string-append #$output "/share/info")))
(install-file "texinfo/graphviz-dot-mode.info.gz" info)))))))
(list
#:phases
#~(modify-phases %standard-phases
(add-before 'install 'make-info
(lambda* (#:key inputs #:allow-other-keys)
(with-directory-excursion "texinfo"
(substitute* "Makefile"
(("\\/usr\\/bin\\/gzip")
(search-input-file inputs "/bin/gzip")))
(invoke "make"
"clean"
"info"
(string-append "TEXINFODIR="
#$(this-package-native-input "texinfo")
"/bin")))))
(add-after 'install 'install-info
(lambda _
(let ((info (string-append #$output "/share/info")))
(install-file "texinfo/graphviz-dot-mode.info.gz" info)))))))
(native-inputs
(list gzip texinfo))
(propagated-inputs