+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ ;; (create-fontset-from-fontset-spec
+ ;; "-*-Source Code Pro-*-*-*-*-12-*-*-*-*-*-fontset-Source Code Pro,
+ ;; ascii:-*-Source Code Pro-normal-normal-normal-*-23-*-*-*-m-0-iso10646-1,
+ ;; latin-iso8859-1:-*-Source Code Pro-normal-normal-normal-*-17-*-*-*-m-0-iso10646-1,
+ ;; latin-iso8859-15:-*-Source Code Pro-normal-normal-normal-*-17-*-*-*-m-0-iso10646-1,
+ ;; chinese-gb2312:-*-STHeiti-*-*-*-*-14-*-*-*-c-*-*-*,
+ ;; han:-*-STHeiti-*-*-*-*-14-*-*-*-c-*-*-*")
+
+
+ ;; (create-fontset-from-fontset-spec
+ ;; "-*-Courier New-normal-r-*-*-14-*-*-*-c-*-fontset-myfixwidth,
+ ;; ascii:-*-Courier New-normal-normal-normal-*-17-*-*-*-m-0-iso10646-1,
+ ;; kana:-*-STFangsong-normal-r-*-*-16-*-*-*-c-*-*-*,
+ ;; han:-*-STFangsong-normal-r-*-*-16-*-*-*-c-*-*-*,
+ ;; symbol:-*-STFangsong-normal-r-*-*-16-*-*-*-c-*-*-*,
+ ;; cjk-misc:-*-STFangsong-normal-r-*-*-16-*-*-*-c-*-*-*,
+ ;; bopomofo:-*-STFangsong-normal-r-*-*-16-*-*-*-c-*-*-*" t)
+ ;; (create-fontset-from-fontset-spec
+ ;; "-*-Courier New-normal-r-*-*-14-*-*-*-c-*-fontset-myfixwidth,
+ ;; ascii:-*-Courier New-normal-normal-normal-*-17-*-*-*-m-0-iso10646-1")
+
+ ;; (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")
+
+ ;; (setq default-frame-alist '(;; (width . 100)
+
+ ;; ;; (height . 44)
+
+ ;; ;; (top . 50)
+ ;; ;pixels
+ ;; ;; (left . 50)
+ ;; ;pixels
+ ;; (font . "fontset-my-private")
+ ;; ))
+ ;; (with-eval-after-load "org"
+ ;; (set-face-attribute 'org-code nil :family "fontset-myfixwidth")
+ ;; (set-face-attribute 'org-block nil :family "fontset-myfixwidth")
+ ;; (set-face-attribute 'org-table nil :family "fontset-myfixwidth")
+ ;; (set-face-attribute 'org-block-background nil :family "fontset-myfixwidth"))
+ ;; (setq default-frame-alist
+ ;; (append
+ ;; '((font . "fontset-osaka13")) default-frame-alist))
+
+
+ ;; (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))
+#+END_SRC
+