dbo/.emacs.d
dbo
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

[Timeline] Use a proper way to increase a supplied date by one day 

Courtesy of http://sachachua.com/blog/2015/08/org-mode-date-arithmetic/
This commit is contained in:
Daniel - 2018-07-31 14:10:12 +02:00
parent 023a14f8e7
commit 8f0549d5d3
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
site-lisp/timeline-tools.el
View File

@ -378,13 +378,15 @@ interactively, START and END are queried with `org-read-date’."
DATE should be a string of the form %Y-%m-%d. When called
interactively, this date will be queried with `org-read-date’.
The timeline will be formatted for DATE starting at 00:00 and
ending at 23:61. When not given, FILES defaults to
`org-agenda-files’ including archives."
When not given, FILES defaults to `org-agenda-files’ including
archives."
(interactive (list (org-read-date nil nil)))
(timeline-tools-format-timeline (concat date " 00:00")
(concat date " 23:61")
files))
(let ((timeline-tools-time-format "%H:%M")
(timeline-tools-headline-time-format "%Y-%m-%d"))
(timeline-tools-format-timeline (concat date " 00:00")
(org-read-date nil nil "+1d" nil
(org-time-string-to-time date))
files)))
;; Interactive functions