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