mirror of
https://github.com/urbit/shrub.git
synced 2024-12-19 00:13:12 +03:00
21 lines
367 B
Plaintext
21 lines
367 B
Plaintext
=> |%
|
|
+$ kelvin [lal=@tas num=@ud]
|
|
--
|
|
|_ kel=kelvin
|
|
++ grow
|
|
|%
|
|
++ mime [/text/x-kelvin (as-octs:mimes:html hoon)]
|
|
++ noun kel
|
|
++ hoon (crip "{<[lal num]:kel>}\0a")
|
|
++ txt (to-wain:format hoon)
|
|
--
|
|
++ grab
|
|
|%
|
|
++ noun kelvin
|
|
++ mime
|
|
|= [=mite len=@ud tex=@]
|
|
!<(kelvin (slap !>(~) (ream tex)))
|
|
--
|
|
++ grad %noun
|
|
--
|