added /sys.kelvin and %kelvin mark

This commit is contained in:
Ted Blackman 2021-06-28 15:04:15 -04:00
parent d5ec02c801
commit 87b7f0513e
2 changed files with 21 additions and 0 deletions

20
pkg/arvo/mar/kelvin.hoon Normal file
View File

@ -0,0 +1,20 @@
=> |%
+$ 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
--

1
pkg/arvo/sys.kelvin Normal file
View File

@ -0,0 +1 @@
[%zuse 420]