+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ ;; (create-fontset-from-fontset-spec
+ ;; "-*-Source Code Pro-normal-normal-normal-*-12-*-*-*-*-*-fontset-osaka12")
+ ;; (create-fontset-from-fontset-spec
+ ;; "-*-Source Code Pro-normal-normal-normal-*-12-*-*-*-*-*-fontset-osaka13")
+
+ ;; (create-fontset-from-fontset-spec
+ ;; "-*-consolas-*-*-*-*-12-*-*-*-*-*-fontset-consolas,
+ ;; ascii:-*-consolas-*-*-*-*-12-*-*-*-*-*-iso8859-1,
+ ;; latin-iso8859-1:-*-consolas-*-*-*-*-12-*-*-*-*-*-iso8859-1,
+ ;; latin-iso8859-15:-*-consolas-*-*-*-*-12-*-*-*-*-*-iso8859-15")
+
+ ;; (set-fontset-font
+ ;; "fontset-default" nil
+ ;; "-*-stheiti-*-*-*-*-14-*-*-*-*-*-gb2312.1980-*" nil 'prepend)
+ ;; (set-fontset-font
+ ;; "fontset-osaka12" 'kana
+ ;; "-*-stheiti-*-*-*-*-14-*-*-*-*-*-gbk-0" nil 'prepend)
+ ;; (set-fontset-font
+ ;; "fontset-osaka12" 'han
+ ;; "-*-stheiti-*-*-*-*-14-*-*-*-*-*-gbk-0" nil 'prepend)
+ ;; (set-fontset-font
+ ;; "fontset-osaka12" 'cjk-misc
+ ;; "-*-stheiti-*-*-*-*-14-*-*-*-*-*-gbk-0" nil 'prepend)
+
+ (set-face-attribute 'variable-pitch nil :font "Calibri" :height 160)
+ (set-face-attribute 'fixed-pitch nil :font "Source Code Pro" :height 120)
+
+ (add-hook 'text-mode-hook 'variable-pitch-mode)
+
+ (with-eval-after-load "org"
+ (set-face-attribute 'org-code nil :inherit 'fixed-pitch)
+ (set-face-attribute 'org-block nil :inherit 'fixed-pitch)
+ (set-face-attribute 'org-table nil :family "Ubuntu Mono" :height 120)
+ (set-face-attribute 'org-block-background nil :inherit 'fixed-pitch)
+ ;; fix indent broken by variable-pitch-mode
+ ;; http://emacs.stackexchange.com/questions/26864/variable-pitch-face-breaking-indentation-in-org-mode
+ (require 'org-indent)
+ (set-face-attribute 'org-indent nil :inherit '(org-hide fixed-pitch)))
+#+END_SRC
+
+