summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2016-02-29 18:21:28 -0500
committerKyle Meyer <kyle@kyleam.com>2016-02-29 18:21:28 -0500
commite9f6240f36e8123d8eabf7785f64f50e4e0ed50e (patch)
tree7c501ffe363a1ab065a3b3fd53fd5b15bf97ab37
parent4a3558fea08a254d96e3836f2b865c63bb65be06 (diff)
downloadsnakemake-mode-e9f6240f36e8123d8eabf7785f64f50e4e0ed50e.tar.gz
snakemake-compile: Fix target path
snakemake-file-targets-at-point expects to be called from the original directory.
-rw-r--r--snakemake.el14
1 files changed, 7 insertions, 7 deletions
diff --git a/snakemake.el b/snakemake.el
index 9d840c2..663f336 100644
--- a/snakemake.el
+++ b/snakemake.el
@@ -383,13 +383,13 @@ $ snakemake [ARGS] -- <rule>"
$ snakemake [ARGS] -- <targets>"
(interactive (list (snakemake-arguments)))
- (let* ((default-directory (snakemake-snakefile-directory))
- (compilation-read-command t)
- (compile-command (snakemake--define-compile-command
- (or (snakemake-file-targets-at-point)
- (snakemake-rule-at-point)
- (list ""))
- args)))
+ (let ((compile-command (snakemake--define-compile-command
+ (or (snakemake-file-targets-at-point)
+ (snakemake-rule-at-point)
+ (list ""))
+ args))
+ (compilation-read-command t)
+ (default-directory (snakemake-snakefile-directory)))
(call-interactively #'compile)))
;;;###autoload (autoload 'snakemake-popup "snakemake" nil t)