urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-14 11:08:45 +03:00
Code Issues Packages Projects Releases Wiki Activity

added invite functionality to collections

Browse Source
This commit is contained in:
Isaac Visintainer 2019-01-17 13:05:21 -08:00
parent 855664f32d
commit 3ddb8f2144
2 changed files with 29 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
app/collections.hoon
View File

@ -139,7 +139,7 @@
|= cod=command |= cod=command
^- (quip move _this) ^- (quip move _this)
?- -.cod ?- -.cod
%invite %chat-invite
:_ this :_ this
:- :* ost.bol :- :* ost.bol
%poke %poke
@ -163,6 +163,31 @@
aud=(sy [guy %i] ~) aud=(sy [guy %i] ~)
ses=[%inv & our.bol nom.cod]~ ses=[%inv & our.bol nom.cod]~
== ==
::
%collection-invite
:_ this
:- :* ost.bol
%poke
/permit
[our.bol %hall]
%hall-action
%permit
nom.cod
%.y
who.cod
==
%+ turn ~(tap in who.cod)
|= guy=@p
^- move
:* ost.bol
%poke
/invite
[our.bol %hall]
%hall-action
%phrase
aud=(sy [guy %i] ~)
ses=[%app col.cod [%inv & our.bol nom.cod]]~
==
== ==
:: ::
:: +peer: :: +peer:
@ -206,11 +231,8 @@
:: +quit: :: +quit:
:: ::
++ quit ++ quit
|= [wir=wire err=(unit tang)] |= wir=wire
^- (quip move _this) ^- (quip move _this)
::~& quit+[wir =(~ err)]
?~ err
[~ this]
?~ wir ?~ wir
(mean [leaf+"invalid wire for diff: {(spud wir)}"]~) (mean [leaf+"invalid wire for diff: {(spud wir)}"]~)
?+ i.wir ?+ i.wir

3
lib/collections.hoon
View File

@ -81,7 +81,8 @@
== ==
:: ::
+$ command +$ command
$% [%invite nom=name:hall who=(set ship)] $% [%chat-invite nom=name:hall who=(set ship)]
[%collection-invite nom=name:hall col=term who=(set ship)]
== ==
+$ collection [meta=config data=(map nom=knot =item)] +$ collection [meta=config data=(map nom=knot =item)]
:: ::