gnu: graphviz: Use modify-phases.

* gnu/packages/graphviz.scm (graphviz): Re-indent.
[arguments]: Use modify-phases instead of alist-cons-before and
alist-cons-after.
Return #t from move-guile-bindings phase.
This commit is contained in:
Arun Isaac 2017-07-12 19:55:54 +05:30
parent 78a81e37cd
commit 2170cc76d4
No known key found for this signature in database
GPG key ID: 2E25EE8B61802BB3

View file

@ -46,49 +46,47 @@ (define-public graphviz
(name "graphviz") (name "graphviz")
(version "2.38.0") (version "2.38.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
"http://www.graphviz.org/pub/graphviz/ARCHIVE/graphviz-" "http://www.graphviz.org/pub/graphviz/ARCHIVE/graphviz-"
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"17l5czpvv5ilmg17frg0w4qwf89jzh2aglm9fgx0l0aakn6j7al1")))) "17l5czpvv5ilmg17frg0w4qwf89jzh2aglm9fgx0l0aakn6j7al1"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
;; FIXME: rtest/rtest.sh is a ksh script (!). Add ksh as an input. ;; FIXME: rtest/rtest.sh is a ksh script (!). Add ksh as an input.
'(#:tests? #f '(#:tests? #f
#:phases
#:phases (alist-cons-before (modify-phases %standard-phases
'build 'pre-build (add-before 'build 'pre-build
(lambda _ (lambda _
;; Work around bogus makefile when using an external ;; Work around bogus makefile when using an external
;; libltdl. Failing to do so, one hits this error: ;; libltdl. Failing to do so, one hits this error:
;; "No rule to make target `-lltdl', needed by `libgvc.la'." ;; "No rule to make target `-lltdl', needed by `libgvc.la'."
(substitute* "lib/gvc/Makefile" (substitute* "lib/gvc/Makefile"
(("am__append_5 *=.*") (("am__append_5 *=.*")
"am_append_5 =\n"))) "am_append_5 =\n"))))
(alist-cons-after (add-after 'install 'move-docs
'install 'move-docs (lambda* (#:key outputs #:allow-other-keys)
(lambda* (#:key outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out"))
(let ((out (assoc-ref outputs "out")) (doc (assoc-ref outputs "doc")))
(doc (assoc-ref outputs "doc"))) (mkdir-p (string-append doc "/share/graphviz"))
(mkdir-p (string-append doc "/share/graphviz")) (rename-file (string-append out "/share/graphviz/doc")
(rename-file (string-append out "/share/graphviz/doc") (string-append doc "/share/graphviz/doc"))
(string-append doc "/share/graphviz/doc")) #t)))
#t)) (add-after 'move-docs 'move-guile-bindings
(alist-cons-after (lambda* (#:key outputs #:allow-other-keys)
'move-docs 'move-guile-bindings (let* ((out (assoc-ref outputs "out"))
(lambda* (#:key outputs #:allow-other-keys) (lib (string-append out "/lib"))
(let* ((out (assoc-ref outputs "out")) (extdir (string-append lib
(lib (string-append out "/lib")) "/guile/2.0/extensions")))
(extdir (string-append lib (mkdir-p extdir)
"/guile/2.0/extensions"))) (rename-file (string-append
(mkdir-p extdir) lib "/graphviz/guile/libgv_guile.so")
(rename-file (string-append (string-append extdir
lib "/graphviz/guile/libgv_guile.so") "/libgv_guile.so"))
(string-append extdir #t))))))
"/libgv_guile.so"))))
%standard-phases)))))
(inputs (inputs
`(("libXrender" ,libxrender) `(("libXrender" ,libxrender)
("libX11" ,libx11) ("libX11" ,libx11)