[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Repeating task hourly
From: |
Kevin Liu |
Subject: |
Re: Repeating task hourly |
Date: |
Mon, 27 Jul 2020 04:40:19 -0700 |
User-agent: |
mu4e 1.5.3; emacs 28.0.50 |
> Is there any way to do this or are the docs out of date?
I made a few quick changes to org-habit and it works prima facie. Will
continue testing for a bit.
>From e690d7b43143410d5d5af524bb1ff0819feebc24 Mon Sep 17 00:00:00 2001
From: nivekuil <mail@nivekuil.com>
Date: Mon, 27 Jul 2020 04:37:32 -0700
Subject: [PATCH] org-habit: allow hourly repeat
---
lisp/org-habit.el | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/lisp/org-habit.el b/lisp/org-habit.el
index f76f0f213..b9bb729c1 100644
--- a/lisp/org-habit.el
+++ b/lisp/org-habit.el
@@ -157,11 +157,12 @@ means of creating calendar-based reminders."
:group 'org-faces)
(defun org-habit-duration-to-days (ts)
- (if (string-match "\\([0-9]+\\)\\([dwmy]\\)" ts)
+ (if (string-match "\\([0-9]+\\)\\([hdwmy]\\)" ts)
;; lead time is specified.
(floor (* (string-to-number (match-string 1 ts))
(cdr (assoc (match-string 2 ts)
- '(("d" . 1) ("w" . 7)
+ '(("h" . 0.04166666666)
+ ("d" . 1) ("w" . 7)
("m" . 30.4) ("y" . 365.25))))))
(error "Invalid duration string: %s" ts)))
@@ -199,9 +200,7 @@ This list represents a \"habit\" for the rest of this
module."
(setq sr-days (org-habit-duration-to-days scheduled-repeat)
sr-type (progn (string-match "[\\.+]?\\+" scheduled-repeat)
(match-string-no-properties 0 scheduled-repeat)))
- (unless (> sr-days 0)
- (error "Habit %s scheduled repeat period is less than 1d" habit-entry))
- (when (string-match "/\\([0-9]+[dwmy]\\)" scheduled-repeat)
+ (when (string-match "/\\([0-9]+[hdwmy]\\)" scheduled-repeat)
(setq dr-days (org-habit-duration-to-days
(match-string-no-properties 1 scheduled-repeat)))
(if (<= dr-days sr-days)
--
2.27.0
- Repeating task hourly, Kevin Liu, 2020/07/27
- Re: Repeating task hourly,
Kevin Liu <=
- Re: Repeating task hourly, Kyle Meyer, 2020/07/28
- Re: Repeating task hourly, Gustavo Barros, 2020/07/29
- Message not available
- Re: Repeating task hourly, Gustavo Barros, 2020/07/29
- Re: Repeating task hourly, Kevin Liu, 2020/07/29
- Re: Repeating task hourly, Gustavo Barros, 2020/07/29
- Re: Repeating task hourly, Kevin Liu, 2020/07/30