awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

feat(lib): backport {enable,disable}-theme-functions

Browse Source 
Backported so I don't have to write compatibility boilerplate for <29.
This commit is contained in:
Henrik Lissner
2024-12-11 15:18:00 -05:00
parent ba1dca322f
commit ecd079f6da
1 changed files with 23 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
lisp/doom-compat.el
View File

@ -126,6 +126,29 @@ and return the value found in PLACE instead."
(setq set-auto-mode--last (cons mode major-mode)))
mode))))
;; Introduced in Emacs 29.1
(unless (boundp 'enable-theme-functions)
(defcustom enable-theme-functions nil
"Abnormal hook that is run after a theme has been enabled.
The functions in the hook are called with one parameter -- the
name of the theme that's been enabled (as a symbol)."
:type 'hook
:group 'customize
:version "29.1")
(defcustom disable-theme-functions nil
"Abnormal hook that is run after a theme has been disabled.
The functions in the hook are called with one parameter -- the
name of the theme that's been disabled (as a symbol)."
:type 'hook
:group 'customize
:version "29.1")
(define-advice enable-theme (:after (theme) trigger-hooks)
(run-hook-with-args 'enable-theme-functions theme))
(define-advice disable-theme (:around (fn theme) trigger-hooks)
(when (custom-theme-enabled-p theme)
(funcall fn theme)
(run-hook-with-args 'enable-theme-functions theme)))
;;; From Emacs 30+
;; Introduced in Emacs 30+