[nongnu] elpa/org-tree-slide 62da9b28c6 130/144: Integrate auto configurator for header

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 62da9b28c632ae42d03afb068b31a08be4a61791
Author: Takaaki ISHIKAWA <takaxp@ieee.org>
Commit: Takaaki ISHIKAWA <takaxp@ieee.org>

    Integrate auto configurator for header
---
 org-tree-slide.el | 27 ++++++++++++++++++++++++---
 1 file changed, 24 insertions(+), 3 deletions(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index 76630f4c6d..2e314f3c34 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -3,8 +3,8 @@
 ;; Copyright (C) 2011-2020 Takaaki ISHIKAWA
 ;;
 ;; Author: Takaaki ISHIKAWA <takaxp at ieee dot org>
-;; Version: 2.8.16
-;; Package-Requires: ((emacs "24.3"))
+;; Version: 2.8.17
+;; Package-Requires: ((emacs "24.4"))
 ;; Maintainer: Takaaki ISHIKAWA <takaxp at ieee dot org>
 ;; Twitter: @takaxp
 ;; URL: https://github.com/takaxp/org-tree-slide
@@ -78,7 +78,7 @@
 (require 'org)
 (require 'org-timer)
 
-(defconst org-tree-slide "2.8.16"
+(defconst org-tree-slide "2.8.17"
   "The version number of the org-tree-slide.el.")
 
 (defgroup org-tree-slide nil
@@ -545,13 +545,19 @@ This is displayed by default if 
`org-tree-slide-modeline-display' is nil.")
 (defvar org-tree-slide--header-overlay nil
   "Flag to check the status of overlay for a slide header.")
 
+(defvar org-tree-slide--header-face-autoconfig nil)
 (defun org-tree-slide--setup ()
   "Setup."
+  (when org-tree-slide--header-face-autoconfig
+    (org-tree-slide--reset-header-face)
+    (advice-add 'enable-theme :around #'org-tree-slide--enable-theme))
   (when (org-tree-slide--active-p)
     (org-tree-slide--play)))
 
 (defun org-tree-slide--abort ()
   "Abort."
+  (when org-tree-slide--header-face-autoconfig
+    (advice-remove 'enable-theme #'org-tree-slide--enable-theme))
   (when (equal major-mode 'org-mode)
     (org-tree-slide--stop)))
 
@@ -778,6 +784,21 @@ concat the headers."
   "Face for org-tree-slide--header-overlay"
   :group 'org-tree-slide)
 
+(defun org-tree-slide--reset-header-face ()
+  "Reset the header face."
+  (face-spec-set 'org-tree-slide-header-overlay-face
+                 `((t (:bold t
+                             :foreground ,(face-foreground 'default)
+                             :background ,(face-background 'default))))))
+
+(defun org-tree-slide--enable-theme (f theme)
+  "Extend `enable-theme'.
+F is the original function.
+THEME is identical to the original arguments."
+  (funcall f theme)
+  (when (eq theme 'user)
+    (org-tree-slide--reset-header-face)))
+
 (defun org-tree-slide--get-parents (&optional delim)
   "Get parent headlines and concat them with DELIM."
   (setq delim (or delim " > "))