mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 12:43:31 +03:00
97 lines
2.4 KiB
Plaintext
97 lines
2.4 KiB
Plaintext
::
|
|
:::: /hoon/config/collection/mar
|
|
::
|
|
/+ collections
|
|
|_ con=config:collections
|
|
::
|
|
::
|
|
++ grow
|
|
|%
|
|
++ mime
|
|
:- /text/x-collection-config
|
|
(as-octs:mimes:html (jam con))
|
|
:: ++ txt
|
|
:: |^
|
|
:: ^- (list @t)
|
|
:: ;: weld
|
|
:: ::
|
|
:: :~ (cat 3 'name: ' goodname.con)
|
|
:: (cat 3 'owner: ' (scot %p owner.con))
|
|
:: (cat 3 'date-created: ' (scot %da date-created.con))
|
|
:: (cat 3 'last-modified: ' (scot %da last-modified.con))
|
|
:: (cat 3 'comments: ' ?:(comments.con 'y' 'n'))
|
|
:: ==
|
|
:: ::
|
|
:: ?~ sort-key.con ~
|
|
:: [(cat 3 'sort-key: ' (scot %ud u.sortkey.con)) ~]
|
|
:: ::
|
|
:: :- 'config-permissions:'
|
|
:: (rules-to-txt r.config-permissions.con w.config-permissions.con)
|
|
:: ::
|
|
:: :- 'content-permissions:'
|
|
:: (rules-to-txt r.content-permissions.con w.content-permissions.con)
|
|
:: ::
|
|
:: ==
|
|
:: ++ rules-to-txt
|
|
:: |= [r=rule:clay w=rule:clay]
|
|
:: ^- (list @t)
|
|
:: ;: weld
|
|
:: ::
|
|
:: :* (cat 3 ' read: ' mod.r)
|
|
:: %+ turn ~(tap by who.r)
|
|
:: |= hoe=whom:clay
|
|
:: ?- -.hoe
|
|
:: %& (cat 3 ' ' (scot %p +.hoe))
|
|
:: %| (cat 3 ' ' +.hoe)
|
|
:: ==
|
|
:: ==
|
|
:: ::
|
|
:: [' ==' ~]
|
|
:: ::
|
|
:: :* (cat 3 ' write: ' mod.w)
|
|
:: %+ turn ~(tap by who.w)
|
|
:: |= hoe=whom:clay
|
|
:: ?- -.hoe
|
|
:: %& (cat 3 ' ' (scot %p +.hoe))
|
|
:: %| (cat 3 ' ' +.hoe)
|
|
:: ==
|
|
:: ==
|
|
:: ::
|
|
:: [' ==' ~]
|
|
:: ==
|
|
:: --
|
|
--
|
|
++ grab
|
|
|%
|
|
++ mime
|
|
|= [mite:eyre p=octs:eyre]
|
|
((hard config:collections) (cue q.p))
|
|
:: ++ txt
|
|
:: |= txs=(list @t)
|
|
:: ?> ?= $: name=@t
|
|
:: owner=@t
|
|
:: dc=@t
|
|
:: lm=@t
|
|
:: com=@t
|
|
:: res=(lest @t)
|
|
:: ==
|
|
:: txs
|
|
:: ::
|
|
:: =/ top
|
|
:: :* (rash name.txs ;~(pfix (jest 'name: ') (cook crip (star next))))
|
|
:: (rash owner.txs ;~(pfix (jest 'owner: ~') (fed:ag)))
|
|
:: (rash dc.txs ;~(pfix (jest 'date-created: ~') (cook |=(a=^ +.a) crub:so)))
|
|
:: (rash lm.txs ;~(pfix (jest 'last-modified: ~') (cook |=(a=^ +.a) crub:so)))
|
|
:: (rash com.txs ;~(pfix (jest 'comments: ') (flag %y %n)))
|
|
:: ==
|
|
|
|
|
|
|
|
|
|
|
|
|
|
++ noun config:collections
|
|
--
|
|
++ grad %mime
|
|
--
|