;join now loads only a day's worth of backlog by default.

This commit is contained in:
Fang 2017-12-14 01:30:06 +01:00
parent e1a0bdc3c9
commit 835dae7317

View File

@ -1047,6 +1047,11 @@
=+ pas=~(key by pos) =+ pas=~(key by pos)
=. ..sh-work =. ..sh-work
sh-prod(active.she pas) sh-prod(active.she pas)
:: default to a day of backlog
=. pos
%- ~(run by pos)
|= r/range
?~(r `[da+(sub now.bol ~d1) ~] r)
(sh-act %source inbox & pos) (sh-act %source inbox & pos)
:: ::
++ leave ::< %leave ++ leave ::< %leave