urbit/lib/talk.hoon

51 lines
1.1 KiB
Plaintext
Raw Normal View History

2015-01-15 22:32:04 +03:00
::
2016-02-11 03:41:28 +03:00
:::: /hoon/talk/lib
2015-01-15 22:32:04 +03:00
::
:: This file is in the public domain.
::
2016-02-18 02:36:43 +03:00
/? 310
/- talk
!:
2015-01-15 22:32:04 +03:00
::::
::
2015-09-02 03:24:18 +03:00
[. ^talk]
2016-03-15 03:37:34 +03:00
|_ bol/bowl
2015-01-15 22:32:04 +03:00
++ main :: main story
2015-12-20 23:50:45 +03:00
|= our/ship ^- cord
2015-01-15 22:32:04 +03:00
=+ can=(clan our)
?+ can %porch
2015-12-09 04:54:26 +03:00
$czar %court
$king %floor
2015-01-15 22:32:04 +03:00
==
2015-06-02 21:36:56 +03:00
::
2016-03-15 03:37:34 +03:00
++ said-url :: app url
|= url/purl
2016-03-15 04:02:59 +03:00
:^ ost.bol %poke /said-url
2016-03-15 03:37:34 +03:00
:+ [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
::
2015-06-02 02:25:22 +03:00
++ said :: app message
2016-08-11 21:15:06 +03:00
|= {our/@p dap/term now/@da eny/@uvJ mes/(list tank)}
2015-06-02 02:25:22 +03:00
:- %talk-command
^- command
:- %publish
|- ^- (list thought)
?~ mes ~
2015-06-06 02:01:44 +03:00
:_ $(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))]]
::
++ uniq
|= eny/@uvJ
^- {@uvH _eny}
[(shaf %serial eny) (shax eny)]
2015-01-15 22:32:04 +03:00
--