Définition d'un répertoire en utilisant "nom-système" sur Elisp

Question

En effet, je ne parle pas couramment avec Elisp. Anyway: J'utilise le même fichier de configuration Emacs, mais comme d'habitude, il y a de petites différences quand je suis à la maison ou au bureau, je ne sais pas s'il est possible de définir mon répertoire de travail avec un code comme:

(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

Je ne sais pas s'il est possible de définir mon répertoire de travail ...

Oui, vous pouvez. Vous avez juste besoin d'aller d'une manière simple, car Lisp est conçu pour être simple.

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

Cependant, pourquoi même s'embêter avec ce supplément my-dir? Réglez simplement default-directory où vous voulez.

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

Notez que default-directory est une variable fournie automatiquement à partir Emacs. Assurez-vous donc que le changement ne nuise à aucun autre comportement.