223 lines
6.6 KiB
EmacsLisp
223 lines
6.6 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 modus-themes
|
|
:init
|
|
(setq modus-themes-italic-constructs t
|
|
modus-themes-bold-constructs t
|
|
modus-themes-mixed-fonts t))
|
|
|
|
;; (use-package standard-themes :demand t
|
|
;; :config
|
|
;; (modus-themes-load-theme 'standard-light-tinted))
|
|
|
|
(use-package doric-themes
|
|
:demand t
|
|
:bind ("<f5>" . doric-themes-load-random)
|
|
:bind ("C-<f5>" . doric-load-random-light)
|
|
:bind ("M-<f5>" . doric-load-random-dark)
|
|
:init
|
|
(defvar my/doric-dark-themes
|
|
'(doric-fire
|
|
doric-valley
|
|
doric-walnut
|
|
doric-mermaid
|
|
doric-pine
|
|
doric-plum
|
|
doric-water))
|
|
(defvar my/doric-light-themes
|
|
'(doric-oak
|
|
doric-jade
|
|
doric-wind
|
|
doric-beach
|
|
doric-coral
|
|
doric-earth
|
|
doric-almond))
|
|
|
|
(defun synchronise-theme ()
|
|
(let* ((hour (string-to-number
|
|
(substring (current-time-string) 11 13)))
|
|
(theme-list (if (member hour (number-sequence 6 18))
|
|
my/doric-light-themes
|
|
my/doric-dark-themes))
|
|
(loaded (seq-random-elt theme-list)))
|
|
(mapc #'disable-theme custom-enabled-themes)
|
|
(load-theme loaded :no-confirm)))
|
|
|
|
(synchronise-theme)
|
|
(run-with-timer 3600 3600 'synchronise-theme)
|
|
|
|
(defun doric-load-random-light ()
|
|
(interactive)
|
|
(mapc #'disable-theme custom-enabled-themes)
|
|
(let ((loaded (seq-random-elt my/doric-light-themes)))
|
|
(load-theme loaded :no-confirm)))
|
|
|
|
(defun doric-load-random-dark ()
|
|
(interactive)
|
|
(mapc #'disable-theme custom-enabled-themes)
|
|
(let ((loaded (seq-random-elt my/doric-dark-themes)))
|
|
(load-theme loaded :no-confirm))))
|
|
|
|
(use-package rainbow-delimiters
|
|
:hook ((prog-mode . rainbow-delimiters-mode)
|
|
(typst-ts-mode . rainbow-delimiters-mode)
|
|
(python-ts-mode . rainbow-delimiters-mode)))
|
|
|
|
;; (use-package prism
|
|
;; :hook (prog-mode . prism-mode)
|
|
;; :hook (text-mode . prism-mode)
|
|
;; :hook (typst-ts-mode . prism-mode)
|
|
;; :hook (python-ts-mode . prism-whitespace-mode)
|
|
;; :config
|
|
;; (setq prism-parens t))
|
|
|
|
(use-package rainbow-mode
|
|
:hook text-mode
|
|
:hook prog-mode)
|
|
|
|
(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 'relative-from-project
|
|
doom-modeline-enable-word-count t
|
|
;; doom-modeline-project-name t
|
|
doom-modeline-check 'simple
|
|
doom-modeline-buffer-encoding nil
|
|
doom-modeline-major-mode-icon nil))
|
|
|
|
(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))
|
|
|
|
;; Display transient in child frame
|
|
;; (use-package transient-posframe
|
|
;; :diminish
|
|
;; :commands transient-posframe-mode
|
|
;; :custom-face
|
|
;; (transient-posframe-border ((t (:inherit posframe-border :background unspecified))))
|
|
;; :hook elpaca-after-init
|
|
;; :init (setq transient-mode-line-format nil
|
|
;; transient-posframe-parameters '((left-fringe . 8)
|
|
;; (right-fringe . 8))))
|
|
|
|
(with-no-warnings
|
|
(when (featurep 'ns)
|
|
;; Render thinner fonts
|
|
(setq ns-use-thin-smoothing t)
|
|
;; Don't open a file in a new frame
|
|
(setq ns-pop-up-frames nil)))
|
|
|
|
(use-package beacon
|
|
:diminish
|
|
:hook elpaca-after-init)
|
|
|
|
(use-package spacious-padding
|
|
:diminish
|
|
:hook elpaca-after-init)
|
|
|
|
(provide 'init-ui)
|