1. dp wiz
  2. layout-bootstrap

Commits

dp wiz  committed 6fa3a25

more simple stuff

  • Participants
  • Parent commits d8065fe
  • Branches default

Comments (0)

Files changed (1)

File Layout/Bootstrap/Widgets.hs

View file
  • Ignore whitespace
 import qualified Text.Blaze.Html5 as H
 import qualified Text.Blaze.Html5.Attributes as A
 import qualified Data.Text as T
+import Data.Monoid (mempty)
 
 -- Forms
 
 
 offspan :: Int -> Int -> Html -> Html
 offspan off size body = H.div ! A.class_ (toValue $ "span" ++ show size ++ " offset" ++ show off) $ body
+
+-- Base CSS
+
+blockQuote_ :: T.Text -> T.Text -> T.Text -> Html -> Html
+blockQuote_ author cite pull body = H.blockquote ! A.cite (toValue cite) $ body >> (H.small $ toHtml author) 
+
+-- Icons
+
+icon :: T.Text -> Html
+icon glyph = H.i ! A.class_ iconClass $ mempty
+  where iconClass = toValue $ "icon-" ++ T.unpack glyph
+
+iconW :: T.Text -> Html
+iconW glyph = H.i ! A.class_ iconClass $ mempty
+  where iconClass = toValue $ "icon-" ++ T.unpack glyph ++ "icon-white"