[nongnu] elpa/org-tree-slide 917612a0d1 142/144: Merge pull request #47 from jypma/allow-empty-date-author

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 917612a0d1593de533b7bf0a2792d7e37bb2ca3d
Merge: 27f8bb6a96 9da1d00777
Author: Takaaki ISHIKAWA <takaxp@ieee.org>
Commit: GitHub <noreply@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)))