Changeset main,10


Ignore:
Timestamp:
05/02/2020 01:17:58 AM (4 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:
1 edited

Legend:

Unmodified
Added
Removed
  • main/org-autofocus.el

    r9 r10  
    5959
    6060
    61 (defun org-af-mark ()
    62   "Mark or unmark the current task."
    63   (interactive)
     61(defun org-af--beg-of-task ()
     62  "Move point to the beginning of the task at point.
     63Skips over any hidden tasks the are on the same line."
    6464  (beginning-of-line)
    6565  (when (get-text-property (point) 'org-af-hidden)
    66     (goto-char (next-single-property-change (point) 'org-af-hidden)))
     66    (goto-char (next-single-property-change (point) 'org-af-hidden))))
     67
     68
     69(defun org-af-mark ()
     70  "Mark or unmark the current task, dim the previous marked task if any, and hide any tasks between."
     71  (interactive)
     72  (org-af--beg-of-task)
    6773
    6874  (let ((inhibit-read-only t)
    6975        (task-point (point))
    7076        bol marked)
     77
    7178    (unless (org-af--dimmed-p task-point)
    7279      (setq marked (not (org-af--marked-p task-point)))
Note: See TracChangeset for help on using the changeset viewer.