Elispで "system-name"を使用してディレクトリを設定する

Question

実際、Elispを扱うときは堪能ではありません。とにかく：私は同じEmacs設定ファイルを使用しますが、家庭やオフィスでは小さな違いがありますが、私の作業ディレクトリをこのようなコードで定義できるかどうかわかりません：

私の作業ディレクトリを定義することが可能である場合、私は知らない

(setq my-dir (if (string= system-name "hp-pavilion23") 
       (progn (message "/home/manuel/entwicklung/lisp/")) 
       (progn (message "/home/mmontoya/projects/chipotle/")))) 

(setq default-directory my-dir) 

Answer 1

...

はい、できます。 Lispは、のように単純なになるように設計するだけです。

(if (string= system-name "hp-pavilion23") 
    (setq my-dir "/home/manuel/entwicklung/lisp/") 
    (setq my-dir "/home/mmontoya/projects/chipotle/")) 

(setq default-directory my-dir) 

しかし、その余分なものを悩ます理由は、my-dirですか？ちょうどdefault-directoryに設定してください。

;; Somewhere in your ~/.emacs 
(if (string= system-name "hp-pavilion23") 
    ;; Set default-directory here. 
    (setq default-directory "/home/manuel/entwicklung/lisp/") 
    (setq default-directory "/home/mmontoya/projects/chipotle/")) 

default-directoryは、Emacsから自動的に提供される変数です。変更が他の動作に悪影響を及ぼさないことを確認してください。