diff options
author | Kyle Meyer <kyle@kyleam.com> | 2017-03-26 19:06:46 -0400 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2017-03-26 21:21:31 -0400 |
commit | 1e570d8fb8fb9d07a989fdb8fdf3980d190449b6 (patch) | |
tree | 52c8c6a6d4708be3fb351e8938808d33db7c6ddc | |
parent | 2cce59fd768f3ebbb335bb652bbbbbef263a4039 (diff) | |
download | snakemake-mode-1e570d8fb8fb9d07a989fdb8fdf3980d190449b6.tar.gz |
Move snakemake--make-command
This is in preparation for the addition of a terminal interface. No
code change is intended.
-rw-r--r-- | snakemake.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/snakemake.el b/snakemake.el index 398b8ef..ed8e486 100644 --- a/snakemake.el +++ b/snakemake.el @@ -543,17 +543,17 @@ Snakemake-graph mode is a minor mode that provides a key, ;;; Compilation commands +(defun snakemake--make-command (targets args) + (mapconcat #'identity + `(,snakemake-program ,@args "--" ,@targets) + " ")) + (add-to-list 'compilation-error-regexp-alist 'snakemake) (add-to-list 'compilation-error-regexp-alist-alist '(snakemake . ("^SyntaxError in line \\([0-9]+\\) of \\(.*[^A-z]Snakefile\\):$" 2 1))) -(defun snakemake--make-command (targets args) - (mapconcat #'identity - `(,snakemake-program ,@args "--" ,@targets) - " ")) - (defun snakemake-compile-targets (targets args) "Run non-interactive `compile' with 'snakemake [ARGS] -- TARGETS'." (let ((default-directory (snakemake-snakefile-directory)) |