emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/org-tree-slide 3faa042393 144/144: Merge pull request #49


From: ELPA Syncer
Subject: [nongnu] elpa/org-tree-slide 3faa042393 144/144: Merge pull request #49 from takaxp/revert-47-allow-empty-date-author
Date: Tue, 18 Jan 2022 08:59:56 -0500 (EST)

branch: elpa/org-tree-slide
commit 3faa042393ebfe5699a3bffce775f039d7416ceb
Merge: 917612a0d1 a8dfaf5dd4
Author: Takaaki ISHIKAWA <takaxp@ieee.org>
Commit: GitHub <noreply@github.com>

    Merge pull request #49 from takaxp/revert-47-allow-empty-date-author
    
    Revert "Allow empty date and author to save on-screen space"
---
 org-tree-slide.el | 16 ++++++----------
 1 file changed, 6 insertions(+), 10 deletions(-)

diff --git a/org-tree-slide.el b/org-tree-slide.el
index 7dbcc00bef..e035b5c008 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -796,16 +796,12 @@ 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))
-
-                           ;; 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 ">")))
-
+                           "\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)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]