[nongnu] elpa/org-tree-slide 68779b8fe4 092/144: Add breadcrumbs (#23)

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 68779b8fe44cf6d09cb0829648d3a349fd663fda
Author: Matus Goljer <dota.keys@gmail.com>
Commit: Takaaki ISHIKAWA <takaxp@ieee.org>

    Add breadcrumbs (#23)
    
    * Add breadcrumbs
    
    * Add an option to show/hide TODO from breadcrumbs.
---
 org-tree-slide.el | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index 02554c6233..dcfead77b8 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -663,6 +663,20 @@ This is displayed by default if 
`org-tree-slide-modeline-display' is `nil'.")
   "If you have `#+AUTHOR:' line in your org buffer, it will be used as
    a name of the slide author.")
 
+(defcustom org-tree-slide-breadcrumbs " > "
+  "Display breadcrumbs in the slide header.
+
+If non-nil, it should be a string used as a delimiter used to
+concat the headers."
+  :type '(choice (const :tag "Don't display breadcrumbs" nil)
+                 (string :tag "Delimiter"))
+  :group 'org-tree-slide)
+
+(defcustom org-tree-slide-breadcrumbs-hide-todo-state t
+  "If non-nil, hide TODO states in the breadcrumbs."
+  :type 'boolean
+  :group 'org-tree-slide)
+
 (defun org-tree-slide--apply-local-header-to-slide-header ()
   (save-excursion
     (org-tree-slide--move-to-the-first-heading)
@@ -689,6 +703,20 @@ This is displayed by default if 
`org-tree-slide-modeline-display' is `nil'.")
     (t (:bold t :foreground "black" :background "white")))
   "Face for org-tree-slide--header-overlay")
 
+(defun org-tree-slide--get-parents (&optional delim)
+  "Get parent headlines and concat them with DELIM."
+  (setq delim (or delim " > "))
+  (save-excursion
+    (save-restriction
+      (widen)
+      (let ((parents nil))
+        (while (org-up-heading-safe)
+          (push (org-get-heading
+                 'no-tags
+                 org-tree-slide-breadcrumbs-hide-todo-state)
+                parents))
+        (mapconcat 'identity parents delim)))))
+
 (defun org-tree-slide--set-slide-header (blank-lines)
   (org-tree-slide--hide-slide-header)
   (setq org-tree-slide--header-overlay
@@ -707,6 +735,9 @@ This is displayed by default if 
`org-tree-slide-modeline-display' is `nil'.")
                              (concat org-tree-slide-author "  "))
                            (when org-tree-slide-email
                              (concat "<" org-tree-slide-email ">"))
+                           (when org-tree-slide-breadcrumbs
+                             (concat "\n" (org-tree-slide--get-parents
+                                           org-tree-slide-breadcrumbs)))
                            (org-tree-slide--get-blank-lines blank-lines)))
     (overlay-put org-tree-slide--header-overlay 'display
                  (org-tree-slide--get-blank-lines blank-lines))))