Various fixes and improvements.

This commit is contained in:
C. Guy Yarvin 2015-01-22 17:24:04 -08:00
parent db584de28d
commit 59bd582b8f
3 changed files with 5 additions and 3 deletions

View File

@ -9752,6 +9752,7 @@
++ curd ,[p=@tas q=*] :: typeless card
++ duct (list wire) :: causal history
++ hide :: standard app state
st
$: $: our=ship :: owner/operator
app=term :: app identity
imp=path :: app instance

View File

@ -344,7 +344,6 @@
?~ vew +>.^$
=. +>.^$ $(vew l.vew)
=. +>.^$ $(vew r.vew)
~& [%pa-display n.vew]
(pa-sauce n.vew [[%rush %rodeo-report %group reg] ~])
::
++ pa-monitor :: update config
@ -464,11 +463,13 @@
++ pa-notify :: local presence
|= [her=ship saz=status]
^+ +>
~& [%pa-notify her saz]
=+ ^= nol
?: =(%gone p.saz)
(~(del by locals) p.saz)
(~(del by locals) her)
(~(put by locals) her lat.hid saz)
?: =(nol locals) +>.$
~& [%pa-display her saz]
(pa-display(locals nol) viewers)
::
++ pa-remind :: remote presence

View File

@ -318,7 +318,7 @@
|= [msg=tape tay=(list tank)]
=. tay (welp tay `(list tank)`[%leaf "::"]~)
=. tay :_(tay [%leaf ":{(trip man)}: {msg}:: "])
%_(+>.$ moz hy-abet:(hy-display:(hype moz) (flop tay)))
%_(+>.$ moz hy-abet:(hy-display:(hype moz) tay))
::
++ sy-prompt
|= tou=(set station)