branch: elpa/org-tree-slide
commit 62da9b28c632ae42d03afb068b31a08be4a61791
Author: Takaaki ISHIKAWA <tak...@ieee.org>
Commit: Takaaki ISHIKAWA <tak...@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 " > "))
