Changeset main,10

Timestamp:

05/02/2020 01:17:58 AM (5 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

org-autofocus

revision id:

dsowen@fugue88.ws-20200502011758-sxtix7tulfhu1y3t

Message:

Extracted ORG-AF--BEG-OF-TASK

File:

• main/org-autofocus.el (modified) (1 diff)

main/org-autofocus.el

@@ -59 +59 @@
 
 
-(defun org-af-mark ()
-  "Mark or unmark the current task."
-  (interactive)
+(defun org-af--beg-of-task ()
+  "Move point to the beginning of the task at point.
+Skips over any hidden tasks the are on the same line."
   (beginning-of-line)
   (when (get-text-property (point) 'org-af-hidden)
-    (goto-char (next-single-property-change (point) 'org-af-hidden)))
+    (goto-char (next-single-property-change (point) 'org-af-hidden))))
+
+
+(defun org-af-mark ()
+  "Mark or unmark the current task, dim the previous marked task if any, and hide any tasks between."
+  (interactive)
+  (org-af--beg-of-task)
 
   (let ((inhibit-read-only t)
         (task-point (point))
         bol marked)
+
     (unless (org-af--dimmed-p task-point)
       (setq marked (not (org-af--marked-p task-point)))