[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/org-tree-slide 7bf09a02bd 114/144: Merge pull request #31
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/org-tree-slide 7bf09a02bd 114/144: Merge pull request #31 from ndw/slide-date |
Date: |
Tue, 18 Jan 2022 08:59:54 -0500 (EST) |
branch: elpa/org-tree-slide
commit 7bf09a02bd2d8f1ccfcb5209bfb18fbe02d1f44e
Merge: 036a36eec1 9d15bd9fa1
Author: Takaaki ISHIKAWA <takaxp@ieee.org>
Commit: GitHub <noreply@github.com>
Merge pull request #31 from ndw/slide-date
Add support for date header
---
org-tree-slide.el | 14 +++++++++++++-
1 file changed, 13 insertions(+), 1 deletion(-)
diff --git a/org-tree-slide.el b/org-tree-slide.el
index dede32cfa6..71073834fa 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -708,6 +708,9 @@ If HEADING-LEVEL is non-nil, the provided outline level is
checked."
(defvar org-tree-slide-author nil
"If you have \"#+author:\" line in your org buffer, it will be used as a
name of the slide author.")
+(defvar org-tree-slide-date nil
+ "If you have \"#+date:\" line in your org buffer, it will be used as the
date.")
+
(defcustom org-tree-slide-breadcrumbs " > "
"Display breadcrumbs in the slide header.
@@ -733,6 +736,15 @@ concat the headers."
'org-tree-slide-author "#\\+AUTHOR:[ \t]*\\(.*\\)$" limit)
(org-tree-slide--set-header-var-by-regxep
'org-tree-slide-email "#\\+EMAIL:[ \t]*\\(.*\\)$" limit)
+
+ ; Use the date header or the current date if there isn't one
+ (setq org-tree-slide-date nil)
+ (org-tree-slide--set-header-var-by-regxep
+ 'org-tree-slide-date "#\\+DATE:[ \t]*\\(.*\\)$" limit)
+ (if (not org-tree-slide-date)
+ (setq org-tree-slide-date
+ (format-time-string "%Y-%m-%d")))
+
(org-tree-slide--set-header-var-by-regxep
'org-tree-slide-startup "#\\+STARTUP:[ \t]*\\(.*\\)$" limit))))
@@ -778,7 +790,7 @@ Some number of BLANK-LINES will be shown below the header."
(concat (if org-tree-slide-title org-tree-slide-title
(buffer-name))
"\n"
- (format-time-string "%Y-%m-%d") " "
+ org-tree-slide-date " "
(when org-tree-slide-author
(concat org-tree-slide-author " "))
(when org-tree-slide-email
- [nongnu] elpa/org-tree-slide c9487e51b0 133/144: Add some links to useful videos, (continued)
- [nongnu] elpa/org-tree-slide c9487e51b0 133/144: Add some links to useful videos, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 27f8bb6a96 140/144: Merge branch 'master' of github.com:takaxp/org-tree-slide, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide a9dcef402a 128/144: Update the docstring of org-tree-slide-content-margin-top variable, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 917612a0d1 142/144: Merge pull request #47 from jypma/allow-empty-date-author, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 9da1d00777 141/144: Allow empty date and author to save on-screen space, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 8c301414bb 060/144: Remove brackets in title, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 0ef103eb14 087/144: Merge pull request #19 from kaushalmodi/lighter-defvar-plus-typo-fixes, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 403f5c002e 086/144: Add a defvar for lighter and minor typo fixes, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide fed7ec7e6d 093/144: Added breadcrumbs feature (by Matus), ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 16007b48c6 108/144: Refine skipping slide algorithm, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 7bf09a02bd 114/144: Merge pull request #31 from ndw/slide-date,
ELPA Syncer <=
- [nongnu] elpa/org-tree-slide a041b92c14 115/144: Add demo, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 0fc7d31d12 120/144: Update ChangeLog, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide a8dfaf5dd4 143/144: Revert "Allow empty date and author to save on-screen space", ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide b1ba1189f1 139/144: invisible org-meta-line (see README), ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 97e26e36f6 036/144: Update README, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 8aa567aa72 013/144: Fix typo, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 73182afa10 035/144: Update README, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide ed95fa6070 056/144: Update descriptions related to version 2.6.0, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 8a842ae48f 005/144: Add a variable to control slide-in duration, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 373c80edf8 007/144: Add CONTENT view to see all the subtrees, ELPA Syncer, 2022/01/18