|
@@ -344,13 +344,12 @@ current time."
|
|
|
(delete-char (min (+ 1 org-habit-preceding-days
|
|
|
org-habit-following-days)
|
|
|
(- (line-end-position) (point))))
|
|
|
- (insert (org-habit-build-graph
|
|
|
- habit
|
|
|
- (time-subtract moment
|
|
|
- (days-to-time org-habit-preceding-days))
|
|
|
- moment
|
|
|
- (time-add moment
|
|
|
- (days-to-time org-habit-following-days))))))
|
|
|
+ (insert-before-markers
|
|
|
+ (org-habit-build-graph
|
|
|
+ habit
|
|
|
+ (time-subtract moment (days-to-time org-habit-preceding-days))
|
|
|
+ moment
|
|
|
+ (time-add moment (days-to-time org-habit-following-days))))))
|
|
|
(forward-line)))))
|
|
|
|
|
|
(defun org-habit-toggle-habits ()
|