mirror of
https://github.com/urbit/shrub.git
synced 2024-12-11 11:02:25 +03:00
35 lines
850 B
Plaintext
35 lines
850 B
Plaintext
|
::
|
||
|
|
:::: /hoon+frontmatter+lib
|
||
|
|
::
|
||
|
|
/? 314
|
||
|
|
!:
|
||
|
|
|%
|
||
|
|
++ atr-lines
|
||
|
|
|= atr/(map cord cord)
|
||
|
|
%+ turn (sort (~(tap by atr)) |=({{a/@ @} {b/@ @}} (aor a b)))
|
||
|
|
|= {k/cord v/cord}
|
||
|
|
(rap 3 k ': ' v ~)
|
||
|
|
::
|
||
|
|
++ atr-key ;~(sfix (star ;~(less col prn)) col ace)
|
||
|
|
++ print
|
||
|
|
|= {atr/(map cord cord) src/wain}
|
||
|
|
?~ atr src
|
||
|
|
['---' (welp (atr-lines atr) '---' src)]
|
||
|
|
++ parse
|
||
|
|
=| atr/(map cord cord)
|
||
|
|
|= wan/wain ^+ [atr mud='']
|
||
|
|
?~ wan [~ '']
|
||
|
|
?^ (rush i.wan (star ace))
|
||
|
|
$(wan t.wan)
|
||
|
|
?. =('---' i.wan) [~ (role wan)]
|
||
|
|
|- ^+ [atr mud='']
|
||
|
|
?~ t.wan ~|(%unclosed-metadata !!)
|
||
|
|
?: =('---' i.t.wan) [atr (role t.t.wan)]
|
||
|
|
?^ (rush i.t.wan (star ace))
|
||
|
|
$(wan t.wan)
|
||
|
|
=- $(wan t.wan, atr (~(put by atr) (crip key) (crip val)))
|
||
|
|
~| malformed-attribute+i.t.wan
|
||
|
|
^- {key/tape ^ val/tape}
|
||
|
|
+>:(atr-key 1^1 (trip i.t.wan))
|
||
|
|
--
|