11-- | Definition of HTML attributes
2- module Flame.HTML.Attribute.Internal (class ToClassList, ToBooleanProperty, ToIntAttribute, ToNumberAttribute, ToStringAttribute, accentHeight, accept, acceptCharset, accessKey, accumulate, action, additive, align, alignmentBaseline, alt, ascent, autocomplete, autofocus, autoplay, azimuth, baseFrequency, baseProfile, baselineShift, begin, bias, calcMode, charset, checked, class', clipPathAttr, clipPathUnits, clipRule, color, colorInterpolation, colorInterpolationFilters, colorProfileAttr, colorRendering, cols, colspan, content, contentEditable, contentScriptType, contentStyleType, contextmenu, controls, coords, createAttribute, createAttributeName, createAttributeType, createProperty, cursorAttr, cx, cy, d, datetime, default, diffuseConstant, dir, direction, disabled, display, divisor, dominantBaseline, download, downloadAs, draggable, dropzone, dur, dx, dy, edgeMode, elevation, enctype, end, externalResourcesRequired, fill, fillOpacity, fillRule, filterAttr, filterUnits, floodColor, floodOpacity, fontFamily, fontSize, fontSizeAdjust, fontStretch, fontStyle, fontVariant, fontWeight, for, fr, from, fx, fy, gradientTransform, gradientUnits, headers, height, hidden, href, hreflang, id, imageRendering, in', in2, isMap, itemprop, k1, k2, k3, k4, kernelMatrix, kernelUnitLength, kerning, keySplines, keyTimes, kind, lang, lengthAdjust, letterSpacing, lightingColor, limitingConeAngle, list, local, loop, manifest, markerEnd, markerHeight, markerMid, markerStart, markerUnits, markerWidth, maskAttr, maskContentUnits, maskUnits, max, maxlength, media, method, min, minlength, mode, multiple, name, noValidate, numOctaves, opacity, operator, order, overflow, overlinePosition, overlineThickness, paintOrder, pathLength, pattern, patternContentUnits, patternTransform, patternUnits, ping, placeholder, pointerEvents, points, pointsAtX, pointsAtY, pointsAtZ, poster, preload, preserveAlpha, preserveAspectRatio, primitiveUnits, pubdate, r, radius, readOnly, refX, refY, rel, repeatCount, repeatDur, required, requiredFeatures, restart, result, reversed, rows, rowspan, rx, ry, sandbox, scale, scope, seed, selected, shape, shapeRendering, size, specularConstant, specularExponent, spellcheck, src, srcdoc, srclang, start, stdDeviation, step, stitchTiles, stopColor, stopOpacity, strikethroughPosition, strikethroughThickness, stroke, strokeDasharray, strokeDashoffset, strokeLinecap, strokeLinejoin, strokeMiterlimit, strokeOpacity, strokeWidth, style, styleAttr, surfaceScale, tabindex, target, targetX, targetY, textAnchor, textDecoration, textLength, textRendering, title, to, transform, type', underlinePosition, underlineThickness, useMap, value, values, vectorEffect, version, viewBox, visibility, width, wordSpacing, wrap, writingMode, x, x1, x2, xChannelSelector, y, y1, y2, yChannelSelector) where
2+ module Flame.HTML.Attribute.Internal (class ToClassList, ToBooleanAttribute, ToIntAttribute, ToNumberAttribute, ToStringAttribute, accentHeight, accept, acceptCharset, accessKey, accumulate, action, additive, align, alignmentBaseline, alt, ascent, autocomplete, autofocus, autoplay, azimuth, baseFrequency, baseProfile, baselineShift, begin, bias, calcMode, charset, checked, class', clipPathAttr, clipPathUnits, clipRule, color, colorInterpolation, colorInterpolationFilters, colorProfileAttr, colorRendering, cols, colspan, content, contentEditable, contentScriptType, contentStyleType, contextmenu, controls, coords, createAttribute, createAttributeName, createAttributeType, createProperty, cursorAttr, cx, cy, d, datetime, default, diffuseConstant, dir, direction, disabled, display, divisor, dominantBaseline, download, downloadAs, draggable, dropzone, dur, dx, dy, edgeMode, elevation, enctype, end, externalResourcesRequired, fill, fillOpacity, fillRule, filterAttr, filterUnits, floodColor, floodOpacity, fontFamily, fontSize, fontSizeAdjust, fontStretch, fontStyle, fontVariant, fontWeight, for, fr, from, fx, fy, gradientTransform, gradientUnits, headers, height, hidden, href, hreflang, id, imageRendering, in', in2, isMap, itemprop, k1, k2, k3, k4, kernelMatrix, kernelUnitLength, kerning, keySplines, keyTimes, kind, lang, lengthAdjust, letterSpacing, lightingColor, limitingConeAngle, list, local, loop, manifest, markerEnd, markerHeight, markerMid, markerStart, markerUnits, markerWidth, maskAttr, maskContentUnits, maskUnits, max, maxlength, media, method, min, minlength, mode, multiple, name, noValidate, numOctaves, opacity, operator, order, overflow, overlinePosition, overlineThickness, paintOrder, pathLength, pattern, patternContentUnits, patternTransform, patternUnits, ping, placeholder, pointerEvents, points, pointsAtX, pointsAtY, pointsAtZ, poster, preload, preserveAlpha, preserveAspectRatio, primitiveUnits, pubdate, r, radius, readOnly, refX, refY, rel, repeatCount, repeatDur, required, requiredFeatures, restart, result, reversed, rows, rowspan, rx, ry, sandbox, scale, scope, seed, selected, shape, shapeRendering, size, specularConstant, specularExponent, spellcheck, src, srcdoc, srclang, start, stdDeviation, step, stitchTiles, stopColor, stopOpacity, strikethroughPosition, strikethroughThickness, stroke, strokeDasharray, strokeDashoffset, strokeLinecap, strokeLinejoin, strokeMiterlimit, strokeOpacity, strokeWidth, style, styleAttr, surfaceScale, tabindex, target, targetX, targetY, textAnchor, textDecoration, textLength, textRendering, title, to, transform, type', underlinePosition, underlineThickness, useMap, value, values, vectorEffect, version, viewBox, visibility, width, wordSpacing, wrap, writingMode, x, x1, x2, xChannelSelector, y, y1, y2, yChannelSelector, innerHTML) where
33
44import Data.Array as DA
55import Data.Either as DE
@@ -17,7 +17,7 @@ type ToStringAttribute = ToNodeData String
1717
1818type ToIntAttribute = ToNodeData Int
1919
20- type ToBooleanProperty = ToNodeData Boolean
20+ type ToBooleanAttribute = ToNodeData Boolean
2121
2222type ToNumberAttribute = ToNodeData Number
2323
@@ -73,6 +73,9 @@ caseify name'
7373id :: ToStringAttribute
7474id = createProperty " id"
7575
76+ innerHTML :: ToStringAttribute
77+ innerHTML = createProperty " innerHTML"
78+
7679content :: ToStringAttribute
7780content = createProperty " content"
7881
@@ -742,62 +745,62 @@ version = createAttribute "version" <<< show
742745numOctaves :: ToIntAttribute
743746numOctaves = createAttribute " numOctaves" <<< show
744747
745- autocomplete :: ToBooleanProperty
748+ autocomplete :: ToBooleanAttribute
746749autocomplete = createProperty " autocomplete" <<< booleanToFalsyString
747750
748- autofocus :: ToBooleanProperty
751+ autofocus :: ToBooleanAttribute
749752autofocus = createProperty " autofocus" <<< booleanToFalsyString
750753
751- autoplay :: ToBooleanProperty
754+ autoplay :: ToBooleanAttribute
752755autoplay = createProperty " autoplay" <<< booleanToFalsyString
753756
754- checked :: ToBooleanProperty
757+ checked :: ToBooleanAttribute
755758checked = createProperty " checked" <<< booleanToFalsyString
756759
757- contentEditable :: ToBooleanProperty
760+ contentEditable :: ToBooleanAttribute
758761contentEditable = createProperty " contentEditable" <<< booleanToFalsyString
759762
760- controls :: ToBooleanProperty
763+ controls :: ToBooleanAttribute
761764controls = createProperty " controls" <<< booleanToFalsyString
762765
763- default :: ToBooleanProperty
766+ default :: ToBooleanAttribute
764767default = createProperty " default" <<< booleanToFalsyString
765768
766- disabled :: ToBooleanProperty
769+ disabled :: ToBooleanAttribute
767770disabled = createProperty " disabled" <<< booleanToFalsyString
768771
769- hidden :: ToBooleanProperty
772+ hidden :: ToBooleanAttribute
770773hidden = createProperty " hidden" <<< booleanToFalsyString
771774
772- isMap :: ToBooleanProperty
775+ isMap :: ToBooleanAttribute
773776isMap = createProperty " isMap" <<< booleanToFalsyString
774777
775- loop :: ToBooleanProperty
778+ loop :: ToBooleanAttribute
776779loop = createProperty " loop" <<< booleanToFalsyString
777780
778- multiple :: ToBooleanProperty
781+ multiple :: ToBooleanAttribute
779782multiple = createProperty " multiple" <<< booleanToFalsyString
780783
781- noValidate :: ToBooleanProperty
784+ noValidate :: ToBooleanAttribute
782785noValidate = createProperty " noValidate" <<< booleanToFalsyString
783786
784- readOnly :: ToBooleanProperty
787+ readOnly :: ToBooleanAttribute
785788readOnly = createProperty " readOnly" <<< booleanToFalsyString
786789
787- required :: ToBooleanProperty
790+ required :: ToBooleanAttribute
788791required = createProperty " required" <<< booleanToFalsyString
789792
790- reversed :: ToBooleanProperty
793+ reversed :: ToBooleanAttribute
791794reversed = createProperty " reversed" <<< booleanToFalsyString
792795
793- selected :: ToBooleanProperty
796+ selected :: ToBooleanAttribute
794797selected = createProperty " selected" <<< booleanToFalsyString
795798
796- spellcheck :: ToBooleanProperty
799+ spellcheck :: ToBooleanAttribute
797800spellcheck = createProperty " spellcheck" <<< booleanToFalsyString
798801
799- externalResourcesRequired :: ToBooleanProperty
802+ externalResourcesRequired :: ToBooleanAttribute
800803externalResourcesRequired = createProperty " externalResourcesRequired" <<< booleanToFalsyString
801804
802- preserveAlpha :: ToBooleanProperty
805+ preserveAlpha :: ToBooleanAttribute
803806preserveAlpha = createProperty " preserveAlpha" <<< booleanToFalsyString
0 commit comments