Files
.emacs.d/lisp/init-ui.el
Zelong Kuang 2a04d507d7 Update
2026-03-14 19:46:30 +11:00

171 lines
5.0 KiB
EmacsLisp

;; -*- lexical-binding: t -*-
;; (setq idle-update-delay 1.0)
;; (setq-default line-height 0.16)
;; (setq-local default-text-properties '(line-spacing 0.1 line-height 1.1))
;; Suppress GUI features
(setq use-file-dialog nil
use-dialog-box nil
inhibit-startup-screen t
inhibit-startup-echo-area-message user-login-name
inhibit-default-init t
initial-scratch-message nil)
(setq-default cursor-in-non-selected-windows nil)
(setq highlight-nonselected-windows nil)
(setq fast-but-imprecise-scrolling t)
(setq redisplay-skip-fontification-on-input t)
(setq frame-inhibit-implied-resize t
frame-resize-pixelwise t)
;; 隐藏 title bar
(setq default-frame-alist '((undecorated-round . t)))
(use-package solaire-mode
:hook (elpaca-after-init . solaire-global-mode))
(use-package standard-themes :demand t
:config
(modus-themes-load-theme 'standard-light))
;; (use-package doric-themes
;; :demand t
;; :bind ("<f5>" . doric-load-random)
;; :init
;; (defun doric-load-random ()
;; (interactive)
;; (mapc #'disable-theme custom-enabled-themes)
;; (let* ((themes '(doric-fire
;; doric-oak
;; doric-jade
;; doric-wind
;; doric-beach
;; doric-earth
;; doric-valley))
;; (loaded (seq-random-elt themes)))
;; (load-theme loaded :no-confirm)))
;; (doric-load-random)
;; )
(use-package modus-themes
:init
(setq modus-themes-italic-constructs t
modus-themes-bold-constructs t
modus-themes-mixed-fonts t))
(use-package rainbow-delimiters
:hook ((prog-mode . rainbow-delimiters-mode)
(typst-ts-mode . rainbow-delimiters-mode)
(foo-mode . rainbow-delimiters-mode)))
(use-package rainbow-mode
:hook elpaca-after-init)
;; (use-package nano-theme
;; :ensure (nano-theme :type git :host github
;; :repo "rougier/nano-theme")
;; :init
;; (modus-themes-load-theme 'nano-dark))
(use-package doom-modeline
:hook (elpaca-after-init . doom-modeline-mode)
:config
(setq doom-modeline-support-imenu t
doom-modeline-height 30
doom-modeline-buffer-file-name-style 'buffer-name
doom-modeline-enable-word-count t
doom-modeline-project-detection 'projectile
doom-modeline-project-name t))
(use-package hide-mode-line
:autoload turn-off-hide-mode-line-mode
:hook (((eat-mode
eshell-mode shell-mode
term-mode vterm-mode
embark-collect-mode lsp-ui-imenu-mode
pdf-annot-list-mode) . turn-on-hide-mode-line-mode)))
(unless (daemonp)
(advice-add #'display-startup-echo-area-message :override #'ignore))
;; Display dividers between windows
(setq window-divider-default-places t
window-divider-default-bottom-width 1
window-divider-default-right-width 1)
(add-hook 'window-setup-hook #'window-divider-mode)
(pcase system-type
('darwin ; macOS
(set-face-attribute 'default nil :font "Sarasa Mono TC Nerd Font-22") ; 20 * 1.5
(set-face-attribute 'variable-pitch nil :font "Bookerly-22" :weight 'light)
(set-face-attribute 'fixed-pitch nil :font "Sarasa Term SC-22")
(add-to-list 'default-frame-alist '(height . 53))
(add-to-list 'default-frame-alist '(width . 90)))
('gnu/linux ; Linux (including Debian)
(set-face-attribute 'variable-pitch nil :font "Sarasa Mono TC Nerd Font-14") ; 20 * 1.5
(add-to-list 'default-frame-alist '(height . 40))
(add-to-list 'default-frame-alist '(width . 90))))
(use-package mixed-pitch
:diminish
:hook org-mode
:hook LaTeX-mode)
(use-package diff-hl
:diminish
:hook (elpaca-after-init global-diff-hl-mode)
:hook (elpaca-after-init diff-hl-dired-mode)
:hook (elpaca-after-init diff-hl-flydiff-mode))
;; Easily adjust the font size in all frames
(use-package default-text-scale
:hook (elpaca-after-init . default-text-scale-mode)
:bind (:map default-text-scale-mode-map
("C-s-=" . default-text-scale-increase)
("C-s--" . default-text-scale-decrease)
("C-s-0" . default-text-scale-reset)))
(setq hscroll-step 1
hscroll-margin 2
scroll-step 1
scroll-margin 0
scroll-conservatively 100000
scroll-preserve-screen-position t
auto-window-vscroll nil
;; mouse
mouse-wheel-scroll-amount-horizontal 1
mouse-wheel-progressive-speed nil)
(use-package nerd-icons
:ensure (nerd-icons
:type git
:host github
:repo "rainstormstudio/nerd-icons.el"
:files (:defaults "data"))
:custom
;; The Nerd Font you want to use in GUI
;; "Symbols Nerd Font Mono" is the default and is recommended
;; but you can use any other Nerd Font if you want
(nerd-icons-font-family "Symbols Nerd Font Mono"))
(use-package nerd-icons-ibuffer
:ensure t
:hook (ibuffer-mode-hook . nerd-icons-ibuffer-mode))
(use-package beacon
:diminish
:hook elpaca-after-init)
(use-package spacious-padding
:diminish
:hook elpaca-after-init)
(provide 'init-ui)