default ~.public station

Cherry-pick of b7efb9bee5
This commit is contained in:
Anton Dyudin 2016-03-22 17:15:58 -07:00
parent a3781a4777
commit f634fdc167

View File

@ -1262,11 +1262,16 @@
(ra-house n.gel)
::
++ ra-init :: initialize talk
%+ roll
^- (list {posture knot cord})
:~ [%brown (main our.hid) 'default home']
[%green ~.public 'visible activity']
==
|: [[typ=*posture man=*knot des=*cord] ..ra-init] ^+ ..ra-init
%+ ra-apply our.hid
:+ %design (main our.hid)
:+ %design man
:- ~ :- ~
:- 'default home'
[%brown ~]
[des [typ ~]]
::
++ ra-apply :: apply command
|= {her/ship cod/command}