emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/org-tree-slide 871d75f872 055/144: Merge branch 'master' o


From: ELPA Syncer
Subject: [nongnu] elpa/org-tree-slide 871d75f872 055/144: Merge branch 'master' of github.com:takaxp/org-tree-slide
Date: Tue, 18 Jan 2022 08:59:20 -0500 (EST)

branch: elpa/org-tree-slide
commit 871d75f872e0ca86a83489bee2c8ffc097bfccc0
Merge: a72f5d492d fca0042e0c
Author: Takaaki ISHIKAWA <taka@mba.local>
Commit: Takaaki ISHIKAWA <taka@mba.local>

    Merge branch 'master' of github.com:takaxp/org-tree-slide
---
 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 5c1bc7cf3b..75311e60b7 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 "  [ " 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]