Changeset main,2 for main

Timestamp:

04/28/2020 01:37:19 PM (5 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

org-autofocus

revision id:

dsowen@fugue88.ws-20200428133719-pk0i1k9ri2dnyfzl

Message:

Allow tasks to be marked

File:

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

main/org-autofocus.el

@@ -12 +12 @@
 
 (require 'calendar)
+(require 'eieio)
+(require 'ewoc)
 
 (require 'org-agenda)
+
+
+(defvar-local org-af--ewoc nil)
+
+
+(defclass org-af--task ()
+  ((org :initarg :org)
+   (marked :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)))
+
 
 (define-derived-mode org-autofocus-mode special-mode "Org AF" nil
@@ -20 +37 @@
         tasks)
     (setq buffer-undo-list t)
+
     (dolist (f (org-agenda-files))
       (catch 'nextfile
         (org-check-agenda-file f)
         (setq tasks (nconc (org-agenda-get-day-entries f date :todo) tasks))))
+
+    (setq org-af--ewoc (ewoc-create 'org-af--pp "header" "footer"))
     (dolist (task tasks)
-      (insert task "\n"))))
+      (ewoc-enter-last org-af--ewoc (make-instance 'org-af--task :org task)))))
+
+
+(defun org-af--mark ()
+  "Toggle whether the task at point is marked."
+  (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))))
+
+
+(define-key org-autofocus-mode-map "." 'org-af--mark)
+
 
 ;;;###autoload
@@ -34 +68 @@
   (org-autofocus-mode))
 
+
 (provide 'org-autofocus)
 ;;; org-autofocus.el ends here