jsScript :: JSFunction () -> UI Element
jsScript f = do
  cd <- renderFn f
  script # type_ .= "text/javascript" #! cd
  where
  renderFn :: JSFunction a -> UI String
  renderFn = liftIO . JS.toCode

-- }}}

-- JSON {{{
jsScript :: JSFunction () -> UI Element
jsScript f = do
  cd <- renderFn f
  script # type_ .= "text/javascript" #! cd
  where
  renderFn :: JSFunction a -> UI String
  renderFn = liftIO . JS.toCode

-- }}}

-- JSON {{{
jsScript f = do
  cd <- renderFn f
  script # type_ .= "text/javascript" #! cd
  where
  renderFn :: JSFunction a -> UI String
  renderFn = liftIO . JS.toCode

-- }}}

-- JSON {{{