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
commit2cce59fd768f3ebbb335bb652bbbbbef263a4039 (patch)
treedfb1cbe52c7e26cbd71fd37c079340bc5a3f179c
parent61c64d58e5e6aed98f86b95145935da90442c3ed (diff)
downloadsnakemake-mode-2cce59fd768f3ebbb335bb652bbbbbef263a4039.tar.gz
Rename snakemake--define-compile-command
This is in preparation for the addition of a terminal interface, at which point this function will be used beyond the compilation interface.
-rw-r--r--snakemake.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/snakemake.el b/snakemake.el
index ab56ae5..398b8ef 100644
--- a/snakemake.el
+++ b/snakemake.el
@@ -549,7 +549,7 @@ Snakemake-graph mode is a minor mode that provides a key,
'(snakemake . ("^SyntaxError in line \\([0-9]+\\) of \\(.*[^A-z]Snakefile\\):$"
2 1)))
-(defun snakemake--define-compile-command (targets args)
+(defun snakemake--make-command (targets args)
(mapconcat #'identity
`(,snakemake-program ,@args "--" ,@targets)
" "))
@@ -557,7 +557,7 @@ Snakemake-graph mode is a minor mode that provides a key,
(defun snakemake-compile-targets (targets args)
"Run non-interactive `compile' with 'snakemake [ARGS] -- TARGETS'."
(let ((default-directory (snakemake-snakefile-directory))
- (cmd (snakemake--define-compile-command targets args)))
+ (cmd (snakemake--make-command targets args)))
(compile cmd)
(push cmd compile-history)))
@@ -599,7 +599,7 @@ $ snakemake [ARGS] -- <rule>"
$ snakemake [ARGS] -- <targets>"
(interactive (list (snakemake-arguments)))
- (let ((compile-command (snakemake--define-compile-command
+ (let ((compile-command (snakemake--make-command
(or (snakemake-file-targets-at-point)
(snakemake-rule-at-point)
(list ""))