32 lines
1.3 KiB
EmacsLisp
32 lines
1.3 KiB
EmacsLisp
;;; ../../lyfi/configs/apps/doom/custom/ui.el -*- lexical-binding: t; -*-
|
|
|
|
(defun my-set-buffer-font ()
|
|
"Set a specific font for the current buffer only."
|
|
(buffer-face-set '(:family "Noto Sans" :height 140)))
|
|
|
|
(defun my/apply-theme (frame)
|
|
"Apply a specific theme and update package colors based on whether the FRAME is graphic or TUI."
|
|
(select-frame frame)
|
|
(if (display-graphic-p frame)
|
|
(progn
|
|
(mapc #'disable-theme custom-enabled-themes)
|
|
(load-theme 'cutarv42 t)
|
|
;; Update rainbow-delimiters colors for Light theme
|
|
(setq rainbow-delimiters-rainbow-colors
|
|
'("#007cbf" "#cf3f29" "#2374de" "#c75e10" "#b05197" "#429e66" "#129cc9" "#a64dd6")))
|
|
(progn
|
|
(mapc #'disable-theme custom-enabled-themes)
|
|
(load-theme 'cutarv42 t)
|
|
;; Update rainbow-delimiters colors for Dark theme
|
|
;; (setq rainbow-delimiters-rainbow-colors
|
|
;; '("#4da6ff" "#ff6b6b" "#6da6ff" "#ffb347" "#d18ecb" "#8fbc8f" "#80daeb" "#c8a0f2"))
|
|
))
|
|
(custom-set-faces
|
|
`(meow-insert-cursor ((t (:inherit unspecified :background ,(face-attribute 'font-lock-builtin-face :foreground)))))
|
|
`(meow-normal-cursor ((t (:foreground ,(face-attribute 'mode-line-inactive :background), :background ,(face-attribute 'mode-line :foreground)))))
|
|
)
|
|
)
|
|
|
|
|
|
(provide 'ui)
|