mirror of
https://github.com/urbit/shrub.git
synced 2025-01-07 05:26:56 +03:00
Changed update $human.
This commit is contained in:
parent
a2d2633776
commit
2873ab49f5
@ -1367,11 +1367,11 @@
|
|||||||
%+ turn (reverse-folks u.nym)
|
%+ turn (reverse-folks u.nym)
|
||||||
|= p/ship
|
|= p/ship
|
||||||
[%txt "{<p>}: {<u.nym>}"]
|
[%txt "{<p>}: {<u.nym>}"]
|
||||||
%= ..sh-work
|
%. [%human u.her [true=~ hand=nym]]
|
||||||
|
%= sh-update
|
||||||
folks ?~ u.nym
|
folks ?~ u.nym
|
||||||
(~(del by folks) u.her) ::x unset nickname
|
(~(del by folks) u.her) ::x unset nickname
|
||||||
(~(put by folks) u.her [true=~ hand=nym]) ::x set nickname
|
(~(put by folks) u.her [true=~ hand=nym]) ::x set nickname
|
||||||
..sh-work (sh-update %human [true=~ hand=nym])
|
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ wo-set :: %set
|
++ wo-set :: %set
|
||||||
|
@ -330,9 +330,11 @@
|
|||||||
+> ::x no change.
|
+> ::x no change.
|
||||||
=. folks
|
=. folks
|
||||||
?~ hand.q.dup (~(del by folks) p.dup)
|
?~ hand.q.dup (~(del by folks) p.dup)
|
||||||
(~(put by folks) her u.q.dup)
|
(~(put by folks) her q.dup)
|
||||||
%+ ra-inform %names
|
%+ ra-inform %names
|
||||||
(~(put by *(map ship (unit human))) her q.dup)
|
::TODO think long and hard, do we need unit for delition or is a human
|
||||||
|
:: with [~ ~] good enough? if the latter, agent's $names will change.
|
||||||
|
(~(put by *(map ship (unit human))) her ?~(hand.q.dup ~ q.dup))
|
||||||
::
|
::
|
||||||
$bind ::x set glyph binding.
|
$bind ::x set glyph binding.
|
||||||
%. [%glyph nak]
|
%. [%glyph nak]
|
||||||
|
@ -12,7 +12,7 @@
|
|||||||
== ::
|
== ::
|
||||||
++ update :: change shared state
|
++ update :: change shared state
|
||||||
$% {$status (pair (set knot) status)} :: our status update
|
$% {$status (pair (set knot) status)} :: our status update
|
||||||
{$human (pair ship (unit human))} :: new identity
|
{$human (pair ship human)} :: new identity
|
||||||
{$bind (pair char (set partner))} :: bind a glyph
|
{$bind (pair char (set partner))} :: bind a glyph
|
||||||
== ::
|
== ::
|
||||||
++ cabal :: metaconfiguration
|
++ cabal :: metaconfiguration
|
||||||
|
Loading…
Reference in New Issue
Block a user