src/Lib/Dom/HA.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

(* Attribute creation *)

let id v = H.TextAttr ("id", v)

let class_ v = H.TextAttr ("class", v)

let viewBox v = H.TextAttr ("viewBox", v)

let d v = H.TextAttr ("d", v)

let type_ v = H.TextAttr ("type", v)

let min_ v = H.TextAttr ("min", v)

let value v = H.TextAttr ("value", v)

let for_ v = H.TextAttr ("for", v)

let style v = H.TextAttr ("style", v)

let href v = H.TextAttr ("href", v)

let autocomplete v = H.TextAttr ("autocomplete", v)