urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-14 20:02:51 +03:00
Code Issues Packages Projects Releases Wiki Activity

join command

Browse Source
This commit is contained in:
Anton Dyudin 2014-12-10 16:02:02 -08:00
parent 2e584a0451
commit a2e4eb27de
1 changed files with 28 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -140,31 +140,30 @@
=+ rey=(rush txt talk(lat lat.hid, our our.hid))
?~ rey
[(send /out %give %rush %tang [%leaf "invalid input"] ~) +>.$]
=- :_ ->
:_ ~
^- move
:* ost %pass /command
%g %mess [our.hid /rodeo] our.hid
[%radio-command !>(cod)]
==
^- [cod=command _+>.$]
?+ -.u.rey !!
%def
?> ?=(%say -.p.u.rey)
=+ ^= tho
^- thought
:* (shaf %foo eny.hid)
[[`station`[%& our.hid %main] %pending] ~ ~]
`statement`[lat.hid p.u.rey]
==
:_ +>.$
:_ ~
^- move
:* ost %pass /command
%g %mess [our.hid /rodeo] our.hid
[%radio-command !>(`command`[%publish tho ~])]
=- [[%publish - ~] +>.$]
^- thought
:* (shaf %foo eny.hid)
[[`station`[%& our.hid %main] %pending] ~ ~]
`statement`[lat.hid p.u.rey]
==
::
%host
=+ cof=`config`[~ [%| ~]]
:_ +>.$
:_ ~
^- move
:* ost %pass /command
%g %mess [our.hid /rodeo] our.hid
[%radio-command !>(`command`[%design p.u.rey ~ cof])]
==
[[%design p.u.rey ~ `config`[~ [%| ~]]] +>.$]
::
%join
=. src (~(put in src) p.u.rey)
[[%design %main ~ `config`[src [%| ~]]] +>.$]
==
::
++ pour-report
@ -172,6 +171,8 @@
^- [(list move) _+>]
~& [%pour-report rep]
?+ -.rep !!
%config
`+>.$(src sources.rep)
%grams
:_ +>.$
%- zing ^- (list (list move))
@ -214,7 +215,7 @@
?> ?=(?(%mean %nice) +<.sih)
[~ +>.$]
::
%fm
?(%am %fm)
~& talk-pour/sih
?+ &2.sih !!
?(%nice %mean) [~ +>.$]
@ -233,16 +234,11 @@
[our.hid /rodeo] our.hid
/fm/main
==
:: ^- move
:: :* ost
:: %pass
:: /am
:: %g
:: %show
:: [our.hid /rodeo]
:: our.hid
:: /am/main
:: ==
^- move
:* ost %pass /am
%g %show [our.hid /rodeo] our.hid
/am/main
==
(send /out %give %rush %prompt '& ' %text '')
==
::