summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2016-02-28 03:40:15 -0500
committerKyle Meyer <kyle@kyleam.com>2016-02-28 03:46:06 -0500
commitc47351925529d72164c78dce685a01b0004ebcd4 (patch)
tree80cc56fa9bfbdad4d414e09051a316def6d13a51
parent6b4ff95035c25d29680f13b34757c4b31a71ed9b (diff)
downloadsnakemake-mode-c47351925529d72164c78dce685a01b0004ebcd4.tar.gz
popup: Add --allowed-rules
-rw-r--r--snakemake.el10
1 files changed, 9 insertions, 1 deletions
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)