branch: elpa/org-tree-slide
commit fca0042e0ccabdcd8761bf72e1d77e5bfc6633d2
Merge: e835028d43 fb5d0a8c20
Author: Takaaki ISHIKAWA <tak...@ieee.org>
Commit: Takaaki ISHIKAWA <tak...@ieee.org>
Merge pull request #1 from uk-ar/master
Support dark color theme
---
org-tree-slide.el | 13 ++++++++++---
1 file changed, 10 insertions(+), 3 deletions(-)
diff --git a/org-tree-slide.el b/org-tree-slide.el
index 332595015c..5c6dbb0f74 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -533,15 +533,22 @@ Profiles:
(set header-variable
(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 ots-header-overlay")
+
(defun ots-set-slide-header (brank-lines)
(ots-hide-slide-header)
(setq ots-header-overlay
(make-overlay (point-min) (+ 1 (point-min))))
(overlay-put ots-header-overlay 'after-string " ")
(overlay-put ots-header-overlay
- 'face
- '((foreground-color . "#696969")
- (background-color . "#FFFFFF") bold))
+ 'face
+ 'org-tree-slide-header-overlay-face)
(if org-tree-slide-header
(overlay-put ots-header-overlay 'display
(concat " [ "
