Merge branch 'master' of gitlab.com:genenetwork/guix-bioinformatics

1 files changed, 45 insertions, 0 deletions

diff --git a/gn/packages/graphviz.scm b/gn/packages/graphviz.scm
new file mode 100644
index 0000000..81e745c
--- /dev/null
+++ b/gn/packages/graphviz.scm
@@ -0,0 +1,45 @@
+(define-module (gn packages graphviz)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix utils)
+  #:use-module (gn packages python24)
+  #:use-module (gnu packages gl)
+  #:use-module (gnu packages graphviz)
+  #:use-module (gnu packages gtk)
+  #:use-module (srfi srfi-1))
+
+(define-public graphviz-2.26
+  (package
+    (inherit graphviz)
+    (name "graphviz")
+    (version "2.26.3")
+    (outputs '("out"))
+    (source
+      (origin
+        (method url-fetch)
+        (uri (string-append
+               ;; TODO: Replace with official release
+               "mirror://debian/pool/main/g/graphviz/"
+               "graphviz_" version ".orig.tar.gz"))
+        (file-name (string-append name "-" version ".tar.gz"))
+        (sha256
+         (base32
+          "18bzyg17ni0lpcd2g5dhan8fjv3vzkjym38jq8vm42did5p9j47l"))))
+    ;; TODO: unbundle libraries?
+    (arguments
+     `(#:configure-flags '("--enable-python24=yes")
+       ,@(substitute-keyword-arguments (package-arguments graphviz)
+           ((#:phases phases)
+            `(modify-phases ,phases
+               (delete 'move-docs) ; one output
+               (delete 'move-guile-bindings))))))
+    (inputs
+      ;; TODO: Add(?) perl, guile@1.8, gtk@2, lua5.1, tcl8.[3-6], rsvg
+     `(("gdk-pixbuf" ,gdk-pixbuf)
+       ;("ghostscript" ,ghostscript)
+       ("freeglut" ,freeglut)
+       ("python2.4" ,python-2.4)
+       ,@(fold alist-delete (package-inputs graphviz)
+               '("libjpeg" "guile"))))
+    (license license:cpl1.0)))