Merge branch 'support_default_directory'

quickrun.el

@@ -445,6 +445,16 @@ if you set your own language configuration.
         (set-process-sentinel process
                               (quickrun/make-sentinel rest-cmds outputter))))))
 
+(defun quickrun/default-directory ()
+  (or quickrun-option-default-directory default-directory))
+
+(defun quickrun/set-default-directory (dir)
+  (let ((formatted-dir (file-name-as-directory dir)))
+    (if (file-directory-p formatted-dir)
+       (setq quickrun-option-default-directory formatted-dir)
+      (throw 'quickrun
+             (format "'%s' is not existed directory" dir)))))
+
 (defun quickrun/exec-cmd (cmd)
   (and quickrun-debug (message "Quickrun Execute: %s" cmd))
   (let ((program (car (split-string cmd)))
@@ -453,7 +463,8 @@ if you set your own language configuration.
     (with-current-buffer buf
       (erase-buffer))
     (let ((proc-name (format "quickrun-process-%s" program))
-          (process-connection-type nil))
+          (process-connection-type nil)
+          (default-directory (quickrun/default-directory)))
       (lexical-let ((process (start-process-shell-command proc-name buf cmd)))
         (if (>= quickrun-timeout-seconds 0)
             (setq quickrun/timeout-timer
@@ -480,11 +491,13 @@ if you set your own language configuration.
 
 (defun quickrun/popup-output-buffer ()
   (let ((buf (get-buffer quickrun/buffer-name))
-        (outputter quickrun-option-outputter))
+        (outputter quickrun-option-outputter)
+        (default-dir (quickrun/default-directory)))
     (unless (quickrun/defined-outputter-p outputter)
       (pop-to-buffer buf)
       ;; Copy buffer local variable
-      (setq quickrun-option-outputter outputter))))
+      (setq quickrun-option-outputter outputter
+            quickrun-option-default-directory default-dir))))
 
 ;;
 ;; Predefined outputter
@@ -707,6 +720,10 @@ Place holders are beginning with '%' and replaced by:
       (let ((func (assoc-default :outputter cmd-info)))
         (if (and func (or (functionp func) (symbolp func)))
             (puthash key func info))))
+    ;; setting new default-directory if ':default-directory' is specified
+    (let ((dir (assoc-default :default-directory cmd-info)))
+      (if dir
+          (quickrun/set-default-directory dir)))
     info))
 
 (defun quickrun/fill-template (tmpl info)
@@ -999,5 +1016,9 @@ by quickrun.el. But you can register your own command for some languages")
                  nil integerp
                  "Timeout seconds as file local variable")
 
+(quickrun/defvar quickrun-option-default-directory
+                 nil file-directory-p
+                 "Default directory where command is executed")
+
 (provide 'quickrun)
 ;;; quickrun.el ends here

sample/sample_set_default_directory.pl

@@ -0,0 +1,13 @@
+#!perl
+use strict;
+use warnings;
+
+print "hello\n";
+
+#
+#  Local Variables:
+#  quickrun-option-cmd-alist: ((:command . "sh")
+#                              (:exec    . ("ls -l" "pwd"))
+#                              (:default-directory . "/usr/local/bin"))
+#  End:
+#