----------------------


-- | Input-element is interactive  if the type-attribute is not in hidden
-- state).
-- globals; accept; alt; autocomplete; autofocus; checked; dirname; disabled;
-- form; formaction; formenctype; formmethod; formnovalidate; formtarget;
-- height; inputmode; list; max; maxlength; min; minlength; multiple; name;
-- pattern; placeholder; readonly; required; size; src; step; type; value;
-- width
--
data Input = Input
  { _inputGlobals        ∷ Maybe A.Globals        -- 1.
  , _inputAccept         ∷ Maybe A.Accept         -- 2.
  , _inputAlt            ∷ Maybe A.Alt_           -- 3.
  , _inputAutoComplete   ∷ Maybe A.AutoComplete   -- 4.
  , _inputAutoFocus      ∷ Maybe A.AutoFocus      -- 5.
  , _inputChecked        ∷
embedCD ∷ (DomBuilder t m, PostBuild t m) ⇒ Dynamic t Embed → m (Event t ())
embedCD bDyn = do
  (e,_) ← elDynAttr' "embed" (A.attrMap <$> bDyn) blank
  return $ domEvent Click e




------------------------------------------------------------------------------
------------------------------------------------------------------------------


-- | Input-element is interactive  if the type-attribute is not in hidden
-- state).
-- globals; accept; alt; autocomplete; autofocus; checked; dirname; disabled;
-- form; formaction; formenctype; formmethod; formnovalidate; formtarget;
-- height; inputmode; list; max; maxlength; min; minlength; multiple; name;
-- pattern; placeholder; readonly; required; size; src; step; type; value;
-- width
--
embedCD bDyn = do
  (e,_) ← elDynAttr' "embed" (A.attrMap <$> bDyn) blank
  return $ domEvent Click e




------------------------------------------------------------------------------
------------------------------------------------------------------------------


-- | Input-element is interactive  if the type-attribute is not in hidden
-- state).
-- globals; accept; alt; autocomplete; autofocus; checked; dirname; disabled;
-- form; formaction; formenctype; formmethod; formnovalidate; formtarget;
-- height; inputmode; list; max; maxlength; min; minlength; multiple; name;
-- pattern; placeholder; readonly; required; size; src; step; type; value;
-- width
--