Commits

dp wiz  committed 1875fb2

tinies

  • Participants
  • Parent commits 406ff44

Comments (0)

Files changed (1)

File Layout/Bootstrap/Widgets.hs

 iconW :: T.Text -> Html
 iconW glyph = H.i ! A.class_ iconClass $ mempty
   where iconClass = toValue $ "icon-" ++ T.unpack glyph ++ "icon-white"
+
+-- Misc
+
+well :: Html -> Html
+well body = H.div ! A.class_ "well" $ body
+
+closeIcon :: Html
+closeIcon = H.a ! A.class_ "close" $ "×"