From e9f6240f36e8123d8eabf7785f64f50e4e0ed50e Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Mon, 29 Feb 2016 18:21:28 -0500
Subject: snakemake-compile: Fix target path

snakemake-file-targets-at-point expects to be called from the original
directory.
---
 snakemake.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'snakemake.el')

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)
-- 
cgit v1.2.3