@@ -22,80 +22,82 @@ This is helpful for writeroom-mode, in particular."
22
22
; ; (setq cjk-font-size 16)
23
23
; ; (setq ansi-font-size 16)
24
24
25
- ; ; ;; 设置一个字体集,用的是create-fontset-from-fontset-spec内置函数
26
- ; ; ;; 中文一个字体,英文一个字体混编。显示效果很好。
27
- ; ; (defun set-font()
28
- ; ; (interactive)
29
- ; ; (create-fontset-from-fontset-spec
30
- ; ; (concat
31
- ; ; "-*-fixed-medium-r-normal-*-*-*-*-*-* -*-fontset-myfontset,"
32
- ; ; (format "ascii:-outline-Consolas-normal-normal-normal-mono-%d-*-*-*-c -*-iso8859-1," ansi-font-size)
33
- ; ; (format "unicode:-outline-Consolas-normal-normal-normal-mono-%d-*-*-*-c -*-iso8859-1," cjk-font-size)
34
- ; ; (format "chinese-gb2312:-microsoft-Microsoft YaHei-normal-normal-normal-*-%d-*-*-* -*-0-iso8859-1," cjk-font-size)
35
- ; ; ;; (format "unicode:-outline-文泉驿等宽微米黑-normal-normal-normal-sans-*-*-*-*-p -*-gb2312.1980-0," cjk-font-size)
36
- ; ; ;; (format "chinese-gb2312:-outline-文泉驿等宽微米黑-normal-normal-normal-sans-*-*-*-*-p -*-gb2312.1980-0," cjk-font-size)
37
- ; ; )))
38
-
39
- ; ; ;; 函数字体增大,每次增加2个字号,最大48号
40
- ; ; (defun increase-font-size()
41
- ; ; "increase font size"
42
- ; ; (interactive)
43
- ; ; (if (< cjk-font-size 48)
44
- ; ; (progn
45
- ; ; (setq cjk-font-size (+ cjk-font-size 2))
46
- ; ; (setq ansi-font-size (+ ansi-font-size 2))))
47
- ; ; (message "cjk-size:%d pt, ansi-size:%d pt" cjk-font-size ansi-font-size)
48
- ; ; (font-reload)
49
- ; ; (sit-for .5))
50
-
51
- ; ; ;; 函数字体增大,每次减小2个字号,最小2号
52
- ; ; (defun decrease-font-size()
53
- ; ; "decrease font size"
54
- ; ; (interactive)
55
- ; ; (if (> cjk-font-size 2)
56
- ; ; (progn
57
- ; ; (setq cjk-font-size (- cjk-font-size 2))
58
- ; ; (setq ansi-font-size (- ansi-font-size 2))))
59
- ; ; (message "cjk-size:%d pt, ansi-size:%d pt" cjk-font-size ansi-font-size)
60
- ; ; (font-reload)
61
- ; ; (sit-for .5))
62
-
63
- ; ; ;; 恢复成默认大小16号
64
- ; ; (defun default-font-size()
65
- ; ; "default font size"
66
- ; ; (interactive)
67
- ; ; (setq cjk-font-size 16)
68
- ; ; (setq ansi-font-size 16)
69
- ; ; (message "cjk-size:%d pt, ansi-size:%d pt" cjk-font-size ansi-font-size)
70
- ; ; (font-reload)
71
- ; ; (sit-for .5))
72
-
73
- ; ; (defun font-reload()
74
- ; ; "font setting reload"
75
- ; ; (interactive)
76
- ; ; (set-font)
77
- ; ; (set-frame-font "fontset-myfontset" 1 t))
78
-
79
- ; ; ;; 只在GUI情况下应用字体。Console时保持终端字体。
80
-
81
- ; ; (if window-system
82
- ; ; (progn
83
- ; ; (set-font)
84
- ; ; ;; 把上面的字体集设置成默认字体
85
- ; ; ;; 这个字体名使用是create-fontset-from-fontset-spec函数的第一行的最后两个字段
86
- ; ; (set-frame-font "fontset-myfontset")
87
-
88
- ; ; ;; 鼠标快捷键绑定
89
- ; ; (global-set-key '[C-wheel-up] 'increase-font-size)
90
- ; ; (global-set-key '[C-wheel-down] 'decrease-font-size)
91
- ; ; ;; 键盘快捷键绑定
92
- ; ; (global-set-key (kbd "C--") 'decrease-font-size) ;Ctrl+-
93
- ; ; (global-set-key (kbd "C-0") 'default-font-size) ;Ctrl+0
94
- ; ; (global-set-key (kbd "C-=") 'increase-font-size) ;Ctrl+=
95
- ; ; (font-reload)
96
- ; ; ))
97
-
98
- ; ; (if (eq system-type 'darwin)
99
- ; ; (font-reload))
25
+ ; ; 设置一个字体集,用的是create-fontset-from-fontset-spec内置函数
26
+ ; ; 中文一个字体,英文一个字体混编。显示效果很好。
27
+ (defun set-font ()
28
+ (interactive )
29
+ (create-fontset-from-fontset-spec
30
+ (concat
31
+ " -*-fixed-medium-r-normal-*-*-*-*-*-*-*-fontset-myfontset,"
32
+ (format " ascii:-outline-Consolas-normal-normal-normal-mono-%d -*-*-*-c-*-iso8859-1, " ansi-font-size)
33
+ (format " unicode:-outline-Consolas-normal-normal-normal-mono-%d -*-*-*-c-*-iso8859-1, " cjk-font-size)
34
+ (format " chinese-gb2312:-microsoft-Microsoft YaHei-normal-normal-normal-*-%d -*-*-*-*-0-iso8859-1, " cjk-font-size)
35
+ ; ; (format "unicode:-outline-文泉驿等宽微米黑-normal-normal-normal-sans-*-*-*-*-p -*-gb2312.1980-0," cjk-font-size)
36
+ ; ; (format "chinese-gb2312:-outline-文泉驿等宽微米黑-normal-normal-normal-sans-*-*-*-*-p -*-gb2312.1980-0," cjk-font-size)
37
+ )))
38
+
39
+ ; ; 函数字体增大,每次增加2个字号,最大48号
40
+ (defun increase-font-size ()
41
+ " increase font size"
42
+ (interactive )
43
+ (if (< cjk-font-size 48 )
44
+ (progn
45
+ (setq cjk-font-size (+ cjk-font-size 2 ))
46
+ (setq ansi-font-size (+ ansi-font-size 2 ))))
47
+ (message " cjk-size:%d pt, ansi-size:%d pt " cjk-font-size ansi-font-size)
48
+ (font-reload)
49
+ (sit-for .5 ))
50
+
51
+ ; ; 函数字体增大,每次减小2个字号,最小2号
52
+ (defun decrease-font-size ()
53
+ " decrease font size"
54
+ (interactive )
55
+ (if (> cjk-font-size 2 )
56
+ (progn
57
+ (setq cjk-font-size (- cjk-font-size 2 ))
58
+ (setq ansi-font-size (- ansi-font-size 2 ))))
59
+ (message " cjk-size:%d pt, ansi-size:%d pt " cjk-font-size ansi-font-size)
60
+ (font-reload)
61
+ (sit-for .5 ))
62
+
63
+ ; ; 恢复成默认大小16号
64
+ (defun default-font-size ()
65
+ " default font size"
66
+ (interactive )
67
+ (setq cjk-font-size 16 )
68
+ (setq ansi-font-size 16 )
69
+ (message " cjk-size:%d pt, ansi-size:%d pt " cjk-font-size ansi-font-size)
70
+ (font-reload)
71
+ (sit-for .5 ))
72
+
73
+ (defun font-reload ()
74
+ " font setting reload"
75
+ (interactive )
76
+ (set-font)
77
+ (set-frame-font " fontset-myfontset" 1 t ))
78
+
79
+ (default-font-size)
80
+
81
+ ; ; 只在GUI情况下应用字体。Console时保持终端字体。
82
+
83
+ (if window-system
84
+ (progn
85
+ (set-font)
86
+ ; ; 把上面的字体集设置成默认字体
87
+ ; ; 这个字体名使用是create-fontset-from-fontset-spec函数的第一行的最后两个字段
88
+ (set-frame-font " fontset-myfontset" )
89
+
90
+ ; ; 鼠标快捷键绑定
91
+ (global-set-key '[C-wheel-up] 'increase-font-size )
92
+ (global-set-key '[C-wheel-down] 'decrease-font-size )
93
+ ; ; 键盘快捷键绑定
94
+ (global-set-key (kbd " C--" ) 'decrease-font-size ) ; Ctrl+-
95
+ (global-set-key (kbd " C-0" ) 'default-font-size ) ; Ctrl+0
96
+ (global-set-key (kbd " C-+" ) 'increase-font-size ) ; Ctrl++
97
+ (font-reload)
98
+ ))
99
+
100
+ (if (eq system-type 'darwin )
101
+ (font-reload))
100
102
101
103
(provide 'init-fonts )
0 commit comments