ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 01:52:42 +03:00
Code Issues Packages Projects Releases Wiki Activity

Working? :talk

Browse Source
This commit is contained in:
Anton Dyudin 2014-12-10 13:10:30 -08:00
parent 4090e05a03
commit 288261d9ff
1 changed files with 22 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
main/app/talk/core.hook
View File

@ -2,7 +2,7 @@
:::: /hook/core/talk/app
::
/? 314
/- *rodeo
/- *radio
::
::::
::
@ -67,7 +67,7 @@
|%
++ talk
=<
%+ cook |=(a=^talk a)
:: %+ cook |=(a=^talk a)
;~ pose
(cold [%how ~] wut)
(cold [%who ~] tis)
@ -122,7 +122,7 @@
^- thought
:* (shaf %foo eny.hid)
[[`station`[%& our.hid %main] %pending] ~ ~]
[lat.hid p.p.u.rey]
`statement`[lat.hid +.u.rey]
==
:_ +>.$
:_ ~
@ -144,12 +144,14 @@
?+ -.rep !!
%grams
:_ +>.$
%- zing ^- (list (list move))
%+ turn
`(list telegram)`q.rep
|= gam=telegram
?+ -.q.r.gam !!
=* sta r.q.gam
?+ -.q.sta !!
%say
(send /out %give %rush %txt p.q.r.gam)
(send /out %give %rush %txt p.q.sta)
==
==
::
@ -157,6 +159,7 @@
|= [ost=bone you=ship pax=path]
^- [(list move) _+>]
:_ +>.$
?~ pax !!
?+ i.pax !!
%out
[ost %give %rust %prompt '& ' %text '']~
@ -166,8 +169,8 @@
|= [ost=bone pax=path sih=*]
^- [(list move) _+>]
=+ sih=((hard sign) sih)
?~ pax ~& %talk-pour-strange-path !!
?+ i.pax ~& %talk-pour-strange-path !!
?~ pax ~& talk-pour-strange-path/pax !!
?+ i.pax ~& talk-pour-strange-path/pax !!
%cmd-in
?- +<.sih
%nice [~ +>.$]
@ -176,10 +179,17 @@
?> ?=(%txt -.p.sih)
(pour-shell ost p.p.sih)
==
::
%command
?> ?=(?(%mean %nice) +<.sih)
[~ +>.$]
::
%fm
?> ?=([%rust %radio-report ^] +.sih)
(pour-report ost p.p.sih)
~& talk-pour/[&1 &2]:sih
?+ &2.sih !!
?(%nice %mean) [~ +>.$]
%rust ?>(?=(%radio-report &3.sih) (pour-report ost p.p.sih))
==
==
::
++ poke-talk-args
@ -188,13 +198,9 @@
:_ +>
:* [ost %pass /cmd-in %g %show [our.hid +.imp.hid] you /in/[-.imp.hid]]
^- move
:* ost
%pass
/fm
%g
%show
[our.hid /rodeo]
our.hid
:* ost %pass /fm
%g %show
[our.hid /rodeo] our.hid
/fm/main
==
:: ^- move