Config with font set

init.el

@@ -47,9 +47,6 @@
   (set-keyboard-coding-system 'utf-8)
   (set-default-coding-systems 'utf-8)
 
-  ;; Set font
-  (set-frame-font "Source Code Pro 11" t t)
-
   (add-hook 'prog-mode-hook (lambda () (setq truncate-lines t)))
   
 ;;; Packages

lisp/configs.el

@@ -3,6 +3,11 @@
 ;;; Commentary:
 
 ;;; Code:
+(defvar user/default-font '("Consolas"
+                            :size 10
+                            :weight normal
+                            :width normal))
+
 (defvar user/userconfig-file
   (expand-file-name "cache/userconfig" user-emacs-directory))
 

lisp/editor.el

@@ -75,6 +75,12 @@
 (when (bound-and-true-p tooltip-mode)
   (tooltip-mode -1))
 
+;; Font set
+(when (find-font (font-spec :name (car user/default-font)))
+  (let* ((font (car user/default-font))
+         (props (cdr user/default-font))
+         (fontspec (apply 'font-spec :name font props)))
+    (set-frame-font fontspec nil t)))
 
 ;;; Keybinding
 (use-package evil

lisp/templates/userconfig.template

@@ -11,5 +11,11 @@
  user/package-mirror emacs-china-package-mirror
 
  ;; user/lsp-client
+
+ ;; font
+ ;; user/default-font '("Source Code Pro"
+ ;;                     :size 15
+ ;;                     :weight normal
+ ;;                     :width normal)
  )