有时候看屏幕,想把字体放大,但放大到一定程度后,counsel-M-x + ivy-posframe就不能选中命令了,不知道有没有人遇到过同样问题?
字体设置代码如下
(if is-windows (setq cn-font-name "更纱黑体 Mono SC Nerd") (setq cn-font-name "Inconsolata"))
(if is-windows (setq en-font-name "Courier New") (setq en-font-name "Inconsolata"))
(setq en-font-size 14 cn-font-size 14)
(defun eye-update-font-size ()
;; English font
(set-face-attribute 'default nil :font
(font-spec :family en-font-name :weight 'normal :slant 'normal :size en-font-size))
;; Chinese font
(dolist (charset '(kana han symbol cjk-misc bopomofo))
(set-fontset-font (frame-parameter nil 'font)
charset
(font-spec :family cn-font-name
:weight 'normal
:slant 'normal
:size en-font-size
))))
(defun eye/increase-font-size ()
"Increase font size of english and chinese."
(interactive)
(setq en-font-size (+ en-font-size 2))
(setq cn-font-size (+ cn-font-size 1))
(eye-update-font-size)
)
(defun eye/decrease-font-size ()
"Decrease font size of english and chinese."
(interactive)
(setq en-font-size (- en-font-size 2))
(setq cn-font-size (- cn-font-size 1))
(eye-update-font-size)
(if (equal (frame-parameter nil 'fullscreen) 'maximize)
(maximize-frame))
)
(when is-gui
(eye-update-font-size)
(define-key global-map (kbd "<C-wheel-up>") #'eye/increase-font-size)
(define-key global-map (kbd "<C-wheel-down>") #'eye/decrease-font-size)
)
)