From 21e0680c1443bc3dc3b025f5782276edcf3a7ada Mon Sep 17 00:00:00 2001 Message-Id: <21e0680c1443bc3dc3b025f5782276edcf3a7ada.1639820517.git.yantar92@gmail.com> From: Ihor Radchenko Date: Sat, 18 Dec 2021 16:33:57 +0800 Subject: [PATCH] Date/time prompt: Allow input of relative time in hours (e.g. +1h) * lisp/org.el (org-read-date-analyze): Match relative hour specifier. Fixes https://orgmode.org/list/C9A76EFA-1D76-4C5D-941D-AFA288A64CD0@icloud.com --- lisp/org.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index ce4e08eab..393f45f26 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -14536,10 +14536,14 @@ (defun org-read-date-analyze (ans def defdecode) (unless deltadef (let ((now (decode-time))) (setq day (nth 3 now) month (nth 4 now) year (nth 5 now)))) - (cond ((member deltaw '("d" "")) (setq day (+ day deltan))) - ((equal deltaw "w") (setq day (+ day (* 7 deltan)))) - ((equal deltaw "m") (setq month (+ month deltan))) - ((equal deltaw "y") (setq year (+ year deltan))))) + (cond ((member deltaw '("h" "")) + (when (boundp 'org-time-was-given) + (setq org-time-was-given t)) + (setq hour (+ hour deltan))) + ((member deltaw '("d" "")) (setq day (+ day deltan))) + ((equal deltaw "w") (setq day (+ day (* 7 deltan)))) + ((equal deltaw "m") (setq month (+ month deltan))) + ((equal deltaw "y") (setq year (+ year deltan))))) ((and wday (not (nth 3 tl))) ;; Weekday was given, but no day, so pick that day in the week ;; on or after the derived date. -- 2.32.0