publish: ignore edit updates if they originated with us

This commit is contained in:
Isaac Visintainer 2020-04-13 13:34:50 -07:00
parent 7edcd65699
commit 78023b8eff

View File

@ -1913,6 +1913,8 @@
=/ old-note (~(get by notes.u.book) note.del) =/ old-note (~(get by notes.u.book) note.del)
?~ old-note ?~ old-note
[~ sty] [~ sty]
?: =(our.bol author.u.old-note)
[~ sty]
=/ new-note=note =/ new-note=note
%= data.del %= data.del
date-created date-created.u.old-note date-created date-created.u.old-note
@ -1933,6 +1935,11 @@
=/ note (~(get by notes.u.book) note.del) =/ note (~(get by notes.u.book) note.del)
?~ note ?~ note
[~ sty] [~ sty]
=/ old-comment (~(get by comments.u.note) comment-date.del)
?~ old-comment
[~ sty]
?: =(our.bol author.u.old-comment)
[~ sty]
=. comments.u.note (~(put by comments.u.note) comment-date.del data.del) =. comments.u.note (~(put by comments.u.note) comment-date.del data.del)
=. notes.u.book (~(put by notes.u.book) note.del u.note) =. notes.u.book (~(put by notes.u.book) note.del u.note)
(emit-updates-and-state host.del book.del u.book del sty) (emit-updates-and-state host.del book.del u.book del sty)