1 files changed, 416 insertions, 0 deletions
diff --git a/src/lustre/element/svg.gleam b/src/lustre/element/svg.gleam
new file mode 100644
index 0000000..a1fc0ce
--- /dev/null
+++ b/src/lustre/element/svg.gleam
@@ -0,0 +1,416 @@
+//// To read the full documentation for this module, please visit
+//// [https://pkg.hayleigh.dev/lustre/api/lustre/element/svg](https://pkg.hayleigh.dev/lustre/api/lustre/element/svg)
+
+// IMPORTS ---------------------------------------------------------------------
+
+import lustre/element.{Element, namespaced, text as inline_text}
+import lustre/attribute.{Attribute}
+
+// CONSTANTS -------------------------------------------------------------------
+
+const namespace = "http://www.w3.org/2000/svg"
+
+// The doc comments (and order) for functions in this module are taken from the
+// MDN Element reference:
+//
+//   https://developer.mozilla.org/en-US/docs/Web/SVG/Element
+//
+
+// SVG ELEMENTS: ANIMATION ELEMENTS --------------------------------------------
+
+///
+pub fn animate(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "animate", attrs, [])
+}
+
+///
+pub fn animate_motion(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "animateMotion", attrs, [])
+}
+
+///
+pub fn animate_transform(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "animateTransform", attrs, [])
+}
+
+///
+pub fn mpath(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "mpath", attrs, [])
+}
+
+///
+pub fn set(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "set", attrs, [])
+}
+
+// SVG ELEMENTS: BASIC SHAPES --------------------------------------------------
+
+///
+pub fn circle(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "circle", attrs, [])
+}
+
+///
+pub fn ellipse(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "ellipse", attrs, [])
+}
+
+///
+pub fn line(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "line", attrs, [])
+}
+
+///
+pub fn polygon(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "polygon", attrs, [])
+}
+
+///
+pub fn polyline(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "polyline", attrs, [])
+}
+
+///
+pub fn rect(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "rect", attrs, [])
+}
+
+// SVG ELEMENTS: CONTAINER ELEMENTS --------------------------------------------
+
+///
+pub fn a(
+  attrs: List(Attribute(msg)),
+  children: List(Element(msg)),
+) -> Element(msg) {
+  namespaced(namespace, "a", attrs, children)
+}
+
+///
+pub fn defs(
+  attrs: List(Attribute(msg)),
+  children: List(Element(msg)),
+) -> Element(msg) {
+  namespaced(namespace, "defs", attrs, children)
+}
+
+///
+pub fn g(
+  attrs: List(Attribute(msg)),
+  children: List(Element(msg)),
+) -> Element(msg) {
+  namespaced(namespace, "g", attrs, children)
+}
+
+///
+pub fn marker(
+  attrs: List(Attribute(msg)),
+  children: List(Element(msg)),
+) -> Element(msg) {
+  namespaced(namespace, "marker", attrs, children)
+}
+
+///
+pub fn mask(
+  attrs: List(Attribute(msg)),
+  children: List(Element(msg)),
+) -> Element(msg) {
+  namespaced(namespace, "mask", attrs, children)
+}
+
+///
+pub fn missing_glyph(
+  attrs: List(Attribute(msg)),
+  children: List(Element(msg)),
+) -> Element(msg) {
+  namespaced(namespace, "missing-glyph", attrs, children)
+}
+
+///
+pub fn pattern(
+  attrs: List(Attribute(msg)),
+  children: List(Element(msg)),
+) -> Element(msg) {
+  namespaced(namespace, "pattern", attrs, children)
+}
+
+///
+pub fn svg(
+  attrs: List(Attribute(msg)),
+  children: List(Element(msg)),
+) -> Element(msg) {
+  namespaced(namespace, "svg", attrs, children)
+}
+
+///
+pub fn switch(
+  attrs: List(Attribute(msg)),
+  children: List(Element(msg)),
+) -> Element(msg) {
+  namespaced(namespace, "switch", attrs, children)
+}
+
+///
+pub fn symbol(
+  attrs: List(Attribute(msg)),
+  children: List(Element(msg)),
+) -> Element(msg) {
+  namespaced(namespace, "symbol", attrs, children)
+}
+
+// SVG ELEMENTS: DESCRIPTIVE ELEMENTS ------------------------------------------
+
+///
+pub fn desc(
+  attrs: List(Attribute(msg)),
+  children: List(Element(msg)),
+) -> Element(msg) {
+  namespaced(namespace, "desc", attrs, children)
+}
+
+///
+pub fn metadata(
+  attrs: List(Attribute(msg)),
+  children: List(Element(msg)),
+) -> Element(msg) {
+  namespaced(namespace, "metadata", attrs, children)
+}
+
+///
+pub fn title(
+  attrs: List(Attribute(msg)),
+  children: List(Element(msg)),
+) -> Element(msg) {
+  namespaced(namespace, "title", attrs, children)
+}
+
+// SVG ELEMENTS: FILTER EFFECTS ------------------------------------------------
+
+///
+pub fn fe_blend(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "feBlend", attrs, [])
+}
+
+///
+pub fn fe_color_matrix(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "feColorMatrix", attrs, [])
+}
+
+///
+pub fn fe_component_transfer(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "feComponentTransfer", attrs, [])
+}
+
+///
+pub fn fe_composite(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "feComposite", attrs, [])
+}
+
+///
+pub fn fe_convolve_matrix(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "feConvolveMatrix", attrs, [])
+}
+
+///
+pub fn fe_diffuse_lighting(
+  attrs: List(Attribute(msg)),
+  children: List(Element(msg)),
+) -> Element(msg) {
+  namespaced(namespace, "feDiffuseLighting", attrs, children)
+}
+
+///
+pub fn fe_displacement_map(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "feDisplacementMap", attrs, [])
+}
+
+///
+pub fn fe_drop_shadow(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "feDropShadow", attrs, [])
+}
+
+///
+pub fn fe_flood(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "feFlood", attrs, [])
+}
+
+///
+pub fn fe_func_a(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "feFuncA", attrs, [])
+}
+
+///
+pub fn fe_func_b(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "feFuncB", attrs, [])
+}
+
+///
+pub fn fe_func_g(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "feFuncG", attrs, [])
+}
+
+///
+pub fn fe_func_r(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "feFuncR", attrs, [])
+}
+
+///
+pub fn fe_gaussian_blur(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "feGaussianBlur", attrs, [])
+}
+
+///
+pub fn fe_image(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "feImage", attrs, [])
+}
+
+///
+pub fn fe_merge(
+  attrs: List(Attribute(msg)),
+  children: List(Element(msg)),
+) -> Element(msg) {
+  namespaced(namespace, "feMerge", attrs, children)
+}
+
+///
+pub fn fe_merge_node(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "feMergeNode", attrs, [])
+}
+
+///
+pub fn fe_morphology(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "feMorphology", attrs, [])
+}
+
+///
+pub fn fe_offset(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "feOffset", attrs, [])
+}
+
+///
+pub fn fe_specular_lighting(
+  attrs: List(Attribute(msg)),
+  children: List(Element(msg)),
+) -> Element(msg) {
+  namespaced(namespace, "feSpecularLighting", attrs, children)
+}
+
+///
+pub fn fe_tile(
+  attrs: List(Attribute(msg)),
+  children: List(Element(msg)),
+) -> Element(msg) {
+  namespaced(namespace, "feTile", attrs, children)
+}
+
+///
+pub fn fe_turbulence(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "feTurbulence", attrs, [])
+}
+
+// SVG ELEMENTS: GRADIENT ELEMENTS ---------------------------------------------
+
+///
+pub fn linear_gradient(
+  attrs: List(Attribute(msg)),
+  children: List(Element(msg)),
+) -> Element(msg) {
+  namespaced(namespace, "linearGradient", attrs, children)
+}
+
+///
+pub fn radial_gradient(
+  attrs: List(Attribute(msg)),
+  children: List(Element(msg)),
+) -> Element(msg) {
+  namespaced(namespace, "radialGradient", attrs, children)
+}
+
+///
+pub fn stop(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "stop", attrs, [])
+}
+
+// SVG ELEMENTS: GRAPHICAL ELEMENTS --------------------------------------------
+
+///
+pub fn image(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "image", attrs, [])
+}
+
+///
+pub fn path(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "path", attrs, [])
+}
+
+///
+pub fn text(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "text", attrs, [])
+}
+
+///
+pub fn use_(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "use", attrs, [])
+}
+
+// SVG ELEMENTS: LIGHTING ELEMENTS ---------------------------------------------
+
+///
+pub fn fe_distant_light(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "feDistantLight", attrs, [])
+}
+
+///
+pub fn fe_point_light(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "fePointLight", attrs, [])
+}
+
+///
+pub fn fe_spot_light(attrs: List(Attribute(msg))) -> Element(msg) {
+  namespaced(namespace, "feSpotLight", attrs, [])
+}
+
+// SVG ELEMENTS: NEVER-RENDERED ELEMENTS ---------------------------------------
+
+///
+pub fn clip_path(
+  attrs: List(Attribute(msg)),
+  children: List(Element(msg)),
+) -> Element(msg) {
+  namespaced(namespace, "clipPath", attrs, children)
+}
+
+///
+pub fn script(attrs: List(Attribute(msg)), js: String) -> Element(msg) {
+  namespaced(namespace, "script", attrs, [inline_text(js)])
+}
+
+///
+pub fn style(attrs: List(Attribute(msg)), css: String) -> Element(msg) {
+  namespaced(namespace, "style", attrs, [inline_text(css)])
+}
+
+// SVG ELEMENTS: RENDERABLE ELEMENTS -------------------------------------------
+
+///
+pub fn foreign_object(
+  attrs: List(Attribute(msg)),
+  children: List(Element(msg)),
+) -> Element(msg) {
+  namespaced(namespace, "foreignObject", attrs, children)
+}
+
+///
+pub fn text_path(
+  attrs: List(Attribute(msg)),
+  children: List(Element(msg)),
+) -> Element(msg) {
+  namespaced(namespace, "textPath", attrs, children)
+}
+
+///
+pub fn tspan(
+  attrs: List(Attribute(msg)),
+  children: List(Element(msg)),
+) -> Element(msg) {
+  namespaced(namespace, "tspan", attrs, children)
+}