我还想在.emacs文件中保存字体大小。


当前回答

这完全取决于你所说的改变字体大小。 EmacsWiki部分提供了最好和最完整的信息。它区分了各种情况(文本缩放,框架字体,缓冲区/框架等):改变字体大小。

其他回答

如果你喜欢控制台emacs (emacs -nw),现代vterm实现(如gnome-terminal)往往有更好的字体支持。另外,如果您习惯了这一点,就可以使用tmux,这样即使没有X,也可以在远程服务器上使用完整的环境。

(set-face-attribute 'default nil :height 100)

这个值的单位是1/10pt,所以100会给你10pt,以此类推。

我有以下在我的。emacs:

(defun fontify-frame (frame)
  (set-frame-parameter frame 'font "Monospace-11"))

;; Fontify current frame
(fontify-frame nil)
;; Fontify any future frames
(push 'fontify-frame after-make-frame-functions) 

你可以用你选择的任何字体来代替“Monospace-11”。可用选项集高度依赖于系统。使用M-x set-default-font并查看制表符补全会给您一些启发。在我的系统上,在启用了Emacs 23和抗锯齿的情况下,可以根据名称选择系统字体,例如Monospace、Sans Serif等。

下面是一个代码片段,可以让你直接使用交互函数指定全局字体大小:

(defun set-font-size ()
    "Set the font size."
  (interactive)
  (set-face-attribute
   'default nil :height
   (string-to-number
    (read-string "Font size: " (number-to-string (face-attribute 'default :height nil))))))

我使用hydra包通过按f2 + + + +/f2 - - - -连续控制字体增减,这意味着按f2一次,然后使用+/-来控制,并恢复默认字体大小f2 0。因为我有键盘,所以我也绑定键盘到字体设置。

(defhydra hydra-zoom (global-map "<f2>")
  "zoom"
  ("<kp-add>" text-scale-increase "in")
  ("+" text-scale-increase "in")
  ("-" text-scale-decrease "out")
  ("<kp-subtract>" text-scale-decrease "out")
  ("0" (text-scale-set 0) "reset")
  ("<kp-0>" (text-scale-set 0) "reset"))

而现代编辑器的鼠标控制功能由以下键绑定支持,按下控制键+鼠标滚轮可增加/减少字体。

(global-set-key (kbd "<C-wheel-up>") 'text-scale-increase)
(global-set-key (kbd "<C-wheel-down>") 'text-scale-decrease)