hark-store: remove visions of future
state-2
state-3
state-4
+ state-5
==
+$ unread-stats
[indices=(set index:graph-store) last=@da]
+$ state-4
[%4 base-state]
::
++$ state-5
+ [%5 base-state]
+::
+$ inflated-state
- $: state-4
+ $: state-5
cache
==
:: $cache: useful to have precalculated, but can be derived from state
=| cards=(list card)
|^
?- -.old
- %4
+ %5
:- (flop cards)
this(-.state old, +.state (inflate-cache:ha old))
+ ::
+ %4
+ %_ $
+ -.old %5
+ ::
+ last-seen.old
+ %- ~(run by last-seen.old)
+ |=(old=@da (min old now.bowl))
+ ==
::
%3
%_ $
==
::
++ inflate-cache
- |= state-4
+ |= state-5
^+ +.state
=. +.state
*cache
