From 096989ee33f412c4a2b93989065e03e5e64af87d Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sun, 3 Dec 2017 09:59:23 +0100 Subject: [PATCH] =?UTF-8?q?[Org]=20Use=20=E2=80=98org-read-date=E2=80=99?= =?UTF-8?q?=20to=20query=20dates=20for=20reporting?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- site-lisp/db-org.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index 5ff45c3..298ed66 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -1060,7 +1060,8 @@ resulting list are sorted by START, ascending." (defun db/org-format-timeline (tstart tend &optional files) "Display timeline of tasks in FILES between TSTART and TEND. When not given, FILES defaults to `org-agenda-files’." - (interactive "sStart: \nsEnd: ") + (interactive (list (org-read-date nil nil nil "Start time: ") + (org-read-date nil nil nil "End time: "))) (let ((timeline (db/org-timeline-in-range tstart tend files))) (let ((target-buffer (get-buffer-create " *Org Timeline*"))) (with-current-buffer target-buffer @@ -1094,12 +1095,12 @@ When not given, FILES defaults to `org-agenda-files’." (defun db/org-format-timeline-of-day (date &optional files) "Format timeline of given DATE. -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 23:61. -When not given, FILES defaults to `org-agenda-files’." - (interactive "sDate (default today): ") - (when (string-empty-p date) - (setq date (format-time-string "%Y-%m-%d"))) +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 this day, starting at 00:00 +and ending at 23:61. When not given, FILES defaults to +`org-agenda-files’." + (interactive (list (org-read-date nil nil))) (db/org-format-timeline (concat date " 00:00") (concat date " 23:61") files))