ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-13 08:38:43 +03:00
Code Issues Packages Projects Releases Wiki Activity

Talk lowdowns can now indicate story/tale deletions.

Browse Source
This commit is contained in:
Fang 2017-03-30 13:33:37 +02:00
parent c03921811a
commit 163c31d425
3 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
app/talk-agent.hoon
View File

@ -217,16 +217,16 @@
++ ra-diff-talk-lowdown-tales
::x apply tale configs.
::
|= tals/(map knot config)
~& %ra-diff-talk-lowdown-tales
|= tals/(map knot (unit config))
^+ +>
::TODO for every config, (sh-repo-config-show "" oldconfig newconfig)
%= +> tales
%+ roll (~(tap by tals))
|= {t/(pair knot config) tas/_tales}
=. tas ?~(tas tales tas)
|= {t/(pair knot (unit config)) tas/_tales}
=. tas ?~(tas tales tas) ::x start with our current tales.
=+ tal=(fall (~(get by tas) p.t) *tale)
(~(put by tas) p.t tal(shape q.t))
?~ q.t (~(del by tas) p.t)
(~(put by tas) p.t tal(shape u.q.t))
==
::
++ ra-diff-talk-lowdown-precs

17
app/talk-guardian.hoon
View File

@ -214,6 +214,7 @@
::x $design with ~ for config signals delete
::TODO untangle into ++ra-unconfig, ++pa-reform-gone instead of using
:: bunts or empty keys.
:: be sure to send a deletion %tales lowdown!
(ra-config(stories (~(del by stories) p.cod)) p.cod *config)
(ra-config p.cod u.q.cod)
::
@ -502,9 +503,9 @@
|= new/bone
=. +> %- ra-emit
:* new %diff %talk-lowdown %tales
%- ~(gas in *(map knot config))
%- ~(gas in *(map knot (unit config)))
%+ turn (~(tap by stories))
|=({a/knot b/story} [a shape.b])
|=({a/knot b/story} [a `shape.b])
==
=. +> %- ra-emil :~
[new %diff %talk-lowdown %glyph nak]
@ -698,7 +699,7 @@
=. mirrors (~(put by mirrors) cuz con)
?: =(mirrors old)
+>.$
=. +>.$ (pa-inform %tales (strap man con))
=. +>.$ (pa-inform %tales (strap man `con))
(pa-report-cabal pa-followers)
::
++ pa-diff-talk-report :: subscribed update
@ -720,10 +721,10 @@
::x delete tay from our subscriptions, then send an updated capal report.
::
|= tay/partner
::TODO send deletion lowdown.
::=. +> (pa-inform %tales )
%. pa-followers
pa-report-cabal(sources.shape (~(del in sources.shape) tay))
=. +>
%. pa-followers
pa-report-cabal(sources.shape (~(del in sources.shape) tay))
(pa-inform %tales (strap man `shape))
::
++ pa-sauce :: send backward
::x turns cards into moves, reverse order, prepend to existing moves.
@ -794,7 +795,7 @@
=. +>.$ (pa-acquire p.dif)
=. +>.$ (pa-abjure q.dif)
=. shape cof
=. +>.$ (pa-inform %tales (strap man cof))
=. +>.$ (pa-inform %tales (strap man `cof))
(pa-report-cabal pa-followers)
::
++ pa-cancel :: unsubscribe from

2
sur/talk.hoon
View File

@ -61,9 +61,9 @@
:: this will aid with ++sh's printing.
$% {$glyph (jug char (set partner))} :: new bindings
{$names (map ship (unit human))} :: new identities
{$tales (map knot config)} :: changed config
::TODO cabal, or merge its contents into tale's config
:: basically we just want to merge the ship sets, right?
{$tales (map knot (unit config))} :: changed config
{$precs (pair knot atlas)} :: changed presence
{$grams (pair knot (pair @ud (list telegram)))} :: new grams
== ::