我还想在.emacs文件中保存字体大小。
M-x自定义脸RET默认将允许您设置脸的默认脸,所有其他脸的基础上。在这里你可以设置字体大小。
这是我的。emacs中的内容。实际上,color-theme会设置基础,然后我的自定义面部设置会覆盖一些东西。定制的set-faces是由emacs的定制面机制编写的:
;; 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")))))
我有以下在我的。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等。
如果你喜欢控制台emacs (emacs -nw),现代vterm实现(如gnome-terminal)往往有更好的字体支持。另外,如果您习惯了这一点,就可以使用tmux,这样即使没有X,也可以在远程服务器上使用完整的环境。
zoom.cfg和global-zoom.cfg提供字体大小更改绑定(来自EmacsWiki)
C——或C-mousewheel-up:增大字体大小。 C-+或C-鼠标滚轮向下:减小字体大小。 C-0将字体大小恢复为默认值。
Firefox和其他程序允许您使用C-+和C——来增加和减少字体大小。我设置了我的.emacs,这样我就可以通过添加以下几行代码来拥有同样的能力:
(global-set-key [C-kp-add] 'text-scale-increase)
(global-set-key [C-kp-subtract] 'text-scale-decrease)
这是另一个简单的解决方案。《24小时》也适用
(set-default-font "Monaco 14")
捷径:
`C-+` increases font size
`C--` Decreases font size
这里有一个交互调整字体高度的选项,一次一点:
;; 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)))))
当您想要调整所有缓冲区中的文本大小时,这是可取的。我不喜欢使用文本比例增加和文本比例减少的解决方案,因为排水沟中的行号之后会被切断。
我使用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)
Aquamacs:
(set-face-attribute 'default nil :font "Monaco-16" )
从Emacs Wiki全局更改默认字体,它说你可以使用以下任何一种:
(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上的第一个建议中有一个额外的右括号,这导致了启动时的错误。我终于注意到这个额外的右括号,随后我在维基上更正了这个建议。这两个建议都对我有用。
下面是一个代码片段,可以让你直接使用交互函数指定全局字体大小:
(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))))))
推荐文章
- Android中的密码提示字体
- 适合OTF字体的MIME类型
- 如何在动作栏标题中设置自定义字体?
- 如何在Emacs中重命名打开的文件?
- 包括谷歌字体链接或导入?
- android的有效值:fontFamily和他们映射到什么?
- 如何在我自己的服务器上托管谷歌web字体?
- 如何使nrepl-ritz-jack-in在TRAMP / Emacs上远程工作
- 如何在Emacs中“撤销”更改后“重做”更改?
- 如何改变TextView上的字体?
- 适合.woff2字体的MIME类型
- Unicode字符“X”取消/关闭?
- 如何在CSS文件中导入谷歌Web字体?
- 如何在Emacs中用换行符替换字符?
- 如何在LaTeX中更改文档字体?