如何在Emacs中設置編譯的默認目錄？

Question

我在Emacs下編碼OCaml，在工作文件夾中有一個makefile，以及幾個包含.ml文件的子文件夾。如果我啓動M-x compile和make正常工作的上一個makefile緩衝，但在一個.ml文件的緩衝區是不行的，它給了我一個錯誤：

-*- mode: compilation; default-directory: "..." -*- 
Compilation started at Fri Jan 27 18:51:35 

make -k 
make: *** No targets specified and no makefile found. Stop. 

Compilation exited abnormally with code 2 at Fri Jan 27 18:51:35 

這是可以理解的，因爲默認的目錄是子不包含makefile的文件夾。有誰知道如何將makefile的文件夾始終設置爲編譯的默認目錄？

Answer 1

馬蒂亞斯PUECH都有一個solution涉及.dir-local文件在項目的根目錄：

((nil . ((eval . (setq default-directory 
        (locate-dominating-file buffer-file-name 
        ".dir-locals.el") 
))))) 

這大概也可以使用類似於：(shell-command-to-string "git rev-parse --show-toplevel")作爲最裏面的位。

Answer 2

可以調用make用正確的參數：

make -C .. -k 

其中..是路徑到您的Makefile

Answer 3

我用這樣的腳本，讓我從運行任何子目錄使（假設你處於類似posix的環境）。只是把這個腳本在PATH爲類似「sub_make.sh」並調用它，你將調用做出同樣的方式：通過編寫一個（暫時）設置default-directory功能

#!/bin/bash 

# search for project base 
INIT_DIR=`pwd` 
while [ "$PWD" != "/" ] ; do 
    if [ -e "makefile" ] ; then 
    break 
    fi 

    cd .. 
done 

if [ ! -e "makefile" ] ; then 
    echo "Couldn't find 'makefile'!" 
    exit 1 
fi 

# indicate where we are now 
echo "cd "`pwd` 
echo make "$@" 

# now run make for real 
exec make "$@" 

Answer 4

您可以從emacs的內控制這種並致電compile。

(defun compile-in-parent-directory() 
    (interactive) 
    (let ((default-directory 
      (if (string= (file-name-extension buffer-file-name) "ml") 
       (concat default-directory "..") 
      default-directory)))) 
    (call-interactively #'compile)) 

當使用compile-in-parent-directory所有ml文件將在他們在哪裏父目錄進行編譯。當然，如果他們嵌套得更深，你可以改變邏輯來反映這一點。實際上有一個version on the EmacsWiki，它搜索父目錄，直到找到一個makefile。在我寫這個答案後我發現了這個，否則我會在那裏指出你的。 感嘆。關於我的方法的好處是，它不是特定於make，因此您可以對其他命令使用相同的「技巧」。

如果您確切知道您想要的命令是什麼，那麼您也可以將調用編譯爲非交互式。如果它在適當的模式鉤子中綁定到一個鍵，這將特別有效。

Answer 5

這就是我在我的一些CONFIGS :)

(defun* get-closest-pathname (&optional (max-level 3) (file "Makefile")) 
    (let* ((root (expand-file-name "/")) 
     (level 0) 
     (dir (loop 
       for d = default-directory then (expand-file-name ".." d) 
       do (setq level (+ level 1)) 
       if (file-exists-p (expand-file-name file d)) 
       return d 
       if (> level max-level) 
       return nil 
       if (equal d root) 
       return nil))) 
    (if dir 
     (expand-file-name file dir) 
     nil))) 

(add-hook 'c-mode-hook 
      (lambda() 
      (unless (file-exists-p "Makefile") 
       (set (make-local-variable 'compile-command) 
        (let ((file (file-name-nondirectory buffer-file-name)) 
         (mkfile (get-closest-pathname))) 
        (if mkfile 
         (progn (format "cd %s; make -f %s" 
          (file-name-directory mkfile) mkfile)) 
         (format "%s -c -o %s.o %s %s %s" 
           (or (getenv "CC") "gcc") 
           (file-name-sans-extension file) 
           (or (getenv "CPPFLAGS") "-DDEBUG=9") 
           (or (getenv "CFLAGS") "-ansi -pedantic -Wall -g") 
           file)))))))