bugfixes:

- collections crash
- writing wrong owner for comments
- inbox config sources field was not being updated
This commit is contained in:
Isaac Visintainer 2018-11-19 14:37:00 -08:00
parent 1af9c5a328
commit a0c2157483
3 changed files with 26 additions and 7 deletions

View File

@ -317,12 +317,21 @@
:: %source: the sources of our inbox have changed
::
%source
?> =(circ [our.bol %inbox])
?. =(circ [our.bol %inbox])
[~ this]
:: we've added a source to our inbox
::
?: add.dif.rum.rum
:- ~
?> ?=(^ con.inbox.str.sta)
=/ conf=config:hall
%= u.con.inbox.str.sta
src
(~(put by src.u.con.inbox.str.sta) src.dif.rum.rum)
==
:- (send-rumor %circle-change %our [our.bol %inbox] `conf)
%= this
con.inbox.str.sta `conf
::
sub-circles.str.sta
(~(put by sub-circles.str.sta) cir.src.dif.rum.rum ~)
==

View File

@ -3320,6 +3320,9 @@
[[b %quit ~] out]
out
::
?: =(a 'print')
~& shape:(~(got by stories) %inbox)
[~ +>]
::
[~ +>]
--

View File

@ -638,7 +638,11 @@
?: ?& (~(has by meta.raw.new) %comments)
=('.y' (~(got by meta.raw.new) %comments))
==
(ta-generate-comments pax)
=/ owner=(unit @ta) (~(get by meta.raw.new) %owner)
=/ owner-p=@p
?~ owner our.bol
(fall (rush u.owner ;~(pfix sig fed:ag)) our.bol)
(ta-generate-comments pax owner-p)
ta-this
::
==
@ -775,8 +779,11 @@
?& =('.y' (fall (~(get by meta.new) %comments) '.n'))
=('.n' (fall (~(get by meta.old) %comments) '.n'))
==
:: create comments
(ta-generate-comments pax)
=/ owner=(unit @ta) (~(get by meta.new) %owner)
=/ owner-p=@p
?~ owner our.bol
(fall (rush u.owner ;~(pfix sig fed:ag)) our.bol)
(ta-generate-comments pax owner-p)
::
=? ta-this
?& =('.n' (fall (~(get by meta.new) %comments) '.n'))
@ -853,7 +860,7 @@
::
++ ta-generate-comments
~/ %coll-ta-generate-comments
|= pax=path
|= [pax=path owner=ship]
^+ ta-this
=/ sup=path [%collections-config (flop pax)]
=/ bek byk.bol(r [%da now.bol])
@ -863,7 +870,7 @@
:* [bek sup]
'comments'
'comments'
our.bol
owner
dat
dat
%comments