Merge pull request #64 from psibi/issue-42

justl: Ability to set new working directory

justl.el

@@ -272,7 +272,8 @@ ARGS is a plist that affects how the process is run.
     (justl-compilation-setup-buffer buf directory mode)
     (with-current-buffer buf
       (insert (format "Just target execution started at %s \n\n" (substring (current-time-string) 0 19)))
-      (let* ((process (apply
+      (let* ((default-directory directory)
+	     (process (apply
                        #'start-file-process process-name buf command)))
         (setq justl--compile-command command)
         (setq-local justl-justfile (justl--justfile-from-arg (elt command 1)))
@@ -290,6 +291,12 @@ ARGS is a plist that affects how the process is run.
     map)
   "Keymap for justl compilation log buffers.")
 
+(defun justl-set-new-working-dir (dir)
+  "Set DIR as the new working directory.
+This is usually used with no-cd recipe attribute."
+  (interactive "DNew Working Directory:")
+  (setq-local default-directory dir))
+
 (defun justl-recompile ()
   "Execute the same just target again."
   (interactive)
@@ -358,6 +365,7 @@ ARGS is a list of arguments."
     (justl--log-command process-name cmd)
     (justl--make-process cmd (list :buffer buffer-name
                                    :process process-name
+				   :directory default-directory
                                    :mode mode))))
 
 (defun justl--exec-without-justfile (process-name args)

test/justfile

@@ -35,6 +35,11 @@ color:
     #!/usr/bin/env bash
     printf "\x1B[31mThis is red text\n"
 
+# Some recipe
+[no-cd]
+recipe:
+	pwd
+
 # private recipe
 _private:
 	echo private

test/justl-test.el

@@ -10,7 +10,7 @@
 
 (ert-deftest justl--get-recipes-test ()
   (should (equal
-           (list "default" "build-cmd"  "plan" "push" "push2" "fail" "carriage-return" "color")
+           (list "default" "build-cmd"  "plan" "push" "push2" "fail" "carriage-return" "color" "recipe")
            (mapcar 'justl--recipe-name (justl--get-recipes "./justfile")))))
 
 (ert-deftest justl--finds-recipe-test ()