branch: elpa/dslide
commit 1c92fef5e624c7de1b0310697072e8f1caa2c8fb
Author: Psionik K <73710933+psioni...@users.noreply.github.com>
Commit: Psionik K <73710933+psioni...@users.noreply.github.com>
Add an overriding face to the breadcrumbs
By using `add-face-text-property', this option allows us to tweak the
breadcrumbs while using existing Heading faces.
---
org-tree-slide.el | 16 +++++++++++++++-
1 file changed, 15 insertions(+), 1 deletion(-)
diff --git a/org-tree-slide.el b/org-tree-slide.el
index 4b840077b1..7f20129ad1 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -171,6 +171,14 @@ nil: keep the same position. The slideshow will start
from the heading
:type 'boolean
:group 'org-tree-slide)
+(defcustom org-tree-slide-breadcrumb-face nil
+ "Face added to the list of faces for breadcrumbs.
+This can be a face name symbol or an anonymous font spec. It
+will be added to the face list, meaning it the original face's
+properties remain unless shadowed."
+ :type 'face
+ :group 'org-tree-slide)
+
(defcustom org-tree-slide-skip-done nil
"Specify to show TODO item only or not."
:type 'boolean
@@ -863,7 +871,13 @@ concat the headers."
'no-tags
org-tree-slide-breadcrumbs-hide-todo-state)
parents))
- (seq-reduce reducer parents nil)))))
+ (let ((breadcrumbs (seq-reduce reducer parents nil)))
+ (when org-tree-slide-breadcrumb-face
+ (add-face-text-property 0 (length breadcrumbs)
+ org-tree-slide-breadcrumb-face
+ nil
+ breadcrumbs))
+ breadcrumbs)))))
(defun org-tree-slide--set-slide-header (blank-lines)
"Set the header with overlay.
