29 lines
566 B
Plaintext
29 lines
566 B
Plaintext
|
|_ kal=waft:clay
|
||
|
|
++ grow
|
||
|
|
|%
|
||
|
|
++ mime `^mime`[/text/x-kelvin (as-octs:mimes:html hoon)]
|
||
|
|
++ noun kal
|
||
|
|
++ hoon
|
||
|
|
%+ rap 3
|
||
|
|
%+ turn
|
||
|
|
%+ sort
|
||
|
|
~(tap in (waft-to-wefts:clay kal))
|
||
|
|
|= [a=weft b=weft]
|
||
|
|
?: =(lal.a lal.b)
|
||
|
|
(gte num.a num.b)
|
||
|
|
(gte lal.a lal.b)
|
||
|
|
|= =weft
|
||
|
|
(rap 3 '[%' (scot %tas lal.weft) ' ' (scot %ud num.weft) ']\0a' ~)
|
||
|
|
::
|
||
|
|
++ txt (to-wain:format hoon)
|
||
|
|
--
|
||
|
|
++ grab
|
||
|
|
|%
|
||
|
|
++ noun waft:clay
|
||
|
|
++ mime
|
||
|
|
|= [=mite len=@ud tex=@]
|
||
|
|
(cord-to-waft:clay tex)
|
||
|
|
--
|
||
|
|
++ grad %noun
|
||
|
|
--
|