diff options
| -rw-r--r-- | snakemake.el | 9 | ||||
| -rw-r--r-- | test-snakemake.el | 7 |
2 files changed, 16 insertions, 0 deletions
diff --git a/snakemake.el b/snakemake.el index 8a985ee..396290a 100644 --- a/snakemake.el +++ b/snakemake.el @@ -173,6 +173,15 @@ with DIRECTORY and the Snakefile's modification time." "Call `snakemake-program' with ARGS and insert output." (apply #'call-process snakemake-program nil t nil args)) +(defun snakemake-all-rules (&optional directory) + "Return list of rules for DIRECTORY's Snakefile." + (snakemake-with-cache directory ("all-rules") + (split-string + (with-temp-buffer + (if (= 0 (snakemake-insert-output "--nocolor" "--list")) + (buffer-string) + (error "Error finding rules")))))) + (defun snakemake-rule-targets (&optional directory) "Return list of target rules for DIRECTORY's Snakefile." (snakemake-with-cache directory ("target-rules") diff --git a/test-snakemake.el b/test-snakemake.el index 03cf1f1..0f83821 100644 --- a/test-snakemake.el +++ b/test-snakemake.el @@ -672,6 +672,13 @@ rule abc: (snakemake-with-temp-dir (snakemake-rule-targets))))) +(ert-deftest test-snakemake/all-rules () + "Test `snakemake-all-rules'." + (should + (equal '("aa" "bb" "cc_wildcards" "dd_subdir") + (snakemake-with-temp-dir + (snakemake-all-rules))))) + (ert-deftest test-snakemake/file-targets () "Test `snakemake-file-targets'." (should |