Cómo elegir el tipo de sistema en Emacs

Question

Estoy intentando configurar mi archivo .emacs para que funcione en un entorno Windows, Linux y Mac; específicamente, necesito que elija la fuente correcta y un directorio determinado para la organización. modo.

He intentado lo siguiente, que carga la fuente correcta, pero no se carga la ruta especificada de org-mode:

 
;; On Windows 
(if (eq system-type 'windows-nt) 
    (set-default-font "-outline-Consolas-normal-r-normal-normal-14-97-96-96-c-*-iso8859-1") 
    (setq load-path (cons "~/elisp/org-6.34c/lisp" load-path)) 
) 

;; On Linux 
(if (eq system-type 'gnu/linux) 
    (set-default-font "Inconsolata-11") 
    (setq load-path (cons "~/elisp/org-current/lisp" load-path)) 
) 

He intentado lo siguiente, que en mi máquina Windows devuelve el error Font Inconsolata-11 is not defined, y en mi máquina Linux devuelve el error Font -outline-Consolas-normal-r-normal-normal-14-97-96-96-c-*-iso8859-1 is not defined. Por tanto, el camino org especificado no está cargado:

 
;; On Windows 
(if (eq system-type 'windows-nt) 
    (setq load-path (cons "~/elisp/org-6.34c/lisp" load-path)) 
    (set-default-font "-outline-Consolas-normal-r-normal-normal-14-97-96-96-c-*-iso8859-1") 
) 

;; On Linux 
(if (eq system-type 'gnu/linux) 
    (setq load-path (cons "~/elisp/org-current/lisp" load-path)) 
    (set-default-font "Inconsolata-11") 
) 

I evaluó la variable system-type en ambos entornos, y ambos evaluar correctamente.

¿Alguien puede ver lo que está mal? Además, no soy muy versado en emacs-lisp, ¿puede ver qué suposiciones incorrectas estoy haciendo?

Gracias, Zachary

Answer 1

nota que si en Lisp es if-then-else. entonces, en el primer caso que está haciendo si Windows, establece la fuente, ELSE establece el loadpath para Windows! entonces de forma independiente, estás haciendo esto si Linux establece la fuente, sino configura el loadpath para Linux.

tratar

(if (eq system-type 'windows-nt) 
    (progn 
     (setq load-path (cons "~/elisp/org-6.34c/lisp" load-path)) 
     (set-default-font "-outline-Consolas-normal-r-normal-normal-14-97-96-96-c-*-iso8859-1") 
    ) 
    (progn 
      (setq load-path (cons "~/elisp/org-current/lisp" load-path)) 
      (set-default-font "Inconsolata-11") 
    ) 
) 

esto no va a funcionar en Mac, o lo que sea, pero si usted está usando solamente siempre NT o Linux, esto debería funcionar. De lo contrario, puede pegar el otro si está fuera del 2º progn ...