aboutsummaryrefslogtreecommitdiffstats
path: root/_emacs.d/personal/30-fonts.el
blob: d172a92387817ea58defed9e5ae1b697b981e7af (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
;;; ~/.emacs.d/personal/fonts.el --- Fonts configurations for Emacs.
;;
;; -*- mode: emacs-lisp -*-
;; vim: set ts=8 sw=2 tw=0 fenc=utf-8 ft=lisp:
;;
;; Credits:
;; [1] http://baohaojun.github.io/perfect-emacs-chinese-font.html
;; [2] http://zhuoqiang.me/a/torture-emacs
;;
;; Aaron LI
;; 2016-02-22
;;

;;; Commentary:
;; English and Chinese fonts configurations for Emacs.

;;; Code:

;; To increase the Unicode coverage of your favorite programming font
;; https://github.com/cpitclaudel/monospacifier
;(dolist (ft (fontset-list))
;  (set-fontset-font ft 'unicode
;                    (font-spec :name "Inconsolata"))
;  (set-fontset-font ft 'unicode
;                    (font-spec :name "Symbola monospacified for Inconsolata")
;                    nil 'append))

;; English font
;; change the default font for the current frame, as well as future frames
;(set-face-attribute 'default nil :font "Terminus:pixelsize=16")
(set-face-attribute 'default nil :font "Inconsolata:pixelsize=14")

;; Chinese font
;; available charset: kana han symbol cjk-misc bopomofo
;; font-spec:
;;   `:size': either a non-negative integer that specifies the pixel size,
;;            or a floating-point number that specifies the point size.
(dolist (charset '(kana han cjk-misc bopomofo))
  (set-fontset-font (frame-parameter nil 'font)
                    charset
                    (font-spec :family "WenQuanYi Zen Hei" :size 14)))
;; rescale chinese font to match: 1 Chinese = 2 English characters
;; (however, this will cause that the Chinese characters are higher)
;(setq face-font-rescale-alist '(("WenQuanYi Bitmap Song" . 1.2)))