group-view: add %started update

This commit is contained in:
Liam Fitzgerald 2021-03-29 10:29:47 +10:00 committed by Matilde Park
parent 1ec9141de1
commit 95bf313ff9
3 changed files with 14 additions and 0 deletions

View File

@ -193,6 +193,11 @@
(~(put by joining) rid [%.n now.bowl ship %start])
=. jn-core
(jn-abed rid)
=. jn-core
%- emit
%+ fact:io
group-view-update+!>([%started rid (~(got by joining) rid)])
~[/all]
?< ~|("already joined {<rid>}" (has-joined rid))
=. jn-core
%- emit

View File

@ -54,9 +54,17 @@
?- -.upd
%initial (initial +.upd)
%progress (progress +.upd)
%started (started +.upd)
%hide s+(enjs-path:resource +.upd)
==
::
++ started
|= [rid=resource req=^request]
%- pairs
:~ resource+s+(enjs-path:resource rid)
request+(request req)
==
::
++ progress
|= [rid=resource prog=^progress]
%- pairs

View File

@ -31,6 +31,7 @@
::
+$ update
$% [%initial initial=(map resource request)]
[%started =resource =request]
[%progress =resource =progress]
[%hide =resource]
==