shrub/pkg/arvo/lib/publish.hoon

27 lines
388 B
Plaintext
Raw Normal View History

2019-07-12 01:07:05 +03:00
/- *publish
/+ elem-to-react-json
|%
::
++ tang-to-json
|= tan=tang
%- wall:enjs:format
%- zing
%+ turn tan
|= a=tank
(wash [0 80] a)
::
++ string-to-symbol
|= tap=tape
^- @tas
%- crip
%+ turn tap
|= a=@
?: ?| &((gte a 'a') (lte a 'z'))
&((gte a '0') (lte a '9'))
==
a
?: &((gte a 'A') (lte a 'Z'))
(add 32 a)
'-'
--