hark-store: add %read-all support
Clears the unread count and notifications, rebuilds cache, and empties out all the unread
indices in `unreads-each`.
::
++ translate
^+ poke-core
- ?+ -.in poke-core
+ ?- -.in
::
%add-note (add-note +.in)
%archive (do-archive +.in)
%remove-graph (remove-graph +.in)
%set-dnd (set-dnd +.in)
%seen seen
+ %read-all read-all
+ ::
==
::
:: +| %note
=> (emit autoseen-timer)
poke-core(current-timebox now.bowl)
::
+ ++ read-all
+ =: unreads-count (~(run by unreads-count) _0)
+ unreads-each (~(run by unreads-each) _~)
+ notifications (~(run by notifications) _~)
+ ==
+ => rebuild-cache
+ seen
+ ::
++ set-dnd
|= d=?
(give:poke-core(dnd d) %set-dnd d)
