From ab40d5ac70e99689ffec68b1e39d99c1c7b4a654 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sat, 16 Apr 2016 11:21:17 -0400
Subject: Add snakemake-graph command

Re: #9
---
 snakemake.el | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

(limited to 'snakemake.el')

diff --git a/snakemake.el b/snakemake.el
index 20ec2cd..f6d769b 100644
--- a/snakemake.el
+++ b/snakemake.el
@@ -350,6 +350,32 @@ targets."
                                        (snakemake-all-rules))
              " "))
 
+;;;###autoload
+(defun snakemake-graph (rules &optional rule-graph)
+  "Display graph for DAG of RULES.
+
+The graph will be processed by `snakemake-dot-program' and
+displayed with `image-mode'.
+
+If prefix argument RULE-GRAPH is non-nil, pass --rulegraph
+instead of --dag to snakemake.
+
+$ snakemake --{dag,rulegraph} -- RULES | display"
+  (interactive (list (or (snakemake-file-targets-at-point 'check)
+                         (snakemake-rule-at-point 'target)
+                         (snakemake-read-rule 'targets))
+                     current-prefix-arg))
+  (let ((dir (snakemake-snakefile-directory)))
+    (with-current-buffer (get-buffer-create "*Snakemake graph*")
+      (setq default-directory dir)
+      (let ((inhibit-read-only t))
+        (erase-buffer)
+        (apply #'call-process snakemake-program nil t nil
+               (if rule-graph "--rulegraph" "--dag")
+               (if (listp rules) rules (list rules))))
+      (image-mode)
+      (pop-to-buffer (current-buffer)))))
+
 
 ;;; Compilation commands
 
-- 
cgit v1.2.3