ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-28 19:55:53 +03:00
Code Issues Packages Projects Releases Wiki Activity

Changed update and lowdown of identities to allow for deletion.

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
app/talk-agent.hoon
View File

@ -489,6 +489,14 @@
^+ +> ^+ +>
+>(moves :_(moves [ost.hid %diff %sole-effect fec])) +>(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 ++ sh-peep :: peer to path
::TODO remove. ::TODO remove.
:: ::
@ -1241,10 +1249,7 @@
nak (~(put ju nak) cha lix) nak (~(put ju nak) cha lix)
== ==
%_ ..sh-work %_ ..sh-work
..pa (sh-update %glyph cha lix)
%- (ra-know man.she)
::TODO send %talk-update instead.
|=(_pa pa-abet:(pa-report glyphers %glyph nak))
== ==
:: ::
++ join :: %join ++ join :: %join
@ -1367,8 +1372,9 @@
[%txt "{<p>}: {<u.nym>}"] [%txt "{<p>}: {<u.nym>}"]
%= ..sh-work %= ..sh-work
folks ?~ u.nym folks ?~ u.nym
(~(del by folks) u.her) (~(del by folks) u.her) ::x unset nickname
(~(put by folks) u.her [true=~ hand=nym]) (~(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
@ -1917,7 +1923,16 @@
== ==
::TODO sh-prod each shell? ::TODO sh-prod each shell?
$names $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 ++ poke-sole-action :: accept console
::x incoming sole action. process it. ::x incoming sole action. process it.

11
app/talk-guardian.hoon
View File

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

4
sur/talk.hoon
View File

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