blob: dc5c0a2d95b289aed8c952a08955c137241d7df7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
module Text.XHtml.Bootstrap where
import Text.XHtml
-- # ought to be for Id, something else for class ...
(#) :: ADDATTRS a => a -> String -> a
e # theClass = e ! [strAttr "class" theClass]
bsButton :: HTML a => String -> String -> a -> Html
bsButton id theClass label = anchor ! [ strAttr "id" id
, strAttr "class" theClass]
<< label
|