Text.Smolder.Markup

data MarkupM e a

Representation of a markup node.

This is either an Element, which maps to a DOM element, a Content node, which maps to a DOM text node, or Empty, which maps to an empty NodeList.

Constructors

• Element NS String (Markup e) (CatList Attr) (CatList (EventHandler e)) a
• Content String a
• Empty a

Instances

• Bifunctor MarkupM
• Attributable (Free (MarkupM e) Unit)
• Attributable (Free (MarkupM e) Unit -> Free (MarkupM e) Unit)
• Eventable e (Free (MarkupM e) Unit)
• Eventable e (Free (MarkupM e) Unit -> Free (MarkupM e) Unit)

type Markup e = Free (MarkupM e) Unit

The type of a sequence of markup nodes.

data NS

Constructors

• HTMLns
• SVGns

data Attr

Constructors

• Attr String String

data EventHandler e

Constructors

• EventHandler String e

Instances

• Functor EventHandler

mapEvent :: forall r l. (l -> r) -> (Free (MarkupM l)) ~> (Free (MarkupM r))

Change the event type of a markup sequence.

parent :: forall e. NS -> String -> Markup e -> Markup e

Create a named parent node with a sequence of children.

leaf :: forall e. NS -> String -> Markup e

Create a named leaf node.

text :: forall e. String -> Markup e

Create a text node.

empty :: forall e. Markup e

Used for empty nodes (without text or children)

data Attribute

Instances

• Semigroup Attribute
• Monoid Attribute

class Attributable a  where

Members

• with :: a -> Attribute -> a

  Add an attribute to a markup node.

Instances

• Attributable (Free (MarkupM e) Unit)
• Attributable (Free (MarkupM e) Unit -> Free (MarkupM e) Unit)

attribute :: String -> String -> Attribute

Create an attribute.

Operator alias for Text.Smolder.Markup.with (left-associative / precedence 4)

optionalWith :: forall h. Attributable h => h -> Boolean -> Attribute -> h

Add an attribute to a markup node only if the supplied boolean value is true.

Operator alias for Text.Smolder.Markup.optionalWith (left-associative / precedence 4)

newtype EventHandlers e

Constructors

• EventHandlers (CatList (EventHandler e))

Instances

• Semigroup (EventHandlers e)
• Monoid (EventHandlers e)

class Eventable e a | a -> e where

Members

• withEvent :: a -> EventHandlers e -> a

  Add an event handler to a markup node.

Instances

• Eventable e (Free (MarkupM e) Unit)
• Eventable e (Free (MarkupM e) Unit -> Free (MarkupM e) Unit)

on :: forall e. String -> e -> EventHandlers e

Construct an event handler for a named event.

Operator alias for Text.Smolder.Markup.withEvent (left-associative / precedence 4)