Changed update and lowdown of identities to allow for deletion.

This commit is contained in:
Fang 2017-03-25 00:24:55 +01:00
parent 073990055f
commit cf346ddcf5
3 changed files with 30 additions and 14 deletions

View File

@ -489,6 +489,14 @@
^+ +>
+>(moves :_(moves [ost.hid %diff %sole-effect fec]))
::
++ sh-update
::x adds a talk-update to ++ra's moves
::
|= dup/update
^+ +>
::TODO is ost.hid okay here? or do we want to store bone of broker?
+>(moves :_(moves [ost.hid %diff %talk-update dup]))
::
++ sh-peep :: peer to path
::TODO remove.
::
@ -1241,10 +1249,7 @@
nak (~(put ju nak) cha lix)
==
%_ ..sh-work
..pa
%- (ra-know man.she)
::TODO send %talk-update instead.
|=(_pa pa-abet:(pa-report glyphers %glyph nak))
(sh-update %glyph cha lix)
==
::
++ join :: %join
@ -1367,8 +1372,9 @@
[%txt "{<p>}: {<u.nym>}"]
%= ..sh-work
folks ?~ u.nym
(~(del by folks) u.her)
(~(put by folks) u.her [true=~ hand=nym])
(~(del by folks) u.her) ::x unset nickname
(~(put by folks) u.her [true=~ hand=nym]) ::x set nickname
..sh-work (sh-update %human [true=~ hand=nym])
==
::
++ wo-set :: %set
@ -1917,7 +1923,16 @@
==
::TODO sh-prod each shell?
$names
+>(folks (~(uni by +.rad) folks))
%= +>
folks %- ~(gas by *(map ship human))
%+ murn
%~ tap by
%- ~(uni by +.rad)
(~(run by folks) some)
|= {s/ship h/(unit human)}
?~ h ~
[s u.h]
==
::
++ poke-sole-action :: accept console
::x incoming sole action. process it.

View File

@ -346,12 +346,13 @@
pa-abet:(~(pa-notify n.p.dup story) our q.dup)
::
$human ::x change an identity.
=+ who=(~(get by folks) her)
?. ?|(?=($~ who) !.=(who q.dup)) ::TODO? != won't work, right?
+>.$ ::x no change.
=. folks (~(put by folks) her q.dup)
?. =((~(get by folks) her) q.dup)
+> ::x no change.
=. folks
?~ hand.q.dup (~(del by folks) p.dup)
(~(put by folks) her u.q.dup)
%+ ra-inform %names
(~(put by *(map ship human)) her q.dup)
(~(put by *(map ship (unit human))) her q.dup)
::
$bind ::x set glyph binding.
%. [%glyph nak]

View File

@ -12,7 +12,7 @@
== ::
++ update :: change shared state
$% {$status (pair (set knot) status) :: our status update
{$human (pair ship human)} :: new identity
{$human (pair ship (unit human))} :: new identity
{$bind (pair char (set partner))} :: bind a glyph
== ::
++ cabal :: metaconfiguration
@ -59,7 +59,7 @@
== ::
++ lowdown :: changed shared state
$% {$glyph (jug char (set partner))} :: new bindings
{$names (map ship human)} :: new identities
{$names (map ship (unit human))} :: new identities
== ::
++ speech :: narrative action
$% {$lan p/knot q/@t} :: local announce