diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2022-02-18 22:14:04 +0100 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2022-02-18 22:14:04 +0100 |
| commit | b118988e40c9d84aab526ef1b9f786eac5392211 (patch) | |
| tree | 4b64043c4e95a95cf9c4e5751a64c224adb7194d | |
| parent | 8e7b091c2918367a010c2bf3cfc004f267fce52e (diff) | |
| download | guix-patches-b118988e40c9d84aab526ef1b9f786eac5392211.tar guix-patches-b118988e40c9d84aab526ef1b9f786eac5392211.tar.gz | |
gnu: emacs-graphviz-dot-mode: Fix build.
* gnu/packages/emacs-xyz.scm (emacs-graphviz-dot-mode)[argument]: Use G-expressions.
| -rw-r--r-- | gnu/packages/emacs-xyz.scm | 37 |
1 files changed, 19 insertions, 18 deletions
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm index c5401624d9..a8f29a0403 100644 --- a/gnu/packages/emacs-xyz.scm +++ b/gnu/packages/emacs-xyz.scm @@ -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 |