module Reflex.Dom.Contrib.Widgets.Svg where
import Data.Map (Map)
import qualified Data.Map as Map
import Reflex
import Reflex.Dom
svgDynAttr' :: forall t m a. MonadWidget t m => String -> Dynamic t (Map String String) -> m a -> m (El t, a)
svgDynAttr' = elDynAttrNS' (Just "http://www.w3.org/2000/svg")
svgDynAttr :: forall t m a. MonadWidget t m => String -> Dynamic t (Map String String) -> m a -> m a
svgDynAttr elementTag attrs child = snd <$> svgDynAttr' elementTag attrs child
svgAttr' :: forall t m a. MonadWidget t m => String -> Map String String -> m a -> m (El t, a)
svgAttr' elementTag attrs child = svgDynAttr' elementTag (constDyn attrs) child
svgAttr :: forall t m a. MonadWidget t m => String -> Map String String -> m a -> m a
svgAttr elementTag attrs child = svgDynAttr elementTag (constDyn attrs) child
svg' :: forall t m a. MonadWidget t m => String -> m a -> m (El t, a)
svg' elementTag child = svgAttr' elementTag (Map.empty :: AttributeMap) child
svg :: forall t m a. MonadWidget t m => String -> m a -> m a
svg elementTag child = svgAttr elementTag Map.empty child
svgClass :: forall t m a. MonadWidget t m => String -> String -> m a -> m a
svgClass elementTag c child = svgAttr elementTag ("class" =: c) child