;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2015 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2015 Efraim Flashner <efraim@flashner.co.il>
+;;; Copyright © 2016 Theodoros Foradis <theodoros@foradis.org>
+;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
+;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
+;;; Copyright © 2017 Gábor Boskovits <boskovits@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
(define-module (gnu packages graphviz)
#:use-module (guix packages)
#:use-module (guix build-system gnu)
+ #:use-module (guix build-system python)
#:use-module (guix download)
#:use-module (gnu packages xorg)
#:use-module (gnu packages gtk)
#:use-module (gnu packages xml)
#:use-module (gnu packages glib)
+ #:use-module (gnu packages guile)
#:use-module (gnu packages bison)
#:use-module (gnu packages image)
#:use-module (gnu packages autotools)
#:use-module (gnu packages pkg-config)
+ #:use-module (gnu packages glib)
+ #:use-module (gnu packages gtk)
+ #:use-module (gnu packages gnome)
#:use-module (gnu packages fontutils)
#:use-module (gnu packages compression)
#:use-module (gnu packages gd)
- #:use-module ((guix licenses) #:select (lgpl2.0+ epl1.0)))
+ #:use-module (gnu packages swig)
+ #:use-module (gnu packages python)
+ #:use-module ((guix licenses) #:prefix license:))
(define-public graphviz
(package
(name "graphviz")
- (version "2.28.0")
+ (version "2.40.1")
(source (origin
- (method url-fetch)
- (uri (string-append
- "http://www.graphviz.org/pub/graphviz/ARCHIVE/graphviz-"
- version
- ".tar.gz"))
- (sha256
- (base32
- "0xpwg99cd8sp0c6r8klsmc66h1pday64kmnr4v6f9jkqqmrpkank"))))
+ (method url-fetch)
+ (uri (string-append
+ "http://www.graphviz.org/pub/graphviz/ARCHIVE/graphviz-"
+ version ".tar.gz"))
+ (sha256
+ (base32
+ "08d4ygkxz2f553bxj6087da56a23kx1khv0j8ycxa102vvx1hlna"))))
(build-system gnu-build-system)
(arguments
;; FIXME: rtest/rtest.sh is a ksh script (!). Add ksh as an input.
'(#:tests? #f
-
- #:phases (alist-cons-before
- 'build 'pre-build
- (lambda _
- ;; Work around bogus makefile when using an external
- ;; libltdl. Failing to do so, one hits this error:
- ;; "No rule to make target `-lltdl', needed by `libgvc.la'."
- (substitute* "lib/gvc/Makefile"
- (("am__append_5 *=.*")
- "am_append_5 =\n")))
- %standard-phases)))
+ #:phases
+ (modify-phases %standard-phases
+ (add-after 'install 'move-docs
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let ((out (assoc-ref outputs "out"))
+ (doc (assoc-ref outputs "doc")))
+ (mkdir-p (string-append doc "/share/graphviz"))
+ (rename-file (string-append out "/share/graphviz/doc")
+ (string-append doc "/share/graphviz/doc"))
+ #t)))
+ (add-after 'move-docs 'move-guile-bindings
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (lib (string-append out "/lib"))
+ (extdir (string-append lib
+ "/guile/2.0/extensions")))
+ (mkdir-p extdir)
+ (rename-file (string-append
+ lib "/graphviz/guile/libgv_guile.so")
+ (string-append extdir
+ "/libgv_guile.so"))
+ #t))))))
(inputs
`(("libXrender" ,libxrender)
("libX11" ,libx11)
("gts" ,gts)
("gd" ,gd) ; FIXME: Our GD is too old
+ ("guile" ,guile-2.0) ;Guile bindings
+ ("swig" ,swig)
("pango" ,pango)
("fontconfig" ,fontconfig)
("freetype" ,freetype)
(native-inputs
`(("bison" ,bison)
("pkg-config" ,pkg-config)))
+ (outputs '("out" "doc")) ; 5 MiB of html + pdfs
(home-page "http://www.graphviz.org/")
(synopsis "Graph visualization software")
(description
networks. It has important applications in networking, bioinformatics,
software engineering, database and web design, machine learning, and in visual
interfaces for other technical domains.")
- (license epl1.0)))
+ (license license:epl1.0)))
+
+(define-public python-graphviz
+ (package
+ (name "python-graphviz")
+ (version "0.8.1")
+ (source (origin
+ (method url-fetch)
+ (uri (pypi-uri "graphviz" version ".zip"))
+ (sha256
+ (base32
+ "00rzqsmq25b0say05vix5xivchdvsv83jl2i8pkryqd0nz4bxzvb"))))
+ (build-system python-build-system)
+ (native-inputs
+ `(("unzip" ,unzip)))
+ (home-page "https://github.com/xflr6/graphviz")
+ (synopsis "Simple Python interface for Graphviz")
+ (description
+ "This package provides a simple Python interface for the Graphviz graph
+visualization tool suite.")
+ (license license:expat)))
+
+(define-public python2-graphviz
+ (package-with-python2 python-graphviz))
(define-public gts
(package
(version "0.7.6")
(source (origin
(method url-fetch)
- (uri (string-append "mirror://sourceforge/gts/gts-"
- version ".tar.gz"))
+ (uri (string-append "mirror://sourceforge/gts/gts/" version
+ "/gts-" version ".tar.gz"))
(sha256
(base32
"07mqx09jxh8cv9753y2d2jsv7wp8vjmrd7zcfpbrddz3wc9kx705"))))
(description
"Library intended to provide a set of useful functions to deal with
3D surfaces meshed with interconnected triangles.")
- (license lgpl2.0+)))
+ (license license:lgpl2.0+)))
+
+(define-public xdot
+ (package
+ (name "xdot")
+ (version "0.7")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (pypi-uri "xdot" version))
+ (sha256
+ (base32
+ "1q0f3pskb09saw1qkd2s6vmk80rq5zjhq8l93dfr2x6r04r0q46j"))))
+ (build-system python-build-system)
+ (arguments
+ `(#:phases
+ (modify-phases %standard-phases
+ ;; We wrap xdot, so that we don't propagate gtk+ and graphviz
+ (add-after 'install 'wrap
+ (lambda* (#:key inputs outputs #:allow-other-keys)
+ (wrap-program (string-append (assoc-ref outputs "out") "/bin/xdot")
+ `("GI_TYPELIB_PATH" ":" prefix
+ (,(string-append
+ (assoc-ref inputs "gtk+") "/lib/girepository-1.0"
+ ":" (assoc-ref inputs "pango") "/lib/girepository-1.0"
+ ":" (assoc-ref inputs "gdk-pixbuf") "/lib/girepository-1.0"
+ ":" (assoc-ref inputs "atk") "/lib/girepository-1.0")))
+ `("PATH" ":" prefix
+ (,(string-append (assoc-ref inputs "graphviz") "/bin"))))
+ #t)))))
+ (inputs
+ `(("atk" ,atk)
+ ("gdk-pixbuf" ,gdk-pixbuf+svg)
+ ("graphviz" ,graphviz)
+ ("gtk+" ,gtk+)
+ ("python-pycairo" ,python-pycairo)
+ ("python-pygobject" ,python-pygobject)))
+ (home-page "https://pypi.python.org/pypi/xdot")
+ (synopsis "Interactive viewer for graphviz dot files")
+ (description "Xdot is an interactive viewer for graphs written in
+@code{graphviz}’s dot language. Internally, it uses the xdot output format as
+an intermediate format,and @code{gtk} and @code{cairo} for rendering. Xdot can
+be used either as a standalone application, or as a python library.")
+ (license license:lgpl3+)))
+
+(define-public python-pydot
+ (package
+ (name "python-pydot")
+ (version "1.2.3")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (pypi-uri "pydot" version))
+ (sha256
+ (base32
+ "00imlz0033dygb9gdag1xr0cybn33gk5jsdi9ffbszzr97rd7dgd"))))
+ (build-system python-build-system)
+ ;; FIXME: No tests in PyPi release tarball.
+ (arguments '(#:tests? #f))
+ (propagated-inputs
+ `(("python-pyparsing" ,python-pyparsing)))
+ (home-page "https://github.com/erocarrera/pydot")
+ (synopsis "Python interface to Graphviz's DOT language")
+ (description
+ "Pydot provides an interface to create, handle, modify and process
+graphs in Graphviz's DOT language, written in pure Python.")
+ (license license:expat)))
+
+(define-public python2-pydot
+ (package-with-python2 python-pydot))