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
|
2015-09-01 23:56:42 +03:00
|
|
|
/- talk
|
2015-06-05 02:24:55 +03:00
|
|
|
!:
|
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
|
2015-06-05 02:24:55 +03:00
|
|
|
|- ^- (list thought)
|
|
|
|
?~ mes ~
|
2015-06-06 02:01:44 +03:00
|
|
|
:_ $(mes t.mes, eny (sham eny mes))
|
|
|
|
^- thought
|
|
|
|
:+ (shaf %thot eny)
|
2015-06-09 22:17:02 +03:00
|
|
|
[[[%& our (main our)] [*envelope %pending]] ~ ~]
|
|
|
|
[now *bouquet [%app dap (crip ~(ram re i.mes))]]
|
2017-04-10 23:35:25 +03:00
|
|
|
::
|
|
|
|
++ uniq
|
|
|
|
|= eny/@uvJ
|
|
|
|
^- {@uvH _eny}
|
|
|
|
[(shaf %serial eny) (shax eny)]
|
2015-01-15 22:32:04 +03:00
|
|
|
--
|