[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals-release/org 1778eb9: org-habit: Preserve invisibility w
From: |
ELPA Syncer |
Subject: |
[elpa] externals-release/org 1778eb9: org-habit: Preserve invisibility when inserting consistency graph |
Date: |
Sat, 18 Dec 2021 08:57:37 -0500 (EST) |
branch: externals-release/org
commit 1778eb94c5b03533b14cd12a8cd80fc48f2b69be
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>
org-habit: Preserve invisibility when inserting consistency graph
* lisp/org-habit.el (org-habit-insert-consistency-graphs): Inherit
'invisible text property of the habit line when the habit is hidden in
agenda.
Fixes
https://orgmode.org/list/PAXPR06MB776069E9085C1CD606156493C6709@PAXPR06MB7760.eurprd06.prod.outlook.com
---
lisp/org-habit.el | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/lisp/org-habit.el b/lisp/org-habit.el
index a355d8e..3ce8068 100644
--- a/lisp/org-habit.el
+++ b/lisp/org-habit.el
@@ -428,7 +428,8 @@ current time."
(save-excursion
(goto-char (if line (point-at-bol) (point-min)))
(while (not (eobp))
- (let ((habit (get-text-property (point) 'org-habit-p)))
+ (let ((habit (get-text-property (point) 'org-habit-p))
+ (invisible-prop (get-text-property (point) 'invisible)))
(when habit
(move-to-column org-habit-graph-column t)
(delete-char (min (+ 1 org-habit-preceding-days
@@ -439,7 +440,12 @@ current time."
habit
(time-subtract moment (days-to-time org-habit-preceding-days))
moment
- (time-add moment (days-to-time org-habit-following-days))))))
+ (time-add moment (days-to-time org-habit-following-days))))
+ ;; Inherit invisible state of hidden entries.
+ (when invisible-prop
+ (put-text-property
+ (- (point) org-habit-graph-column) (point)
+ 'invisible invisible-prop))))
(forward-line)))))
(defun org-habit-toggle-habits ()
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals-release/org 1778eb9: org-habit: Preserve invisibility when inserting consistency graph,
ELPA Syncer <=