shrub/app/collections.hoon

367 lines
9.9 KiB
Plaintext
Raw Normal View History

2017-12-02 21:45:47 +03:00
:: /app/collection/hoon
::
2017-12-16 01:52:30 +03:00
/- hall, *collections
/+ hall, rekey
/= cols
/: /===/web/collections
/^ collections
/; (rekey %da)
/_ /. /= conf /collections-config/
/= tops
/; (rekey %da)
/_ /. /collections-topic/
/= comt
/; (rekey %da)
/_ /collections-comment/
== ==
2017-12-02 21:45:47 +03:00
::
2017-12-15 04:10:58 +03:00
:: things to keep in sync, unique by date:
:: collections: files, circles,
:: topics: files, circles, notify
:: comments: files, notify
::
:: filepaths:
:: /web/collections/my-coll.config
:: /web/collections/my-coll/some.topic
:: /web/collections/my-coll/some/1.comment
::
:: notification circles:
2017-12-14 03:04:45 +03:00
:: ~.collections_blog-date new/changed post notifications
:: ~.collections_blog-date__post-date new/changed comments notifications
2017-12-02 21:45:47 +03:00
::
2017-12-14 03:04:45 +03:00
::
::::
::
:: XX belongs back in zuse
|%
++ pack :: light path encoding
|= {a/term b/path} ^- knot
%+ rap 3 :- (wack a)
(turn b |=(c/knot (cat 3 '_' (wack c))))
::
++ pick :: light path decoding
=+ fel=(most cab (sear wick urt:ab))
|=(a/knot `(unit {p/term q/path})`(rush a fel))
::
--
2017-12-02 21:45:47 +03:00
=> |%
++ move (pair bone card) :: all actions
2017-12-02 21:45:47 +03:00
++ poke ::
$% {$hall-action action:hall} ::
== ::
++ card ::
2017-12-15 04:10:58 +03:00
$% {$info wire ship term nori:clay} ::
2017-12-02 21:45:47 +03:00
{$poke wire dock poke} ::
{$pull wire dock $~} ::
{$warp wire sock riff:clay} ::
2017-12-02 21:45:47 +03:00
{$quit $~} ::
== ::
--
::
2017-12-14 03:04:45 +03:00
::::
::
=, wired
=, space:userlib
|_ {bol/bowl:gall upd/@da}
2017-12-02 21:45:47 +03:00
::
++ prep ::< prepare state
::> adapts state.
::
::REVIEW this seems like not the ideal place to get the ford update
|= old/(unit @da)
^- (quip move _..prep)
=^ mow ..prep
ta-done:(ta-update:ta (fall old *@da))
[mow ..prep(upd now.bol)]
2017-12-02 21:45:47 +03:00
::
++ poke-noun
2017-12-14 06:09:00 +03:00
|= a=$@(?(~ @da) [p=@da q=@da])
2017-12-02 21:45:47 +03:00
^- (quip move _+>)
~& %poked
2017-12-14 06:09:00 +03:00
=< ta-done
?~ a
2017-12-14 06:09:00 +03:00
(ta-create:ta %fora ['a description' pub=& vis=& [~palzod ~ ~]])
?@ a
(ta-submit:ta a 'a topic' ~['with contents'])
(ta-comment:ta p.a q.a now.bol ~['a comment' 'yo'])
2017-12-02 21:45:47 +03:00
::
++ writ
|= {wir/wire rit/riot:clay}
^- (quip move _+>)
[~ +>]
::TODO watch for file changes. create on new files, update on change, delete
:: on remove. we want to watch /web/collections recursively if possible,
:: or /web/collections/[col] for each collection and then
:: /web/collections/[col]/[top] for each topic as they get created.
::
2017-12-13 05:48:57 +03:00
++ ignore-action
2017-12-16 01:52:30 +03:00
|= act=action:api ^- ?
2017-12-13 05:48:57 +03:00
?- -.act
?($create $delete)
?: (team:title our.bol src.bol) |
~|([%unauthorized -.act src.bol] !!)
::
?($submit $comment)
=/ col (~(get by cols) col.act)
?~ col &
?: publ.conf.u.col
(~(has in mems.conf.u.col) src.bol) :: not on blacklist
!(~(has in mems.conf.u.col) src.bol) :: is on whitelist
==
::
2017-12-02 21:45:47 +03:00
++ poke-collections-action
2017-12-16 01:52:30 +03:00
|= act=action:api
2017-12-13 05:48:57 +03:00
^- (quip move _+>)
?: (ignore-action act)
2017-12-05 00:47:41 +03:00
[~ +>]
=< ta-done
2017-12-02 21:45:47 +03:00
?- -.act
$create (ta-create:ta +.act)
$submit (ta-submit:ta +.act)
$comment (ta-comment:ta +.act)
$delete (ta-delete:ta +.act)
2017-12-02 21:45:47 +03:00
==
::
++ ta
|_ moves/(list move)
2017-12-13 05:48:57 +03:00
++ ta-done [(flop moves) +>]
++ ta-emit |=(mov/move %_(+> moves [mov moves]))
++ ta-emil |=(mos/(list move) %_(+> moves (welp (flop mos) moves)))
2017-12-02 21:45:47 +03:00
++ ta-hall-action
2017-12-13 05:48:57 +03:00
|= act=action:hall
2017-12-02 21:45:47 +03:00
%- ta-emit
:^ ost.bol %poke / ::TODO wire, handle ++coup.
2017-12-02 21:45:47 +03:00
:+ [our.bol %hall] %hall-action
act
::
2017-12-13 05:48:57 +03:00
++ ta-hall-actions
|= act=(list ?(~ action:hall)) ^+ +>
?~ act +>
?~ i.act $(act t.act)
$(act t.act, +> (ta-hall-action i.act)) ::TODO group at all?
::
:: %performing-actions
2017-12-02 21:45:47 +03:00
::
++ ta-create
2017-12-16 01:52:30 +03:00
|= {wat/kind:api cof/config}
2017-12-02 21:45:47 +03:00
^+ +>
2017-12-13 05:48:57 +03:00
::XX unhandled kind
(ta-write-config now.bol cof)
2017-12-02 21:45:47 +03:00
::
++ ta-submit
2017-12-14 03:04:45 +03:00
|= {col/time tit/cord wat/wain}
::TODO %resubmit topic edit command?
2017-12-14 06:09:00 +03:00
=/ top/topic [tit src.bol now.bol wat]
(ta-write-topic col now.bol top)
::
++ ta-comment
2017-12-14 03:04:45 +03:00
|= {col/time top/@da com/@da wat/wain}
^+ +>
=; res/$@(~ _+>.$) ?^(res res +>.$)
%+ biff (~(get by cols) col)
|= cos=collection
%+ biff (~(get by tops.cos) top)
|= [topic cos=(map @da comment) ~]
2017-12-13 05:48:57 +03:00
=/ old/comment
%+ fall (~(get by cos) com)
2017-12-14 06:09:00 +03:00
[src.bol now.bol wat]
?. =(who.old src.bol) ..ta-comment :: error?
%^ ta-write-comment col top
2017-12-14 06:09:00 +03:00
:- com
[who.old now.bol wat]
::
++ ta-delete
2017-12-14 03:04:45 +03:00
|= col/time
^+ +>
+>
::TODO - delete files
:: - unsubscribe from clay
:: - send delete action to hall
:: - remove from state
::
:: %writing-files
::
2017-12-13 05:48:57 +03:00
++ ta-write
|= [wir=[term ~] pax=path cay=cage] ^+ +>
=/ pax=path
2017-12-14 03:04:45 +03:00
:(weld base-path pax /[p.cay])
2017-12-13 05:48:57 +03:00
%+ ta-emit ost.bol
[%info (weld wir pax) our.bol (foal pax cay)]
::
++ ta-write-config
2017-12-14 03:04:45 +03:00
|= {col/time cof/config}
2017-12-02 21:45:47 +03:00
^+ +>
2017-12-13 05:48:57 +03:00
%^ ta-write /config
2017-12-14 03:04:45 +03:00
(dray /[%da] col)
2017-12-13 05:48:57 +03:00
[%collections-config !>(cof)]
::
++ ta-write-topic
2017-12-14 06:09:00 +03:00
|= {col/time wen/@da top/topic}
^+ +>
2017-12-13 05:48:57 +03:00
%^ ta-write /topic
2017-12-14 06:09:00 +03:00
(dray /[%da]/[%da] col wen)
2017-12-13 05:48:57 +03:00
[%collections-topic !>(top)]
::
++ ta-write-comment
2017-12-14 06:09:00 +03:00
|= {col/time top/@da wen/@da com/comment}
^+ +>
2017-12-13 05:48:57 +03:00
%^ ta-write /comment
2017-12-14 06:09:00 +03:00
(dray /[%da]/[%da]/[%da] col top wen)
2017-12-13 05:48:57 +03:00
[%collections-comment !>(com)]
::
:: %applying-changes
::
++ ta-this .
++ ta-update
|= wen=@da
=. upd wen
=/ cos ~(tap by cols)
|- ^+ ta-this
?~ cos ta-this
=. ta-done $(cos t.cos)
=+ `[col=@da collection]`i.cos
=? ta-this (gth col upd) ::TODO mtime
(ta-change-config col conf)
=/ tos ~(tap by tops)
|- ^+ ta-this
?~ tos ta-this
=. ta-done $(tos t.tos)
=+ `[top=@da topicful]`i.tos
=? ta-this (gth top upd) ::TODO mtime
(ta-change-topic col top info)
=/ mos ~(tap by comt)
|- ^+ ta-this
?~ mos ta-this
=. ta-done $(mos t.mos)
=+ `[com=@da cot=comment]`i.mos
=? ta-this (gth com upd) ::TODO mtime
(ta-change-comment col top com cot)
ta-this
::
++ ta-change-config
|= {col/time new/config}
^+ +>
::
:: if we don't have it yet, add to hall.
=/ old (old-config col) ::TODO convert other two
?~ old
(ta-hall-create col new)
:: update config in hall.
=/ nam (circle-for col)
%- ta-hall-actions :~
?: =(desc.new desc.u.old) ~
[%depict nam desc.new]
::
?: =(visi.new visi.u.old) ~
[%public visi.new our.bol nam]
::
(hall-permit nam & (~(dif in mems.new) mems.u.old))
(hall-permit nam | (~(dif in mems.u.old) mems.new))
==
::
++ ta-change-topic
|= {col/time wen/@da top/topic}
^+ +>
=^ top +>.$
?: =(wed.top now.bol) [top +>.$]
=. wed.top now.bol :: change last edit date
[top (ta-write-topic col wen top)]
::
=/ new ?=(~ (old-topic col wen))
=? +>.$ new
=/ cos (~(got by cols) col)
~| cos
(ta-hall-create-topic col wen conf.cos)
(ta-hall-notify col wen ~ new wat.top)
::
++ ta-change-comment
|= {col/time top/@da wen/@da com/comment}
^+ +>
=^ com +>.$
?: =(wed.com now.bol) [com +>.$]
=. wed.com now.bol :: change last edit date
[com (ta-write-comment col top wen com)]
::
=/ new =(~ (old-comment col top wen))
(ta-hall-notify col top `wen new wat.com)
::
:: %hall-changes
::
++ ta-hall-create
2017-12-14 03:04:45 +03:00
|= {col/time cof/config}
^+ +>
2017-12-13 05:48:57 +03:00
=+ nam=(circle-for col)
2017-12-15 04:10:58 +03:00
(ta-hall-configure nam cof)
2017-12-02 21:45:47 +03:00
::
2017-12-13 05:48:57 +03:00
++ ta-hall-create-topic
2017-12-14 03:04:45 +03:00
|= {col/time top/@da cof/config}
2017-12-02 21:45:47 +03:00
^+ +>
2017-12-13 05:48:57 +03:00
=+ nam=(circle-for-topic col top)
=. +>.$ (ta-hall-configure nam cof)
2017-12-02 21:45:47 +03:00
%- ta-hall-action
2017-12-13 05:48:57 +03:00
::NOTE %source also subs to local config & presence, but
:: that generally won't result in visible notifications.
:^ %source (circle-for col) &
(sy `source:hall`[our.bol nam]~ ~)
2017-12-02 21:45:47 +03:00
::
2017-12-13 05:48:57 +03:00
++ ta-hall-configure
|= [nam=term cof=config] ^+ +>
2017-12-02 21:45:47 +03:00
^+ +>
2017-12-13 05:48:57 +03:00
%- ta-hall-actions :~
[%create nam desc.cof ?:(publ.cof %journal %village)]
?.(visi.cof ~ [%public & our.bol nam])
(hall-permit nam & mems.cof)
==
2017-12-02 21:45:47 +03:00
::
::
++ ta-hall-notify
2017-12-14 03:04:45 +03:00
|= {col/time top/@da com/(unit @da) new/? wat/wain}
^+ +>
%- ta-hall-action
=- :+ %phrase [[our.bol tar] ~ ~]
[%fat [%text wat] [%lin | msg]]~
^- {tar/naem:hall msg/cord}
::TODO
2017-12-13 05:48:57 +03:00
[(circle-for col) 'TODO']
2017-12-02 21:45:47 +03:00
--
::
2017-12-13 05:48:57 +03:00
++ hall-permit
|= [nam=term inv=? sis=(set ship)]
?~ sis ~
[%permit nam inv sis]
2017-12-02 21:45:47 +03:00
::
2017-12-13 05:48:57 +03:00
::
++ circle-for
2017-12-14 03:04:45 +03:00
|=(col/time (pack %collection (dray /[%da] col)))
2017-12-13 05:48:57 +03:00
::
++ circle-for-topic
2017-12-14 03:04:45 +03:00
|=({col/time top/time} (pack %collection (dray /[%da]/[%da] col top)))
::
++ base-path (en-beam:format byk.bol(r da+upd) /collections/web)
::
++ old-config
2017-12-14 03:04:45 +03:00
|= col/time
^- (unit config)
2017-12-14 03:04:45 +03:00
=/ pax :(weld base-path (dray /[%da] col) /collections-config)
2017-12-13 05:48:57 +03:00
::
2017-12-14 03:04:45 +03:00
?~ (file pax) ~
`.^(config %cx pax)
::
++ old-topic
2017-12-14 03:04:45 +03:00
|= {col/time top/@da}
^- (unit topic)
2017-12-14 03:04:45 +03:00
=/ pax :(weld base-path (dray /[%da]/[%da] col top) /collections-topic)
2017-12-13 05:48:57 +03:00
::
2017-12-14 03:04:45 +03:00
?~ (file pax) ~
`.^(topic %cx pax)
::
++ old-comment
2017-12-14 03:04:45 +03:00
|= {col/time top/@da com/@da}
^- (unit comment)
2017-12-14 03:04:45 +03:00
=/ pax
:(weld base-path (dray /[%da]/[%da]/[%da] col top com) /collections-comment)
2017-12-13 05:48:57 +03:00
::
2017-12-14 03:04:45 +03:00
?~ (file pax) ~
`.^(comment %cx pax)
2017-12-02 21:45:47 +03:00
--