ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-05 05:45:46 +03:00
Code Issues Packages Projects Releases Wiki Activity

Comment /+elem-to-react-json

Browse Source
This commit is contained in:
Anton Dyudin 2016-10-24 14:09:34 -07:00
parent ed1525d893
commit 7ab3b7b3a1
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lib/elem-to-react-json.hoon
View File

@ -1,9 +1,10 @@
:: Serialize &elem as &json, with special handling for urb:* attributes
:: ::
:::: /hoon/elem-to-react-json/lib :::: /hoon/elem-to-react-json/lib
:: ::
/? 310 /? 310
|% |%
++ react-attrs ++ react-attrs :: uppercase mapping
~+ ^- (map term cord) ~+ ^- (map term cord)
%- molt ^- (list (pair term cord)) %- molt ^- (list (pair term cord))
:- [%class 'className'] :- [%class 'className']
@ -23,14 +24,16 @@
width wmode width wmode
''' '''
:: ::
++ urb-codemirror :: reactify <pre urb:codemirror>foo</pre> :: special handling for <pre urb:codemirror>foo</pre>
++ urb-codemirror :: render code blocks
|= src/manx ^- manx |= src/manx ^- manx
?> ?=({{$pre *} _;/(**) $~} src) ?> ?=({{$pre *} _;/(**) $~} src)
;codemirror(value "{v.i.a.g.i.c.src}"); ;codemirror(value "{v.i.a.g.i.c.src}");
:: ::
++ urb-exec :: reactify <pre urb:exec>foo</pre> :: special handling for <pre urb:exec>foo</pre>
++ urb-exec :: eval inline hoon
|= src/manx |= src/manx
?> ?=({{$pre *} _;/(**) $~} src) :: verify its only a text node ?> ?=({{$pre *} _;/(**) $~} src) :: verify it's only a text node
=* code v.i.a.g.i.c.src =* code v.i.a.g.i.c.src
=+ =< result=(mule .) =+ =< result=(mule .)
!.(|.((slap !>(.) (ream (crip code))))) :: compile and run safely !.(|.((slap !>(.) (ream (crip code))))) :: compile and run safely
@ -47,7 +50,7 @@
;div:"{~(ram re a)}" ;div:"{~(ram re a)}"
== == == == == ==
:: ::
++ elem-to-react-json ++ elem-to-react-json :: serialize DOM as json
|= src/manx ^- json |= src/manx ^- json
?: ?=(_;/(**) src) ?: ?=(_;/(**) src)
(jape v.i.a.g.src) (jape v.i.a.g.src)
@ -66,9 +69,10 @@
(fall (~(get by react-attrs) a) a) (fall (~(get by react-attrs) a) a)
== ==
:: ::
++ mane-to-cord |=(a/mane `cord`?@(a a (rap 3 -.a ':' +.a ~))) ++ mane-to-cord :: namespaced xml names
|=(a/mane `cord`?@(a a (rap 3 -.a ':' +.a ~)))
-- --
:: ::
:::: ::::
:: ::
elem-to-react-json elem-to-react-json :: export conversion gate