custom.el exception

This commit is contained in:
2023-05-18 08:48:01 +09:00
parent ab1f91d99c
commit 97866e0636

View File

@ -1,53 +0,0 @@
(setq user-full-name "JaeYoo-Im"
user-mail-address "cpu3792@gmail.com")
(setq default-input-method "korean-hangul")
(defun custom-setup-fonts ()
"setup fonts..."
(when (display-graphic-p)
;; default font
(cl-loop for font in '("FiraCode Nerd Font Mono" "Jetbrains Mono"
"Source Code Pro" "DejaVu Sans Mono")
when (font-installed-p font)
return (set-face-attribute 'default nil
:family font
:height 130))
;; uni code caracter
(cl-loop for font in '("Segoe UI Symbol" "Symbola" "Symbol")
when (font-installed-p font)
return (set-fontset-font t 'symbol (font-spec :family font) nil 'prepend))
;; Emoji
(cl-loop for font in '("Noto Color Emoji" "Apple Color Emoji" "Segoe UI Emoji")
when (font-installed-p font)
return (cond
((< emacs-major-version 27)
(set-fontset-font "fontset-default" 'unicode font nil 'prepend))
((< emacs-major-version 28)
(set-fontset-font t 'symbol (font-spec :family font) nil 'prepend))
(t
(set-fontset-font t 'emoji (font-spec :family font) nil 'prepend))))
;; Noto font or Nanum
(cl-loop for font in '("Noto Sans CJK KR" "Nanum Gothic")
when (font-installed-p font)
return (progn
(setq face-font-rescale-alist `((,font . 1.26)))
(set-fontset-font t '(#x1100 . #xffdc) (font-spec :family font))))))
(custom-setup-fonts)
(add-hook 'window-setup-hook #'custom-setup-fonts)
(add-hook 'server-after-make-frame-hook #'centaur-setup-fonts)
(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(paradox-github-token t))
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
)