nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: transfig: Return #t from phases. 

* gnu/packages/xfig.scm (transfig)[arguments]: Substitute INVOKE for
SYSTEM*. Return #t rather than undefined from phases.
This commit is contained in:
Tobias Geerinckx-Rice 2018-06-25 00:09:32 +02:00
parent dcfdaa15de
commit 6c91c0f346
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gnu/packages/xfig.scm
View File

@ -119,7 +119,7 @@ selected in various ways. For text, 35 fonts are available.")
(("/usr/local/lib/fig2dev") (string-append out "/lib"))) (("/usr/local/lib/fig2dev") (string-append out "/lib")))
;; The -a argument is required in order to pick up the correct paths ;; The -a argument is required in order to pick up the correct paths
;; to several X header files. ;; to several X header files.
(zero? (system* "xmkmf" "-a")) (invoke "xmkmf" "-a")
(substitute* '("Makefile" (substitute* '("Makefile"
"fig2dev/Makefile" "fig2dev/Makefile"
"transfig/Makefile") "transfig/Makefile")
@ -130,10 +130,11 @@ selected in various ways. For text, 35 fonts are available.")
(("(MANPATH = )[[:graph:]]*" _ front) (("(MANPATH = )[[:graph:]]*" _ front)
(string-append front out "/share/man")) (string-append front out "/share/man"))
(("(CONFDIR = )([[:graph:]]*)" _ front default) (("(CONFDIR = )([[:graph:]]*)" _ front default)
(string-append front out default)))))) (string-append front out default)))
#t)))
(add-after 'install 'install/doc (add-after 'install 'install/doc
(lambda _ (lambda _
(zero? (system* "make" "install.man"))))))) (invoke "make" "install.man"))))))
(home-page "http://mcj.sourceforge.net/") (home-page "http://mcj.sourceforge.net/")
(synopsis "Create portable LaTeX figures") (synopsis "Create portable LaTeX figures")
(description (description