urbit/lib/talk.hoon
2016-03-14 18:03:43 -07:00

46 lines
1.0 KiB
Plaintext

::
:::: /hoon/talk/lib
::
:: This file is in the public domain.
::
/? 310
/- talk
!:
::::
::
[. ^talk]
|_ bol/bowl
++ main :: main story
|= our/ship ^- cord
=+ can=(clan our)
?+ can %porch
$czar %court
$king %floor
==
::
++ said-url :: app url
|= url/purl
:^ ost.bol %poke /said-url
:+ [our.bol %talk] %talk-command
^- command
:- %publish
:_ ~
^- thought
:+ (shaf %thot eny.bol)
[[[%& our.bol (main our.bol)] [*envelope %pending]] ~ ~]
[now.bol *bouquet [%app dap.bol (crip (earn url))]] :: XX
::
++ said :: app message
|= {our/@p dap/term now/@da eny/@uvI mes/(list tank)}
:- %talk-command
^- command
:- %publish
|- ^- (list thought)
?~ mes ~
:_ $(mes t.mes, eny (sham eny mes))
^- thought
:+ (shaf %thot eny)
[[[%& our (main our)] [*envelope %pending]] ~ ~]
[now *bouquet [%app dap (crip ~(ram re i.mes))]]
--