emacs - Emacs如何选择系统类型

Question

我正在尝试将我的 .emacs 文件配置为在 Windows、Linux 和 Mac 环境中工作——特别是，我需要它为组织模式选择正确的字体和特定目录。

我尝试了以下加载正确字体的方法，但没有加载为 org-mode 指定的路径:

;;在 Windows 上
(if (eq system-type 'windows-nt)
(设置默认字体“-outline-Consolas-normal-r-normal-normal-14-97-96-96-c-*-iso8859-1”)
(setq 加载路径 (缺点 "~/elisp/org-6.34c/lisp"加载路径))
)

;;在 Linux 上
(if (eq system-type 'gnu/linux)
(设置默认字体“Inconsolata-11”)
(setq 加载路径 (缺点 "~/elisp/org-current/lisp"加载路径))
)

我尝试了以下在我的 Windows 机器上返回错误 Font Inconsolata-11 is not defined 的方法，并且在我的 Linux 机器上返回错误 Font -outline-Consolas-normal-r-normal-normal-14-97-96-96-c-*-iso8859-1 is not defined .对于两者，都不会加载指定的组织路径:

;;在 Windows 上
(if (eq system-type 'windows-nt)
(setq 加载路径 (缺点 "~/elisp/org-6.34c/lisp"加载路径))
(设置默认字体“-outline-Consolas-normal-r-normal-normal-14-97-96-96-c-*-iso8859-1”)
)

;;在 Linux 上
(if (eq system-type 'gnu/linux)
(setq 加载路径 (缺点 "~/elisp/org-current/lisp"加载路径))
(设置默认字体“Inconsolata-11”)
)

我评价了 system-type两种环境中的变量，并且它们都正确评估。

谁能看出哪里出了问题——另外，我对 emacs-lisp 不是很精通，你能看出我做出了哪些不正确的假设吗？

谢谢，
扎卡里

Answer 1

请注意，如果在 lisp 中是 if-then-else。所以，在你的第一种情况下，你正在做的是 Windows，设置字体，否则设置 Windows 的加载路径!然后独立地，如果linux设置字体，你就完成了，否则为linux设置加载路径!

尝试

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

这在 mac 或其他设备上不起作用，但如果您只使用 NT 或 linux，这应该可以工作。否则，如果在第二个程序之外，您可以坚持另一个...