summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2017-03-26 19:06:46 -0400
committerKyle Meyer <kyle@kyleam.com>2017-03-26 21:21:31 -0400
commit1e570d8fb8fb9d07a989fdb8fdf3980d190449b6 (patch)
tree52c8c6a6d4708be3fb351e8938808d33db7c6ddc
parent2cce59fd768f3ebbb335bb652bbbbbef263a4039 (diff)
downloadsnakemake-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.el10
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))