journalWidget :: MonadWidget t m => m (Event t (Datum c q a e s))
journalWidget = elClass "div" "journalItem" $ mdo
  let attrs = constDyn $ fromList $ zip ["class"] ["journalItem"]
  let resetText = "" <$ b
  text "Journal"
  t <- textArea $ def & textAreaConfig_attributes .~ attrs & textAreaConfig_setValue .~ resetText
  b <- button "Save"
  return $ Reflection <$> tag (current $ _textArea_value t) b
journalWidget :: MonadWidget t m => m (Event t (Datum c q a e s))
journalWidget = elClass "div" "journalItem" $ mdo
  let attrs = constDyn $ fromList $ zip ["class"] ["journalItem"]
  let resetText = "" <$ b
  text "Journal"
  t <- textArea $ def & textAreaConfig_attributes .~ attrs & textAreaConfig_setValue .~ resetText
  b <- button "Save"
  return $ Reflection <$> tag (current $ _textArea_value t) b
journalWidget = elClass "div" "journalItem" $ mdo
  let attrs = constDyn $ fromList $ zip ["class"] ["journalItem"]
  let resetText = "" <$ b
  text "Journal"
  t <- textArea $ def & textAreaConfig_attributes .~ attrs & textAreaConfig_setValue .~ resetText
  b <- button "Save"
  return $ Reflection <$> tag (current $ _textArea_value t) b