367

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

4

17 回答 17

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

值是 1/10pt，所以 100 会给你 10pt，等等。

于 2008-11-17T17:49:27.027 回答
398

来自Emacswiki，GNU Emacs 23 有一个内置的组合键：

C-xC-+并C-xC--增加或减少缓冲区文本大小

于 2010-05-04T21:06:23.483 回答
81

按 Shift 和第一个鼠标按钮。您可以通过以下方式更改字体大小： 该网站有更多详细信息。

于 2008-11-17T01:07:12.667 回答
43

M-x customize-face RET default将允许您设置default所有其他面所基于的面。在那里你可以设置字体大小。

这是我的 .emacs 中的内容。实际上，颜色主题将设置基础，然后我的自定义面部设置将覆盖一些东西。custom-set-faces 是由 emacs 的 customize-face 机制编写的：

;; my colour theme is whateveryouwant :)
(require 'color-theme)
(color-theme-initialize)
(color-theme-whateveryouwant)

(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 98 :width normal :foundry "unknown" :family "DejaVu Sans Mono"))))
 '(font-lock-comment-face ((t (:foreground "darkorange4"))))
 '(font-lock-function-name-face ((t (:foreground "navy"))))
 '(font-lock-keyword-face ((t (:foreground "red4"))))
 '(font-lock-type-face ((t (:foreground "black"))))
 '(linum ((t (:inherit shadow :background "gray95"))))
 '(mode-line ((t (nil nil nil nil :background "grey90" (:line-width -1 :color nil :style released-button) "black" :box nil :width condensed :foundry "unknown" :family "DejaVu Sans Mono")))))
于 2008-11-17T01:19:48.303 回答
40

这是另一个简单的解决方案。也适用于 24

(set-default-font "Monaco 14")

捷径：

`C-+` increases font size
`C--` Decreases font size
于 2014-02-24T13:39:05.553 回答
15

我有以下内容.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。

于 2008-11-17T02:11:24.517 回答
13

在X11中打开emacs，转到菜单选项，选择“设置默认字体...”，更改字体大小。在同一菜单中选择“保存选项”。完毕。

于 2013-01-25T11:51:54.527 回答
11

zoom.cfg和global-zoom.cfg提供字体大小更改绑定（来自 EmacsWiki）

  • C-- 或 C-mousewheel-up：增加字体大小。
  • C-+ 或 C-mousewheel-down：减小字体大小。
  • C-0 将字体大小恢复为默认值。
于 2013-04-17T08:26:34.253 回答
8

Firefox 和其他程序允许您使用 C-+ 和 C-- 增大和减小字体大小。我设置了我的 .emacs，以便通过添加以下代码行来拥有相同的能力：

(global-set-key [C-kp-add] 'text-scale-increase)

(global-set-key [C-kp-subtract] 'text-scale-decrease)
于 2013-12-22T14:20:38.087 回答
8

这是一个以交互方式调整字体高度的选项，一次一点：

;; font sizes
(global-set-key (kbd "s-=")
                (lambda ()
                  (interactive)
                  (let ((old-face-attribute (face-attribute 'default :height)))
                    (set-face-attribute 'default nil :height (+ old-face-attribute 10)))))

(global-set-key (kbd "s--")
                (lambda ()
                  (interactive)
                  (let ((old-face-attribute (face-attribute 'default :height)))
                    (set-face-attribute 'default nil :height (- old-face-attribute 10)))))

当您想要调整所有缓冲区中的文本大小时，这是更可取的。我不喜欢使用text-scale-increase和的解决方案，text-scale-decrease因为排水沟中的行号可能会在之后被切断。

于 2014-07-17T16:36:59.103 回答
5

Aquamacs：

(set-face-attribute 'default nil :font "Monaco-16" )

从 Emacs Wiki Globally Change the Default Font中，它说您可以使用以下任何一种：

(set-face-attribute 'default nil :font FONT )

(set-frame-font FONT nil t)

FONT类似的东西在哪里"Monaco-16"，例如：

(set-face-attribute 'default nil :font "Monaco-16" )

wiki 上的第一个建议中有一个额外的右括号，导致启动时出错。我终于注意到了额外的右括号，随后我更正了 wiki 上的建议。然后这两个建议都对我有用。

于 2017-03-05T07:12:16.970 回答
4

这完全取决于您更改字体大小的意思。这个 EmacsWiki 部分提供了最好和最完整的信息。它区分了各种情况（文本缩放、框架字体、缓冲区/框架等）：更改字体大小。

于 2011-11-17T15:54:45.593 回答
2

在 AquaMacs 中CMD +并CMD -调整当前缓冲区的字体大小。

于 2013-04-15T00:21:20.390 回答
1

在 NTEmacs 23.1 中，选项菜单有一个“设置默认字体...”选项。

于 2010-04-11T22:32:27.000 回答
1

我对控制台 emacs (emacs -nw) 很满意，现代 vterm 实现（如 gnome-terminal）往往具有更好的字体支持。另外，如果您习惯了这一点，那么您可以使用 tmux，因此即使没有 X，也可以在远程服务器上使用您的完整环境。

于 2012-08-15T16:09:22.737 回答
1

我使用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)
于 2015-06-17T10:41:52.750 回答
1

这是一个片段，可让您使用交互式函数直接指定全局字体大小：

(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))))))
于 2018-04-26T22:31:34.113 回答