mirror of
https://github.com/urbit/shrub.git
synced 2024-12-21 09:51:36 +03:00
50 lines
878 B
Plaintext
50 lines
878 B
Plaintext
|
/- spider,
|
||
|
|
graph-store,
|
||
|
|
graph-view,
|
||
|
|
post,
|
||
|
|
*resource,
|
||
|
|
*group
|
||
|
|
/+ *ph-io, strandio
|
||
|
|
=, strand=strand:spider
|
||
|
|
=>
|
||
|
|
|%
|
||
|
|
::
|
||
|
|
++ create-group
|
||
|
|
|= our=@p
|
||
|
|
%^ dojo-thread our %group-create
|
||
|
|
:- %group-view-action
|
||
|
|
:* %create
|
||
|
|
%group-1
|
||
|
|
[%open ~ ~]
|
||
|
|
'Test Group'
|
||
|
|
'A description'
|
||
|
|
==
|
||
|
|
::
|
||
|
|
++ join-group
|
||
|
|
|= our=@p
|
||
|
|
%^ poke-app our %group-view
|
||
|
|
:- %group-view-action
|
||
|
|
:* %join
|
||
|
|
[~zod %group-1]
|
||
|
|
~zod
|
||
|
|
==
|
||
|
|
--
|
||
|
|
::
|
||
|
|
^- thread:spider
|
||
|
|
|= vase
|
||
|
|
=/ m (strand ,vase)
|
||
|
|
;< ~ bind:m start-simple
|
||
|
|
;< ~ bind:m (create-group ~zod)
|
||
|
|
;< ~ bind:m (join-group ~bus)
|
||
|
|
;< ~ bind:m (join-group ~web)
|
||
|
|
;< ~ bind:m (send-hi ~zod ~bus)
|
||
|
|
;< ~ bind:m (send-hi ~zod ~web)
|
||
|
|
;< ~ bind:m (send-hi ~bus ~zod)
|
||
|
|
;< ~ bind:m (send-hi ~bus ~web)
|
||
|
|
;< ~ bind:m (send-hi ~web ~zod)
|
||
|
|
;< ~ bind:m (send-hi ~web ~bus)
|
||
|
|
(pure:m *vase)
|
||
|
|
|
||
|
|
|
||
|
|
|