2015-01-15 22:32:04 +03:00
|
|
|
::
|
2015-06-05 03:27:01 +03:00
|
|
|
:::: /hoon/talk/lib
|
2015-01-15 22:32:04 +03:00
|
|
|
::
|
|
|
|
|
:: This file is in the public domain.
|
|
|
|
|
::
|
2015-06-05 04:32:51 +03:00
|
|
|
/? 314
|
2015-04-01 23:56:43 +03:00
|
|
|
/- *talk
|
2015-06-05 02:24:55 +03:00
|
|
|
!:
|
2015-01-15 22:32:04 +03:00
|
|
|
::::
|
|
|
|
|
::
|
|
|
|
|
|%
|
|
|
|
|
++ main :: main story
|
|
|
|
|
|= our=ship ^- cord
|
|
|
|
|
=+ can=(clan our)
|
|
|
|
|
?+ can %porch
|
|
|
|
|
%czar %court
|
|
|
|
|
%king %floor
|
|
|
|
|
==
|
2015-06-02 21:36:56 +03:00
|
|
|
::
|
2015-06-02 02:25:22 +03:00
|
|
|
++ said :: app message
|
|
|
|
|
|= [our=@p dap=term now=@da eny=@uvI mes=(list tank)]
|
2015-06-05 04:32:51 +03:00
|
|
|
:: ~> %slog.`(sell (slap !>(.) tsgl/[cnzy/'envelope' cnzz//[`1]/thought])) :: XX fails
|
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-05 04:32:51 +03:00
|
|
|
((slog 0 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))]]
|
2015-01-15 22:32:04 +03:00
|
|
|
--
|
