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

[Org] Report for today ends 23:61

Browse Source
This commit is contained in:
Daniel Borchmann 2017-12-02 21:57:28 +01:00
parent c76c7e3fd7
commit 1b6018dd84
Signed by: exot
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
site-lisp/db-org.el
View File

@ -1093,14 +1093,13 @@ When not given, FILES defaults to `org-agenda-files’."
(defun db/org-format-timeline-of-day (date &optional files) (defun db/org-format-timeline-of-day (date &optional files)
"Format timeline of given DATE. "Format timeline of given DATE.
DATE should be a string of the form %Y-%m-%d. The timeline will DATE should be a string of the form %Y-%m-%d. The timeline will
be formatted for this day, starting at 00:00 and ending at be formatted for this day, starting at 00:00 and ending at 23:61.
23:59 (sorry, no leap seconds supported yet). When not given, When not given, FILES defaults to `org-agenda-files’."
FILES defaults to `org-agenda-files’."
(interactive "sDate (default today): ") (interactive "sDate (default today): ")
(when (string-empty-p date) (when (string-empty-p date)
(setq date (format-time-string "%Y-%m-%d"))) (setq date (format-time-string "%Y-%m-%d")))
(db/org-format-timeline (concat date " 00:00") (db/org-format-timeline (concat date " 00:00")
(concat date " 23:59") (concat date " 23:61")
files)) files))