mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 21:03:10 +03:00
42 lines
1.0 KiB
Plaintext
42 lines
1.0 KiB
Plaintext
:: /mar/collections/config/hoon
|
|
::
|
|
|_ $= con
|
|
$: desc/cord :: description
|
|
publ/? :: public or private
|
|
visi/? :: visioverable
|
|
mems/(set ship) :: ships on list
|
|
== ::
|
|
::
|
|
++ grow
|
|
|%
|
|
++ mime
|
|
:- /text/x-collections-config
|
|
%- as-octs:mimes:html
|
|
(of-wain:format txt)
|
|
++ txt
|
|
^- (list @t)
|
|
:^ desc.con
|
|
?:(publ.con 'public' 'private')
|
|
?:(visi.con 'visible' 'hidden')
|
|
%+ turn ~(tap in mems.con)
|
|
(cury scot %p)
|
|
--
|
|
::
|
|
++ grab
|
|
|%
|
|
++ mime
|
|
|= {p/mite:eyre q/octs:eyre}
|
|
(txt (to-wain:format q.q))
|
|
++ txt
|
|
|= txs/(list @t)
|
|
?> (gte (lent txs) 3)
|
|
:^ (snag 0 txs)
|
|
=((snag 1 txs) 'public')
|
|
=((snag 2 txs) 'visible')
|
|
%- ~(gas in *(set ship))
|
|
%+ turn (slag 3 txs)
|
|
(cury slav %p)
|
|
--
|
|
++ grad %txt
|
|
--
|