shrub/pkg/arvo/sur/publish.hoon

110 lines
2.5 KiB
Plaintext

/- *rw-security
|%
::
+$ group-info
$% [%old write-pax=path read-pax=path]
$: %new
write-grp=(set ship) write-pax=path
read-grp=(set ship) read-pax=path
sec=rw-security
==
==
::
::
+$ action
$% [%new-book book=@tas title=@t about=@t coms=? group=group-info]
[%new-note who=@p book=@tas note=@tas title=@t body=@t]
[%new-comment who=@p book=@tas note=@tas body=@t]
::
[%edit-book book=@tas title=@t about=@t coms=? group=(unit group-info)]
[%edit-note who=@p book=@tas note=@tas title=@t body=@t]
[%edit-comment who=@p book=@tas note=@tas comment=@tas body=@t]
::
[%del-book book=@tas]
[%del-note who=@p book=@tas note=@tas]
[%del-comment who=@p book=@tas note=@tas comment=@tas]
::
[%subscribe who=@p book=@tas]
[%unsubscribe who=@p book=@tas]
::
[%read who=@p book=@tas note=@tas]
==
::
+$ comment
$: author=@p
date-created=@da
content=@t
==
::
+$ note
$: author=@p
title=@t
filename=@tas
date-created=@da
last-edit=@da
read=?
file=@t
snippet=@t
:: build=(each manx tang)
comments=(map @da comment)
==
::
+$ notebook
$: title=@t
description=@t
comments=?
writers=path
subscribers=path
date-created=@da
notes=(map @tas note)
order=(list @tas)
unread=(set @tas)
==
::
+$ notebook-info
$: title=@t
description=@t
comments=?
writers=path
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]
[%add-comment host=@p book=@tas note=@tas comment-date=@da data=comment]
::
[%edit-book host=@p book=@tas data=notebook]
[%edit-note host=@p book=@tas note=@tas data=note]
[%edit-comment host=@p book=@tas note=@tas comment-date=@da data=comment]
::
[%del-book host=@p book=@tas]
[%del-note host=@p book=@tas note=@tas]
[%del-comment host=@p book=@tas note=@tas comment=@da]
==
::
+$ primary-delta
$% notebook-delta
[%read who=@p book=@tas note=@tas]
==
--