urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-11-28 05:22:27 +03:00
Code Issues Packages Projects Releases Wiki Activity

don't send null kick if subscribers list is empty

Browse Source 
scry old files into the correct structure
This commit is contained in:
Isaac Visintainer 2020-01-22 12:47:00 -08:00
parent 1fde0913cb
commit e9452bfa72
2 changed files with 30 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
pkg/arvo/app/publish.hoon
View File

@ -121,9 +121,9 @@
=+ ^- [kick-cards=(list card) old-subs=(jug @tas @p)] kick-subs
:_ this(state [%1 *state-one])
;: weld
kill-builds
leave-subs
kick-cards
kill-builds
init-cards
(move-files old-subs)
==
@ -146,6 +146,8 @@
=/ book-name i.t.pax
:- [pax paths]
(~(put ju subs) book-name who)
?~ paths
[~ subs]
[[%give %kick paths ~]~ subs]
::
++ kill-builds
@ -180,7 +182,7 @@
|= old-subs=(jug @tas @p)
^- (list card)
=+ ^- [cards=(list card) sob=soba:clay]
%+ roll .^((list path) %ct (weld our-beak /web/publish))
%+ roll .^((list path) %ct (weld our-beak:main /web/publish))
|= [pax=path car=(list card) sob=soba:clay]
^- [(list card) soba:clay]
?+ pax
@ -188,7 +190,8 @@
::
[%web %publish @ %publish-info ~]
=/ book-name i.t.t.pax
=/ book=notebook-info .^(notebook-info %cx (welp our-beak pax))
=/ old=old-info .^(old-info %cx (welp our-beak:main pax))
=/ book=notebook-info [title.old '' =(%open comments.old) / /]
=+ ^- [grp-car=(list card) writers-path=path subscribers-path=path]
(make-groups book-name [%new ~ ~ %journal])
=. writers.book writers-path
@ -207,17 +210,20 @@
:- car
:+ [pax %del ~]
:- /app/publish/notebooks/[book]/[note]/udon
[%ins %udon !>(.^(@t %cx (welp our-beak pax)))]
[%ins %udon !>(.^(@t %cx (welp our-beak:main pax)))]
sob
::
[%web %publish @ @ @ %publish-comment ~]
=/ book i.t.t.pax
=/ note i.t.t.t.pax
=/ comm i.t.t.t.t.pax
=/ old=old-comment .^(old-comment %cx (welp our-beak:main pax))
=/ new=comment [creator.old date-created.old content.old]
:- car
:+ [pax %del ~]
:- /app/publish/notebooks/[book]/[note]/[comm]/publish-comment
[%ins %publish-comment !>(.^(comment %cx (welp our-beak pax)))]
[%ins %publish-comment !>(new)]
sob
==
[[%pass /move-files %arvo %c %info q.byk.bol %& sob] cards]

19
pkg/arvo/sur/publish.hoon
View File

@ -63,6 +63,25 @@
subscribers=path
==
::
+$ old-info
$: owner=@p
title=@t
filename=@tas
comments=?(%open %closed %none)
allow-edit=?(%post %comment %all %none)
date-created=@da
last-modified=@da
==
+$ old-comment
$: $: creator=@p
collection=@tas
post=@tas
date-created=@da
last-modified=@da
==
content=@t
==
::
+$ notebook-delta
$% [%add-book host=@p book=@tas data=notebook]
[%add-note host=@p book=@tas note=@tas data=note]