liberalize xml parser re:attributes, fix blog examples

This commit is contained in:
Anton Dyudin 2015-07-22 14:35:36 -07:00
parent c74e62c722
commit 812beba523
5 changed files with 31 additions and 11 deletions

View File

@ -716,13 +716,12 @@
++ attr :: attributes
%+ knee *mart |. ~+
%- star
;~ pfix (plus whit)
;~ plug
;~(sfix name tis)
;~ pose
(ifix [doq doq] (star ;~(less doq escp)))
(ifix [soq soq] (star ;~(less soq escp)))
==
;~ plug
;~(pfix (plus whit) name)
;~ pose
(ifix [;~(plug tis doq) doq] (star ;~(less doq escp)))
(ifix [;~(plug tis soq) soq] (star ;~(less soq escp)))
(easy ~)
==
==
::

View File

@ -129,7 +129,7 @@
|= [input=path output=path]
%+ do-info "copied"
?> =(-:(flop input) -:(flop output))
(foal output -:(flop input) %noun .^(%cx input)) :: XX type
(foal output -:(flop input) atom/%t .^(%cx input)) :: XX type
::
++ poke-mv
|= [input=path output=path]

View File

@ -18,6 +18,24 @@
%pattern %polygon %polyline %radial-gradient %rect %stop %svg
%text %tspan
==
++ react-attrs
~+ ^- (map term cord)
%- mo ^- (list ,[term cord])
:- [%class 'className']
=- (rash - (more next (cook |=(a=tape [(cass a) (crip a)]) (star alf))))
'''
accept acceptCharset accessKey action allowFullScreen allowTransparency alt
async autoComplete autoFocus autoPlay cellPadding cellSpacing charSet checked
classID className colSpan cols content contentEditable contextMenu controls
coords crossOrigin data dateTime defer dir disabled download draggable encType
form formAction formEncType formMethod formNoValidate formTarget frameBorder
headers height hidden high href hrefLang htmlFor httpEquiv icon id label lang
list loop low manifest marginHeight marginWidth max maxLength media mediaGroup
method min multiple muted name noValidate open optimum pattern placeholder
poster preload radioGroup readOnly rel required role rowSpan rows sandbox scope
scoped scrolling seamless selected shape size sizes span spellCheck src srcDoc
srcSet start step style tabIndex target title type useMap value width wmode
'''
++ react-vale
~(has in react-elems)
++ react-to-json
@ -53,7 +71,9 @@
gn/s/(mane-to-cord n.g.src)
=< ga/(jobe (turn a.g.src .))
|= [a=mane b=tape] ^- [cord json]
[?+(a (mane-to-cord a) %class 'className') (jape b)]
:_ (jape b)
?^ a (mane-to-cord a)
(fall (~(get by react-attrs) a) a)
==
::
++ mane-to-cord |=(a=mane `cord`?@(a a (rap 3 -.a ':' +.a ~)))

View File

@ -5,6 +5,6 @@
<h2 class="sub">2015 07 16</h2>
<h2 class="sub">Curtis, Galen, Philip, Anton and Henry</h2>
<iframe src="https://player.vimeo.com/video/133395510?color=fff&title=0&byline=0&portrait=0" frameborder="0" webkitallowfullscreen mozallowfullscreen allowfullscreen></iframe>
<iframe src="https://player.vimeo.com/video/133395510?color=fff&amp;title=0&amp;byline=0&amp;portrait=0" frameborder="0" webkitallowfullscreen mozallowfullscreen allowfullscreen></iframe>
</div>
</div>

View File

@ -5,3 +5,4 @@
<h2 class="sub">2015-7-18</h2>
<h2 class="sub">Philip Monk</h2>
</div>