diff options
author | Kyle Meyer <kyle@kyleam.com> | 2016-02-28 03:40:15 -0500 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2016-02-28 03:46:06 -0500 |
commit | c47351925529d72164c78dce685a01b0004ebcd4 (patch) | |
tree | 80cc56fa9bfbdad4d414e09051a316def6d13a51 | |
parent | 6b4ff95035c25d29680f13b34757c4b31a71ed9b (diff) | |
download | snakemake-mode-c47351925529d72164c78dce685a01b0004ebcd4.tar.gz |
popup: Add --allowed-rules
-rw-r--r-- | snakemake.el | 10 |
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) |