Your Name
14 lines
471 B
EmacsLisp
14 lines
471 B
EmacsLisp
;;; ../../lyfi/configs/apps/doom/custom/ui.el -*- lexical-binding: t; -*-
|
|
|
|
|
|
(defun my/apply-theme (frame)
|
|
"Apply a specific theme 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 'cutarv32 t)) ;; Your GUI theme
|
|
(progn
|
|
(mapc #'disable-theme custom-enabled-themes)
|
|
(load-theme 'cutarv32_dark t)))) ;; Your TUI theme
|