branch: elpa/org-tree-slide
commit 9da1d00777d848e0060b46e22f74ee1b3f4db249
Author: Jan Ypma <j...@ypmania.nl>
Commit: Jan Ypma <j...@ypmania.nl>
Allow empty date and author to save on-screen space
I tend to just put the author and date on the title page, preferring
them to be not displayed on each slide.
This commit will not use the line that's currently displaying date and
author, removing the empty "\n" if both author and date are set to empty
strings.
---
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)))
