[nongnu] elpa/org-tree-slide 062035ec7b 102/144: Extract header colors from default face of frame

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 062035ec7b36106d61a05e62c8376ca4e5682753
Author: Takaaki ISHIKAWA <takaxp@ieee.org>
Commit: Takaaki ISHIKAWA <takaxp@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."