Re: Treat habits as ordinary tasks

[Ihor Radchenko]

Patrick Nicodemus <gadget142@gmail.com> writes:

> Any task which is a habit is listed in a special portion of the agenda for
> consistency tracking. This is useful and convenient. However, this
> apparently conflicts with scheduling the habit for a certain time. For
> example, if I want to go for a run on Tuesday at 5pm, I would like to have
> the option to schedule my running habit for 5pm on Tuesday and have it
> appear in the agenda at that position.
>
> Ideally I would like to toggle the features of the habit module on and off,
> so that in the agenda view, habits are treated either as normal tasks at a
> particular time, or they appear in the consistency tracker window rather
> than the schedule. Is there a way to accomplish this?
>
> Note that I don't want to filter (remove) the habits from the agenda. I am
> familiar with this functionality.

This is no built-in way to toggle this, but I can give you pointers how
to achieve what you want.

The reason why habits are grouped together is the default value of
`org-agenda-sorting-strategy':

org-agenda-sorting-strategy is a variable defined in ‘org-agenda-sort.el’.

Its value is
((agenda habit-down time-up urgency-down category-keep)
 (todo urgency-down category-keep) (tags urgency-down category-keep)
 (search category-keep))

As you can see, for "agenda" blocks, the first sorting key is
"habit-down" causing all habits go after non-habits.

To get the habits sorted by time (I assume that you are looking for your
habits to appear in the time grid), you need to remove "habit-down" from
the sorting strategy.

You can write a small helper command to do this:

(defvar my/org-agenda-sorting-strategy-pre nil
  "Previous value of `org-agenda-sorting-strategy'.")
(defun my/org-agenda-toggle-habit-grouping ()
  "Toggle grouping of habits in agendas.
Does not work when custom agenda command defines local sorting strategy."
  (interactive)
  (org-agenda-check-type t 'agenda)
  (if my/org-agenda-sorting-strategy-pre
      (progn
        (setq org-agenda-sorting-strategy my/org-agenda-sorting-strategy-pre)
        (setq my/org-agenda-sorting-strategy-pre nil)
        (org-agenda-redo)
        (message "Habit grouping ON"))
    (let ((old-strategy (alist-get 'agenda org-agenda-sorting-strategy)))
      (if (not (or (memq 'habit-up old-strategy) (memq 'habit-down 
old-strategy)))
          (user-error "Habits are not grouped in agendas: %S" old-strategy)
        (setq my/org-agenda-sorting-strategy-pre (copy-alist 
org-agenda-sorting-strategy))
        (setf (alist-get 'agenda org-agenda-sorting-strategy) (delete 'habit-up 
(delete 'habit-down old-strategy)))
        (org-agenda-redo)
        (message "Habit grouping OFF")))))

-- 
Ihor Radchenko // yantar92,
Org mode contributor,
Learn more about Org mode at <https://orgmode.org/>.
Support Org development at <https://liberapay.com/org-mode>,
or support my work at <https://liberapay.com/yantar92>