mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 12:43:31 +03:00
26 lines
609 B
Plaintext
26 lines
609 B
Plaintext
!:
|
|
|%
|
|
++ pretty-noun
|
|
|= pri=* ^- tank
|
|
?~ pri
|
|
leaf/"~"
|
|
?@ pri
|
|
leaf/?:(((sane %tas) pri) <`@tas`pri> <pri>)
|
|
=< rose/[" " ?:(- "~[" "[") "]"]^+
|
|
|- ^- [? (list tank)]
|
|
?~ +.pri
|
|
[& ^$(pri -.pri) ~]
|
|
?@ +.pri
|
|
[| ^$(pri -.pri) ^$(pri +.pri) ~]
|
|
[+< - +>]:[^$(pri -.pri) $(pri +.pri)]
|
|
::
|
|
++ vale-cord |=(a=cord `?`(levy (trip a) |=(b=@ |((gte b 32) =(10 b)))))
|
|
::
|
|
++ pretty-file
|
|
=+ wain-to-tang=|=(a=wain (turn a |=(b=cord leaf/(trip b))))
|
|
|= fyl=* ^- tang
|
|
=+ `(unit wain)`?@(fyl `(lore fyl) ((soft wain) fyl))
|
|
?^ - (wain-to-tang u)
|
|
[(pretty-noun fyl)]~
|
|
--
|