branch: elpa/org-tree-slide
commit 917612a0d1593de533b7bf0a2792d7e37bb2ca3d
Merge: 27f8bb6a96 9da1d00777
Author: Takaaki ISHIKAWA <tak...@ieee.org>
Commit: GitHub <nore...@github.com>
Merge pull request #47 from jypma/allow-empty-date-author
Allow empty date and author to save on-screen space
---
org-tree-slide.el | 16 ++++++++++------
1 file changed, 10 insertions(+), 6 deletions(-)
diff --git a/org-tree-slide.el b/org-tree-slide.el
index e035b5c008..7dbcc00bef 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -796,12 +796,16 @@ Some number of BLANK-LINES will be shown below the
header."
(overlay-put org-tree-slide--header-overlay 'display
(concat (if org-tree-slide-title org-tree-slide-title
(buffer-name))
- "\n"
- org-tree-slide-date " "
- (when org-tree-slide-author
- (concat org-tree-slide-author " "))
- (when org-tree-slide-email
- (concat "<" org-tree-slide-email ">"))
+
+ ;; Use one line for date and author (but only if
either of those is set)
+ (when (or org-tree-slide-date org-tree-slide-author
org-tree-slide-email)
+ "\n"
+ org-tree-slide-date " "
+ (when org-tree-slide-author
+ (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)))
