branch: elpa/org-tree-slide
commit 062035ec7b36106d61a05e62c8376ca4e5682753
Author: Takaaki ISHIKAWA <tak...@ieee.org>
Commit: Takaaki ISHIKAWA <tak...@ieee.org>
Extract header colors from default face of frame
---
org-tree-slide.el | 14 +++++---------
1 file changed, 5 insertions(+), 9 deletions(-)
diff --git a/org-tree-slide.el b/org-tree-slide.el
index a4f0e2c9ee..dafd2bca3b 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -3,7 +3,7 @@
;; Copyright (C) 2011-2018 Takaaki ISHIKAWA
;;
;; Author: Takaaki ISHIKAWA <takaxp at ieee dot org>
-;; Version: 2.8.8
+;; Version: 2.8.9
;; Maintainer: Takaaki ISHIKAWA <takaxp at ieee dot org>
;; Twitter: @takaxp
;; URL: https://github.com/takaxp/org-tree-slide
@@ -611,14 +611,12 @@ This is displayed by default if
`org-tree-slide-modeline-display' is nil.")
(defun org-tree-slide--outline-next-heading ()
"Go to the next heading."
- (message "org-tree-slide--outline-next-heading")
(org-tree-slide--outline-select-method
(if (outline-next-heading) nil 'last)
'next))
(defun org-tree-slide--outline-previous-heading ()
"Go to the previous heading."
- (message "org-tree-slide--outline-previous-heading")
(org-tree-slide--outline-select-method
(if (outline-previous-heading) nil 'first)
'previous))
@@ -727,12 +725,10 @@ concat the headers."
(if (re-search-forward regexp limit t) (match-string 1) nil)))
(defface org-tree-slide-header-overlay-face
- '((((class color) (background dark))
- (:bold t :foreground "white" :background "black"))
- (((class color) (background light))
- (:bold t :foreground "black" :background "white"))
- (t (:bold t :foreground "black" :background "white")))
- "Face for org-tree-slide--header-overlay")
+ `((t (:bold t :foreground ,(face-foreground 'default)
+ :background ,(face-background 'default))))
+ "Face for org-tree-slide--header-overlay"
+ :group 'org-tree-slide)
(defun org-tree-slide--get-parents (&optional delim)
"Get parent headlines and concat them with DELIM."
