mirror of
https://github.com/js0ny/dotfiles.git
synced 2025-12-21 16:53:00 +00:00
92 lines
3 KiB
EmacsLisp
92 lines
3 KiB
EmacsLisp
;;; init-appearance.el
|
|
|
|
(when (display-graphic-p)
|
|
(add-to-list 'default-frame-alist '(font . "Maple Mono NF CN")))
|
|
|
|
;; Set CJK Display Font
|
|
(dolist (charset '(kana han cjk-misc bopomofo))
|
|
(set-fontset-font t charset (font-spec :family "Maple Mono NF CN")))
|
|
|
|
;; Icon Support
|
|
;; Once installed, Manually install the fonts required:
|
|
;; M-x all-the-icons-install-fonts
|
|
;; If under Microsoft Windows, the Installation Directory should be chosen
|
|
;; and right-click them to install the fonts
|
|
(use-package all-the-icons
|
|
:if (display-graphic-p))
|
|
|
|
|
|
(defun js0ny/get-system-theme ()
|
|
" Get the current system theme. Returns 'light' or 'dark'."
|
|
;; Default
|
|
(let ((background 'dark))
|
|
(if (string= system-type "darwin")
|
|
(progn
|
|
;; Check if 'defaults' command is available
|
|
(when (executable-find "defaults")
|
|
;; Check if the system is in dark mode
|
|
(let ((apple-interface-style
|
|
(shell-command-to-string "defaults read -g AppleInterfaceStyle")))
|
|
(when (string-match-p "Light" apple-interface-style)
|
|
(setq background 'light)))))
|
|
;; Using systemd to check the current theme
|
|
(when (executable-find "busctl")
|
|
(let ((result
|
|
(shell-command-to-string
|
|
(concat "busctl --user call org.freedesktop.portal.Desktop "
|
|
"/org/freedesktop/portal/desktop "
|
|
"org.freedesktop.portal.Settings ReadOne ss "
|
|
"org.freedesktop.appearance color-scheme"))))
|
|
;; 结果格式为浅色模式是 "v u 0"，暗色模式是 "v u 1"
|
|
;; v u 0 -> light, v u 1 -> dark
|
|
(when (string-match "u\\s+\\([0-9]\\)" result)
|
|
(let ((color-scheme (match-string 1 result)))
|
|
(when (string= color-scheme "0")
|
|
(setq background 'light)))))))
|
|
background))
|
|
|
|
(use-package catppuccin-theme
|
|
:custom
|
|
(catppuccin-flavor 'mocha)
|
|
:config
|
|
(if (string-equal (js0ny/get-system-theme) "light")
|
|
(setq catppuccin-flavor 'latte)
|
|
(setq catppuccin-flavor 'mocha))
|
|
(load-theme 'catppuccin t))
|
|
|
|
|
|
|
|
;; (use-package doom-themes
|
|
;; :ensure t
|
|
;; :config
|
|
;; ;; Global settings (defaults)
|
|
;; :custom
|
|
;; (doom-themes-enable-bold t) ; if nil, bold is universally disabled
|
|
;; (doom-themes-enable-italic t) ; if nil, italics is universally disabled
|
|
;; ; (doom-themes-treemacs-theme "doom-nord-aurora") ; use "doom-colors" for less minimal icon theme
|
|
;; :config
|
|
;; (load-theme 'doom-nord-aurora t)
|
|
|
|
;; ;; Enable flashing mode-line on errors
|
|
;; (doom-themes-visual-bell-config)
|
|
|
|
;; ;; Enable custom neotree theme (nerd-icons must be installed!)
|
|
;; ;; (doom-themes-neotree-config)
|
|
|
|
;; ;; or for treemacs users
|
|
;; (doom-themes-treemacs-config)
|
|
;; ;; Corrects (and improves) org-mode's native fontification.
|
|
;; (doom-themes-org-config))
|
|
|
|
|
|
;; Better mode line, see (L11) for Icon install
|
|
;; M-x nerd-icons-install-fonts
|
|
(use-package doom-modeline
|
|
:ensure t
|
|
:init (doom-modeline-mode 1))
|
|
|
|
(global-tab-line-mode) ; bufferline
|
|
|
|
|
|
|
|
(provide 'init-appearance)
|