Changeset main,3

Timestamp:

04/28/2020 11:05:09 PM (5 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

org-autofocus

revision id:

dsowen@fugue88.ws-20200428230509-z1y5x5lnzqwi1yso

Message:

Hide items that have been passed over

File:

• main/org-autofocus.el (modified) (3 diffs)

main/org-autofocus.el

@@ -23 +23 @@
 (defclass org-af--task ()
   ((org :initarg :org)
-   (marked :initform nil)))
+   (marked :initform nil)
+   (passed :initform nil)))
 
 
 (defun org-af--pp (obj)
   "Print the task OBJ in the current buffer at point."
-  (with-slots (org marked) obj
-    (insert (if marked "*" " ") " " org)))
+  (with-slots (org marked passed) obj
+    (unless passed
+      (insert (if marked "*" " ") " " org "\n"))))
 
 
@@ -43 +45 @@
         (setq tasks (nconc (org-agenda-get-day-entries f date :todo) tasks))))
 
-    (setq org-af--ewoc (ewoc-create 'org-af--pp "header" "footer"))
+    (setq org-af--ewoc (ewoc-create 'org-af--pp "header\n" "footer\n" t))
     (dolist (task tasks)
       (ewoc-enter-last org-af--ewoc (make-instance 'org-af--task :org task)))))
@@ -52 +54 @@
   (interactive)
   (let* ((node (ewoc-locate org-af--ewoc))
-         (obj (ewoc-data node)))
-    (with-slots (marked) obj
-      (setf marked (not marked))
-      (ewoc-invalidate org-af--ewoc node))))
+         (obj (ewoc-data node))
+         changed)
+    (let ((marked (not (slot-value obj 'marked))))
+      (setf (slot-value obj 'marked) marked)
+      (push node changed)
+      (let ((node node))
+        (while (and (setq node (ewoc-prev org-af--ewoc node))
+                    (setq obj (ewoc-data node))
+                    (not (slot-value obj 'marked)))
+          (setf (slot-value obj 'passed) marked)
+          (push node changed))))
+    (apply 'ewoc-invalidate org-af--ewoc changed)
+    (ewoc-goto-node org-af--ewoc node)))