Skip to main content
本文に 440 文字追加
ソース リンク
user9156
user9156

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")

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

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.")))))

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")

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

ソース リンク
user9156
user9156

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.")))))