;; overide the default changing font size bindings
;; to make changing more subtle
(defun
local-increase-font-size
() (
interactive) (
set-face-attribute
'default
nil:height
(ceiling (*
1.03
(face-attribute
'default
:height
)))))
(defun
local-decrease-font-size
() (
interactive) (
set-face-attribute
'default
nil:height
(floor (*
0.98
(face-attribute
'default
:height
))))) (
global-set-key
(kbd
"c-+"
)'local-increase-font-size) (
global-set-key
(kbd
"c--"
)'local-decrease-font-size
)
;; 方法二 可執行，但字型無法改變(from:aaaa
emacs預設的字型太小、太粗糙，看起來很不舒服，不設定實在是對不起自己的眼睛。但是，在emacs裡挑選合適的字型是個比較麻煩的事情，讓初學者望而卻步。本文推薦大家用一種比較直觀的辦法來設定自己喜歡的字型。
首先，在emacs中，通過選單options –> set default font，設定好你喜歡的字型。
然後，把游標放到你所在的字型上，用命令m-x describe-font來檢視你當前使用的字型名稱、字型大小大小。
把其中的字型資訊拷貝出來，寫到.emacs檔案裡
(set-default-font 「-outline-courier new-normal-italic-normal-mono-16-*-*-*-c-*-iso8859-1″)
注意，這裡的字型大小16是emacs自己的xlfd字型大小的大小值，跟你剛剛在對話方塊裡設定的不一樣。
這樣，你下次開啟emacs的時候，就可以使用你當前設定好的字型了。
其實，在emacs23裡，因為採用了新的fontconfig字型描述格式，對這個語句的寫法有著更加人性化的寫法。可以直接把你對話方塊的內容按下面的形式寫到.emacs裡：
(set-default-font 「courier new-14″)
其中courier new為字型，14為對話方塊裡設定的字型大小。
當然，還有更靈活的查詢功能。可以用下面這個語句來調出設定字型的對話方塊：(w32-select-font nil t)
只要把它放到*scratch*裡，然後在行末按c-j即可執行。
同樣，如果你要查詢emacs裡能使用的所有字型名稱，可以用這個命令：(insert (prin1-to-string (x-list-fonts 「*」)))
在行末用c-x c-e來執行即可。
;;方法三 不能執行（from：
;; fonts setting
;; 設定兩個字型變數，乙個中文的乙個英文的
;; 之所以兩個字型大小是因為有的中文和英文相同字型大小的顯示大小不一樣，需要手動調整一下。
(setq
cjk-font-size 16)(
setq
ansi-font-size 16)
;; 設定乙個字型集，用的是create-fontset-from-fontset-spec內建函式
;; 中文乙個字型，英文乙個字型混編。顯示效果很好。
(defun
set-font()
(interactive)(
create-fontset-from-fontset-spec
(concat
"-*-fixed-medium-r-normal-*-*-*-*-*-*-*-fontset-myfontset,"
(format
"ascii:-outline-consolas-normal-normal-normal-mono-%d-*-*-*-c-*-iso8859-1,"
ansi-font-size)(
format
"unicode:-microsoft-microsoft yahei-normal-normal-normal-*-%d-*-*-*-*-0-iso8859-1,"
cjk-font-size)(
format
"chinese-gb2312:-microsoft-microsoft yahei-normal-normal-normal-*-%d-*-*-*-*-0-iso8859-1,"
cjk-font-size
);; (format "unicode:-outline-文泉驛等寬微公尺黑-normal-normal-normal-sans-*-*-*-*-p-*-gb2312.1980-0," cjk-font-size)
;; (format "chinese-gb2312:-outline-文泉驛等寬微公尺黑-normal-normal-normal-sans-*-*-*-*-p-*-gb2312.1980-0," cjk-font-size)))
);; 函式字型增大，每次增加2個字型大小，最大48號
(defun
increase-font-size()
"increase font size"
(interactive)(
if(<
cjk-font-size 48)(
progn
(setq
cjk-font-size
(+ cjk-font-size 2))
(setq
ansi-font-size
(+ ansi-font-size 2)
)))(
message
"cjk-size:%d pt, ansi-size:%d pt"
cjk-font-size ansi-font-size)(
set-font)(
sit-for .5
));; 函式字型增大，每次減小2個字型大小，最小2號
(defun
decrease-font-size()
"decrease font size"
(interactive)(
if(>
cjk-font-size 2)(
progn
(setq
cjk-font-size
(- cjk-font-size 2))
(setq
ansi-font-size
(- ansi-font-size 2)
)))(
message
"cjk-size:%d pt, ansi-size:%d pt"
cjk-font-size ansi-font-size)(
set-font)(
sit-for .5
));; 恢復成預設大小16號
(defun
default-font-size()
"default font size"
(interactive)(
setq
cjk-font-size 16)(
setq
ansi-font-size 16)
(message
"cjk-size:%d pt, ansi-size:%d pt"
cjk-font-size ansi-font-size)(
set-font)(
sit-for .5
));; 只在gui情況下應用字型。console時保持終端字型。(if
window-system
(progn
(set-font
);; 把上面的字型集設定成預設字型
;; 這個字型名使用是create-fontset-from-fontset-spec函式的第一行的最後兩個字段
(set-frame-font
"fontset-myfontset"
);; 滑鼠快捷鍵繫結
(global-set-key '
[c-wheel-up
]'increase-font-size)(
global-set-key '
[c-wheel-down
]'decrease-font-size
);; 鍵盤快捷鍵繫結
(global-set-key
(kbd
"c--"
)'decrease-font-size
);ctrl+-
(global-set-key
(kbd
"c-0"
)'default-font-size
);ctrl+0
(global-set-key
(kbd
"c-="
)'increase-font-size
);ctrl+=))
parsed in 0.009 seconds, using
geshi
1.0.8.4
Emacs字型設定
首先，在emacs中，通過選單options set default font，設定好喜歡的字型。然後，把游標放到你所在的字型上，用命令m x describe font來檢視你當前使用的字型名稱 字型大小大小。把其中的字型資訊拷貝出來，寫到.emacs檔案裡 set default font ou...
今天配置了一下Emacs字型
今天簡單配置了一下emacs的字型，到這個程度，我個人已經比較滿意了。中文和字型我沒有配置過多，簡單的寫了幾行在 emacs 的最前面 set language environment utf 8 set locale environment utf 8 set default font couri...
設定emacs的預設字型
字型看著舒服很重要，放入 emacs中如下 custom set faces default t stipple nil background systemwindow foreground systemwindowtext inverse video nil box nil strike thro...