ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-28 19:55:53 +03:00
Code Issues Packages Projects Releases Wiki Activity

++pa-start no longer adds a follower if they are only interested in past data.

Browse Source
This commit is contained in:
Fang 2017-04-18 18:59:29 +02:00
parent 019bb9e3e5
commit 49eb5fe7dd
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
app/talk-guardian.hoon
View File

@ -904,14 +904,12 @@
::
|= riv/river
^+ +>
::TODO use =; lab/{dun/? end/@u zeg/(list telegram)}
=- :: ~& [%pa-start riv lab]
=; lab/{dun/? end/@u zeg/(list telegram)}
=. +>.$
(pa-sauce ost.hid [[%diff %talk-report %grams q.lab r.lab] ~])
?: p.lab ::x? dun never gets changed, so always | ?
(pa-sauce ost.hid [[%diff %talk-report %grams end.lab zeg.lab] ~])
?: dun.lab
(pa-sauce ost.hid [[%quit ~] ~])
+>.$(followers (~(put by followers) ost.hid riv))
^= lab
=+ [end=count gaz=grams dun=| zeg=*(list telegram)]
|- ^- (trel ? @ud (list telegram))
?~ gaz [dun end zeg]
@ -919,8 +917,8 @@
$ud (lte p.q.riv end)
$da (lte p.q.riv p.r.q.i.gaz)
==
::x if we're past the river, continue browsing back.
$(end (dec end), gaz t.gaz) ::TODO dun &
::x if we're past the river, keep browsing back, mark stream as done.
$(end (dec end), gaz t.gaz, dun &)
?: ?- -.p.riv :: before the start
$ud (lth end p.p.riv)
$da (lth p.r.q.i.gaz p.p.riv)