From ac6999acd5f15a5037f9a9ab55b6ab4e373c1877 Mon Sep 17 00:00:00 2001
From: BonfaceKilz
Date: Sun, 6 Dec 2020 14:54:57 +0300
Subject: gn: python3-genenetwork2: Generate svg graph from python3-package

* gn/packages/genenetwork.scm (python3-genenetwork2):
[native-inputs]: Add graphviz.
[arguments]{generate-dag-svg-file}: New phase.
---
 gn/packages/genenetwork.scm | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)

(limited to 'gn/packages/genenetwork.scm')

diff --git a/gn/packages/genenetwork.scm b/gn/packages/genenetwork.scm
index 5987af8..fb9af1d 100644
--- a/gn/packages/genenetwork.scm
+++ b/gn/packages/genenetwork.scm
@@ -432,6 +432,8 @@ Graphical Fragment Assembly} files and related formats.")
                 (sha256
                  (base32
                   "1402g129ghfh0xwfxjj1i7gbib2yl9rahf55caj7b1psy24ys87x"))))
+      (native-inputs
+       `(("graphviz" ,graphviz)))
       (propagated-inputs
        (let ((inputs (package-propagated-inputs genenetwork2)))
          `(,@(fold
@@ -520,6 +522,38 @@ Graphical Fragment Assembly} files and related formats.")
                                     p
                                     #:node-type %package-node-type
                                     #:backend %d3js-backend)))))))))))
+               (add-after 'install 'generate-dag-svg-file
+                 (lambda* (#:key inputs outputs #:allow-other-keys)
+                   (let* ((output-dir
+                           (string-append
+                            (assoc-ref outputs "out")
+                            "/lib/python3.8/site-packages/wqflask/"))
+                          (dot-file
+                           (string-append
+                            output-dir
+                            "dependency-graph.dot"))
+                          (svg-file
+                           (string-append
+                            output-dir
+                            "dependency-graph.svg")))
+                     (begin
+                       (call-with-output-file
+                           dot-file
+                         (lambda (port)
+                           (format
+                            port "~a"
+                            ,(call-with-output-string
+                               (lambda (p)
+                                 (with-output-to-port p
+                                   (lambda ()
+                                     (run-with-store
+                                         (open-connection)
+                                       (export-graph
+                                        (list this-package)
+                                        p
+                                        #:node-type %package-node-type
+                                        #:backend %graphviz-backend)))))))))
+                       (invoke "dot" "-Tsvg" "-o" svg-file dot-file)))))
                (add-after 'install 'generate-dependency-file
                  (lambda* (#:key inputs outputs #:allow-other-keys)
                    (call-with-output-file
-- 
cgit v1.2.3