Permalink
Browse files

worf.el (worf-todo): Increment only :recurring: tasks

Fixes #27
  • Loading branch information...
1 parent c1a5e64 commit ca9a42b64938f43d757c6e0c41f21610bea87dba @abo-abo committed Dec 31, 2016
Showing with 1 addition and 1 deletion.
  1. +1 −1 worf.el
View
@@ -1205,7 +1205,7 @@ When ARG is true, add a CUSTOM_ID first."
(when (string= keyword "DONE")
(save-excursion
(org-back-to-heading)
- (when (looking-at "[^0-9]*\\([0-9]+\\)")
+ (when (looking-at "[^0-9]*\\([0-9]+\\)[^0-9]*:recurring:$")
(let ((idx (string-to-number (match-string 1))))
(replace-match (prin1-to-string (1+ idx))
nil t nil 1)))))

0 comments on commit ca9a42b

Please sign in to comment.