bootstrap3 glyphicons

This commit is contained in:
Sören Brunk 2014-04-18 01:58:27 +02:00
parent 23091cc318
commit d2b42c30ad
34 changed files with 71 additions and 71 deletions

View file

@ -27,7 +27,7 @@ import qualified Data.Map as M
gpgKeyDisplay :: KeyId -> Maybe UserId -> Widget
gpgKeyDisplay keyid userid = [whamlet|
<span title="key id #{keyid}">
<i .icon-user></i> #
<span .glyphicon .glyphicon-user></span> #
$maybe name <- userid
#{name}
$nothing

View file

@ -106,4 +106,4 @@ htmlIcon UpgradeIcon = bootstrapIcon "arrow-up"
htmlIcon ConnectionIcon = bootstrapIcon "signal"
bootstrapIcon :: Text -> Widget
bootstrapIcon name = [whamlet|<i .icon-#{name}></i>|]
bootstrapIcon name = [whamlet|<span .glyphicon .glyphicon-#{name}></span>|]