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

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

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