From c47351925529d72164c78dce685a01b0004ebcd4 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sun, 28 Feb 2016 03:40:15 -0500
Subject: popup: Add --allowed-rules

---
 snakemake.el | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'snakemake.el')

diff --git a/snakemake.el b/snakemake.el
index 396290a..9d840c2 100644
--- a/snakemake.el
+++ b/snakemake.el
@@ -319,6 +319,13 @@ targets."
      nil nil nil nil
      default)))
 
+(defun snakemake-read-rules (&rest _)
+  "Read multiple rules for the current Snakefile."
+  (mapconcat #'identity
+             (completing-read-multiple "Rules (comma-separated): "
+                                       (snakemake-all-rules))
+             " "))
+
 
 ;;; Compilation commands
 
@@ -396,7 +403,8 @@ $ snakemake [ARGS] -- <targets>"
     (?r "Print reason" "--reason")
     (?t "Touch files" "--touch"))
   :options
-  '((?j "Number of jobs" "-j"))
+  '((?a "Allowed rules" "--allowed-rules " snakemake-read-rules)
+    (?j "Number of jobs" "-j"))
   :actions
   '((?c "Compile" snakemake-compile) nil nil
     (?p "Build target at point" snakemake-build-targets-at-point)
-- 
cgit v1.2.3