4

Emacsの設定を自動化するために、必要なファイルがなかったらgitを使って取得する処理を書いているですが

(unless (file-exists-p "~/.emacs.d/git/auto-complete")  
        (shell-command "git clone [email protected]:auto-complete/auto-complete.git ~/.emacs.d/git/auto-complete"))

カレントディレクトリを指定できないので作成するパスを指定しないと期待通りの動作になりません。Emacsでshell-commandを使う時に参照されるディレクトリを指定するにはどうすればよいでしょうか?

1 件の回答 1

3

shell-commanddefault-directory に設定されているディレクトリに移動してからコマンドを実行しますので、以下の様にします。

(let* ((clone "~/.emacs.d/git/auto-complete")
       (default-directory (file-name-directory clone)))
  (unless (file-exists-p clone)
    (if (and (file-directory-p default-directory)
             (file-writable-p default-directory))
        (shell-command "git clone [email protected]:auto-complete/auto-complete.git")
      (message (concat default-directory " does not exist or not writable.")))))

追記

余談ですが、例えば以下の様なマクロを定義しておいて、

(defmacro shell-command-at-directory (command dir &optional output-buffer error-buffer)
  `(let ((default-directory ,dir))
     (shell-command ,command ,output-buffer ,error-buffer)))

以下の様に実行すると良いかも知れません。

(shell-command-at-directory "git clone [email protected]:auto-complete/auto-complete.git"
                            "~/.emacs.d/git")

# あまり代わり映えしませんけれども…

1
  • 1
    ありがとうございます。cdのように移動する機能はないんですね、gitの引数として渡すほうがすっきり書けそうなので元の書き方を使うことにします。
    – ironsand
    Commented 2015年12月13日 13:06

この質問に回答するには、ログインする必要があります。

求めていた回答ではありませんか? のタグが付いた他の質問を参照する。