mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

add icons

Browse source
This commit is contained in:
Joey Hess 2012-07-31 03:10:16 -04:00
parent f0a88e1203
commit e9d9d9d5ea
6 changed files with 14 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Assistant/WebApp/SideBar.hs
View file

@ -49,15 +49,16 @@ sideBarDisplay = do
(alertBlockDisplay alert)
(bootstrapclass $ alertClass alert)
(alertHeader alert)
(alertIcon alert)
$ case alertMessage alert of
StringAlert s -> [whamlet|#{s}|]
WidgetAlert w -> w alert
rendermessage msg = addalert firstAlertId True False
"alert-info" Nothing [whamlet|#{msg}|]
"alert-info" Nothing (Just "exclamation-sign") [whamlet|#{msg}|]
addalert :: AlertId -> Bool -> Bool -> Text -> Maybe String -> Widget -> Widget
addalert i closable block divclass heading widget = do
addalert :: AlertId -> Bool -> Bool -> Text -> Maybe String -> Maybe String -> Widget -> Widget
addalert i closable block divclass heading icon widget = do
let alertid = show i
let closealert = CloseAlert i
$(widgetFile "sidebar/alert")