Created
December 12, 2012 13:43
-
-
Save wellown/4267808 to your computer and use it in GitHub Desktop.
Emacs org-mode实现中英文混排时表格对齐功能
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(eval-when-compile (require 'cl)) | |
(defun set-font (english chinese english-size chinese-size) | |
(set-face-attribute 'default nil :font | |
(format "%s:pixelsize=%d" english english-size)) | |
(dolist (charset '(kana han symbol cjk-misc bopomofo)) | |
(set-fontset-font (frame-parameter nil 'font) charset | |
(font-spec :family chinese :size chinese-size)))) | |
(ecase system-type | |
(gnu/linux | |
(set-face-bold-p 'bold nil) | |
(set-face-underline-p 'bold nil) | |
(set-font "monofur" "vera Sans YuanTi Mono" 20 20)) | |
(darwin | |
(set-font "monofur" "STHeiti" 20 20))) |
Author
wellown
commented
Dec 12, 2012
- 代码来源:http://www.douban.com/group/topic/33652445/
- 此外此贴也讨论了字体对齐问题:http://www.douban.com/group/topic/26970741/
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment