-#+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)