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