mirror of
https://github.com/urbit/shrub.git
synced 2024-12-20 17:32:11 +03:00
37 lines
966 B
Plaintext
37 lines
966 B
Plaintext
|
/- spider,
|
||
|
|
chat-view,
|
||
|
|
*resource,
|
||
|
|
chat-store
|
||
|
|
/+ *ph-io, strandio
|
||
|
|
=, strand=strand:spider
|
||
|
|
=>
|
||
|
|
|%
|
||
|
|
++ chat-message
|
||
|
|
|= [our=@p =path wen=@da mes=cord]
|
||
|
|
=/ act=action:chat-store
|
||
|
|
:* %message path `@uvH`(sham [our path mes])
|
||
|
|
0 our wen [%text mes]
|
||
|
|
==
|
||
|
|
(poke-app our %chat-hook %chat-action act)
|
||
|
|
--
|
||
|
|
::
|
||
|
|
^- thread:spider
|
||
|
|
|= vase
|
||
|
|
=/ m (strand ,vase)
|
||
|
|
;< ~ bind:m start-simple
|
||
|
|
;< bol=bowl:spider bind:m get-bowl:strandio
|
||
|
|
::
|
||
|
|
;< ~ bind:m (chat-message ~zod /~zod/chat-1 now.bol 'message 5')
|
||
|
|
;< ~ bind:m (chat-message ~bus /~zod/chat-1 now.bol 'message 6')
|
||
|
|
;< ~ bind:m (chat-message ~web /~bus/chat-2 now.bol 'message 7')
|
||
|
|
;< ~ bind:m (chat-message ~zod /~web/dm--zod now.bol 'message 8')
|
||
|
|
::
|
||
|
|
;< ~ 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)
|