111 lines
3.4 KiB
EmacsLisp
111 lines
3.4 KiB
EmacsLisp
;;; init-ui.el
|
||
;;; -*- lexical-binding: t -*-
|
||
|
||
;; 设置系统编码
|
||
(when (fboundp 'set-charset-priority)
|
||
(set-charset-priority 'unicode))
|
||
|
||
(set-language-environment 'chinese-gbk)
|
||
(prefer-coding-system 'utf-8-auto)
|
||
|
||
;; 安装solarized dark
|
||
(use-package solarized-theme)
|
||
(load-theme 'solarized-dark t)
|
||
|
||
;; 安装smart-mode-line
|
||
(use-package smart-mode-line
|
||
:defer 0.5
|
||
:config
|
||
(setq sml/no-confirm-load-theme t
|
||
sml/theme 'respectful)
|
||
(sml/setup))
|
||
|
||
;; eshell高亮
|
||
(use-package eshell-syntax-highlighting
|
||
:hook (eshell-mode . eshell-syntax-highlighting-global-mode))
|
||
|
||
(add-hook 'eshell-mode-hook
|
||
(lambda ()
|
||
(setenv "TERM" "xterm-256color")
|
||
(setenv "COLORTERM" "truecolor")
|
||
(add-to-list 'eshell-output-filter-functions 'eshell-handle-ansi-color t)
|
||
(setq-local eshell-prefer-lisp-functions nil)
|
||
(setenv "LS_COLORS"
|
||
"di=34:ln=35:so=32:pi=33:ex=31:bd=34;46:cd=34;43:su=30;41:sg=30;46")
|
||
(setenv "GIT_CONFIG_GLOBAL" (expand-file-name "~/.emacs.d/.gitconfig-eshell"))))
|
||
|
||
;; 高亮当前行
|
||
(global-hl-line-mode t)
|
||
|
||
;; 显示文件大小
|
||
(size-indication-mode t)
|
||
|
||
;; 显示行号列号
|
||
(column-number-mode t)
|
||
|
||
;; 配置字体
|
||
(defvar cn-fonts-list '("Sarasa Fixed TC" "STHeiti" "微软雅黑" "文泉译微米黑")
|
||
"定义使用的中文字体候选列表")
|
||
|
||
(defvar en-fonts-list '("Sarasa Fixed TC" "Courier New" "Monaco" "Ubuntu Mono")
|
||
"定义使用的英文字体候选列表")
|
||
|
||
(defvar emoji-fonts-list '("Apple Color Emoji" "Segoe UI Emoji" "Noto Color Emoji" "Symbola" "Symbol")
|
||
"定义使用Emoji字体候选列表")
|
||
|
||
(defun tenon--available-font (font-list)
|
||
"从 FONT-LIST 中寻找第一个系统中可用的字"
|
||
(catch 'found
|
||
(dolist (font font-list)
|
||
(when (member font (font-family-list))
|
||
(throw 'found font)))))
|
||
|
||
;; 设置字体大小和字重变量
|
||
(defvar tenon-font-size 125
|
||
"默认字体大小")
|
||
(defvar tenon-font-weight 'light
|
||
"默认字重，选项有ultra-light，light，normal，medium，semibold，bold")
|
||
|
||
;; 定义函数
|
||
;;;###autoload
|
||
(defun tenon--font-setup ()
|
||
"Font setup."
|
||
(interactive)
|
||
(let* ((cf (tenon--available-font cn-fonts-list))
|
||
(ef (tenon--available-font en-fonts-list))
|
||
(em (tenon--available-font emoji-fonts-list)))
|
||
(when ef
|
||
(dolist (face '(default fixed-pitch fixed-pitch-serif variable-pitch))
|
||
(set-face-attribute face nil
|
||
:family ef
|
||
:height tenon-font-size
|
||
:weight tenon-font-weight)))
|
||
(when em
|
||
(dolist (charset `(unicode unicode-bmp ,(if (> emacs-major-version 27) 'emoji 'symbol)))
|
||
(set-fontset-font t charset em nil 'prepend)))
|
||
(when cf
|
||
(dolist (charset '(kana han cjk-misc bopomofo))
|
||
(set-fontset-font t charset cf))
|
||
(setq face-font-rescale-alist
|
||
(mapcar (lambda (item) (cons item 1)) `(,cf ,em))))))
|
||
|
||
;; 延迟执行字体设置
|
||
(add-hook 'after-init-hook #'tenon--font-setup)
|
||
|
||
;; 添加个人字体到 cnfonts
|
||
(setq cnfonts-personal-fontnames
|
||
'(("Sarasa Fixed TC") ; 英文字体
|
||
("Sarasa Fixed TC") ; 中文字体
|
||
nil ; Ext-B 字体（可选）
|
||
nil ; Symbol 字体（可选）
|
||
nil)) ; 装饰字体（可选）
|
||
|
||
;; 安装cnfonts脚本，用于修复中英文对齐
|
||
(use-package cnfonts
|
||
:defer 0
|
||
:config
|
||
(cnfonts-mode 1)
|
||
(cnfonts--select-profile "profile1"))
|
||
|
||
(provide 'init-ui)
|