Some tweaks.

This commit is contained in:
C. Guy Yarvin 2015-06-09 08:23:40 -07:00
parent e09301dd48
commit 63a71c7200
5 changed files with 11 additions and 11 deletions

View File

@ -39,8 +39,6 @@
== ::
++ able :: find/make part
|* hed=hood-head
=+ rep=(~(get by lac) hed)
=+ par=?^(rep u.rep `hood-part`(hood-make our.hid hed))
((hood-good hed) par)

View File

@ -1102,11 +1102,12 @@
~& [%bad-subscribe-story-c i.t.pax]
(ra-evil %talk-no-story)
=+ soy=~(. pa i.t.pax u.pur)
=^ who +>.$ (ra-human her)
=. soy ?.((~(has in vab) %a) soy (pa-watch:soy her))
=. soy ?.((~(has in vab) %x) soy (pa-master:soy her))
=. soy (pa-notify:soy her %hear who)
=. soy ?.((~(has in vab) %f) soy (pa-listen:soy her t.t.pax))
=^ who +>.$ (ra-human her)
pa-abet:(pa-notify:soy her %hear who)
pa-abet:soy
::
++ ra-think :: publish/review
|= [pub=? her=ship tiz=(list thought)]

View File

@ -2659,7 +2659,7 @@
::
%mere
?: ?=(%& -.p.+.q.hin)
~& 'inital merge succeeded'
~& 'initial merge succeeded'
[~ ..^$]
~> %slog.
:^ 0 %rose [" " "[" "]"]

View File

@ -65,7 +65,7 @@
?: =(%pawn myr)
[[%base %dojo] ~]
?: =(%earl myr) ~
[[%home %dojo] [%home %talk] ~]
[[%home %talk] [%home %dojo] ~]
::
++ deft-fish :: default connects
|= our=ship
@ -76,8 +76,8 @@
[[our %dojo] ~]
?: =(%earl myr)
=+ dad=(sein our)
[[dad %dojo] [dad %talk] ~]
[[our %dojo] [our %talk] ~]
[[dad %talk] [dad %dojo] ~]
[[our %talk] [our %dojo] ~]
::
++ deft-mast :: default master
|= our=ship
@ -155,7 +155,7 @@
(most ;~(plug com ace) sp-gill)
%+ cook
|= a=ship
[[a %dojo] [a %talk] ~]
[[a %talk] [a %dojo] ~]
;~(pfix sig fed:ag)
==
::

View File

@ -180,8 +180,9 @@
==
::
++ start
=. . %- spam
[leaf/"activated sync from {<sud>} on {<her>} to {<syd>}" ~]
:: XX remove feedback for demo
:: =. . %- spam
:: [leaf/"activated sync from {<sud>} on {<her>} to {<syd>}" ~]
%- blab :_ ~
:* ost %warp
/kiln/sync/[syd]/(scot %p her)/[sud]