Ignore:
Timestamp:
04/29/2020 02:41:49 AM (4 years ago)
Author:
David Owen <dsowen@…>
branch-nick:
org-autofocus
revision id:
dsowen@fugue88.ws-20200429024149-5kcbefgt36cjfb44
Message:

Disable marked items that have been passed over to other marked items

File:
1 edited

Legend:

Unmodified
Added
Removed
  • main/org-autofocus.el

    r3 r4  
    3030  "Print the task OBJ in the current buffer at point."
    3131  (with-slots (org marked passed) obj
    32     (unless passed
    33       (insert (if marked "*" " ") " " org "\n"))))
     32    (when (or marked (not passed))
     33      (insert (if marked "*" " ")
     34              " "
     35              (if passed
     36                  (propertize org 'face 'org-agenda-dimmed-todo-face)
     37                org)
     38              "\n"))))
    3439
    3540
     
    5661         (obj (ewoc-data node))
    5762         changed)
    58     (let ((marked (not (slot-value obj 'marked))))
    59       (setf (slot-value obj 'marked) marked)
    60       (push node changed)
    61       (let ((node node))
    62         (while (and (setq node (ewoc-prev org-af--ewoc node))
    63                     (setq obj (ewoc-data node))
    64                     (not (slot-value obj 'marked)))
    65           (setf (slot-value obj 'passed) marked)
    66           (push node changed))))
    67     (apply 'ewoc-invalidate org-af--ewoc changed)
    68     (ewoc-goto-node org-af--ewoc node)))
     63    (unless (slot-value obj 'passed)
     64      (let ((marked (not (slot-value obj 'marked))))
     65        (setf (slot-value obj 'marked) marked)
     66        (push node changed)
     67        (let ((node node))
     68          (while (and (setf node (ewoc-prev org-af--ewoc node))
     69                      (setf obj (ewoc-data node))
     70                      (not (slot-value obj 'marked)))
     71            (setf (slot-value obj 'passed) marked)
     72            (push node changed))
     73          (when node
     74            (setf (slot-value obj 'passed) marked)
     75            (push node changed))))
     76      (apply 'ewoc-invalidate org-af--ewoc changed)
     77      (ewoc-goto-node org-af--ewoc node))))
    6978
    7079
Note: See TracChangeset for help on using the changeset viewer.