mirror of
https://github.com/urbit/shrub.git
synced 2024-12-07 10:23:28 +03:00
84 lines
1.5 KiB
Plaintext
84 lines
1.5 KiB
Plaintext
::
|
|
:::: /hoon/collections/lib
|
|
::
|
|
/? 309
|
|
/+ cram
|
|
::
|
|
::
|
|
|%
|
|
+= collection [meta=config data=(map nom=knot =item)]
|
|
+= item
|
|
$% [%collection col=collection]
|
|
[%raw raw=raw-item]
|
|
[%both col=collection raw=raw-item]
|
|
==
|
|
+= raw-item
|
|
$% [%umd meta=(map knot cord) data=@t]
|
|
==
|
|
::
|
|
+= config
|
|
$: full-path=beam
|
|
name=@ta
|
|
description=@t
|
|
::
|
|
owner=@p
|
|
::
|
|
date-created=@da
|
|
last-modified=@da
|
|
::
|
|
type=@tas
|
|
comments=?
|
|
sort-key=(unit @)
|
|
visible=?
|
|
::
|
|
==
|
|
::
|
|
+= action
|
|
$: who=ship
|
|
dek=desk
|
|
acts=(list sub-action)
|
|
==
|
|
+= sub-action
|
|
$% [%write pax=path for=form]
|
|
[%delete pax=path]
|
|
[%perms pax=path r=rule:clay w=rule:clay]
|
|
::
|
|
[%collection pax=path name=@ta desc=@t comments=? visible=? type=@tas]
|
|
[%post pax=path name=@ta type=@tas comments=? content=@t]
|
|
[%comment pax=path content=@t]
|
|
==
|
|
::
|
|
+= form
|
|
$% [%umd @t]
|
|
[%collections-config config]
|
|
==
|
|
::
|
|
::
|
|
::
|
|
++ front-to-wain
|
|
|= a=(map knot cord)
|
|
^- wain
|
|
=/ entries=wain
|
|
%+ turn ~(tap by a)
|
|
|= b=[knot cord]
|
|
=/ c=[term knot] ((hard ,[term knot]) b)
|
|
(crip " [{<-.c>} {<+.c>}]")
|
|
::
|
|
?~ entries ~
|
|
;: weld
|
|
[':- :~' ~]
|
|
entries
|
|
[' ==' ~]
|
|
==
|
|
::
|
|
++ update-umd-front
|
|
|= [fro=(map knot cord) umd=@t]
|
|
^- @t
|
|
%- of-wain:format
|
|
=/ tum (trip umd)
|
|
=/ id (need (find ";>" tum))
|
|
%+ weld (front-to-wain fro)
|
|
(to-wain:format (crip (slag id tum)))
|
|
::
|
|
--
|