me
/
guix
Archived
1
0
Fork 0
Code

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

* gnu/packages/emacs-xyz.scm (emacs-graphviz-dot-mode)[argument]: Use G-expressions.
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
1 changed files with 19 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
gnu/packages/emacs-xyz.scm
View File

@ -3302,24 +3302,25 @@ directly inside Emacs. It requires a Google Map Static API key to function.")
(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