branch: elpa/org-tree-slide
commit 1fb3ecb637d0baff40dff7965dcac63b9674377b
Author: Takaaki ISHIKAWA <tak...@ieee.org>
Commit: Takaaki ISHIKAWA <tak...@ieee.org>
Refine the default of header-overlay-face
---
org-tree-slide.el | 28 +++-------------------------
1 file changed, 3 insertions(+), 25 deletions(-)
diff --git a/org-tree-slide.el b/org-tree-slide.el
index f20a699697..90f490eacf 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -3,7 +3,7 @@
;; Copyright (C) 2011-2020 Takaaki ISHIKAWA
;;
;; Author: Takaaki ISHIKAWA <takaxp at ieee dot org>
-;; Version: 2.8.17
+;; Version: 2.8.18
;; Package-Requires: ((emacs "24.4"))
;; Maintainer: Takaaki ISHIKAWA <takaxp at ieee dot org>
;; Twitter: @takaxp
@@ -78,7 +78,7 @@
(require 'org)
(require 'org-timer)
-(defconst org-tree-slide "2.8.17"
+(defconst org-tree-slide "2.8.18"
"The version number of the org-tree-slide.el.")
(defgroup org-tree-slide nil
@@ -553,16 +553,11 @@ This is displayed by default if
`org-tree-slide-modeline-display' is nil.")
(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)))
@@ -783,27 +778,10 @@ concat the headers."
(set header-variable
(if (re-search-forward regexp limit t) (match-string 1) nil)))
-(defface org-tree-slide-header-overlay-face
- `((t (:bold t :foreground ,(face-foreground 'default)
- :background ,(face-background 'default))))
+(defface org-tree-slide-header-overlay-face '((t :inherit default))
"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 " > "))
