From 2cce59fd768f3ebbb335bb652bbbbbef263a4039 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sun, 26 Mar 2017 19:06:46 -0400 Subject: 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. --- snakemake.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'snakemake.el') 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] -- " $ snakemake [ARGS] -- " (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 "")) -- cgit v1.2.3