diff options
| author | Mark Lentczner <markl@glyphic.com> | 2010-07-20 17:25:52 +0000 |
|---|---|---|
| committer | Mark Lentczner <markl@glyphic.com> | 2010-07-20 17:25:52 +0000 |
| commit | 248b76b4dc77dbbdbb0f7a2081188c81ee35ca77 (patch) | |
| tree | 6d97ffa87c643532dd31e2e223b9ab3cc947ffba /src/Haddock/Backends/Xhtml/Utils.hs | |
| parent | 87b91ac86d97fdc0297e10639d491bbe0dd33571 (diff) | |
move CSS Theme functions into Themes.hs
Diffstat (limited to 'src/Haddock/Backends/Xhtml/Utils.hs')
| -rw-r--r-- | src/Haddock/Backends/Xhtml/Utils.hs | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/src/Haddock/Backends/Xhtml/Utils.hs b/src/Haddock/Backends/Xhtml/Utils.hs index 443cb459..92b4afe3 100644 --- a/src/Haddock/Backends/Xhtml/Utils.hs +++ b/src/Haddock/Backends/Xhtml/Utils.hs @@ -23,9 +23,9 @@ module Haddock.Backends.Xhtml.Utils ( arrow, comma, dcolon, dot, darrow, equals, forallSymbol, quote, hsep, - + collapsebutton, collapseId, - + cssFiles, styleSheet, stylePickers, styleMenu ) where @@ -202,11 +202,9 @@ cssThemes = [ ("Snappy", "shaddock.css") ] - cssFiles :: [String] cssFiles = map snd cssThemes - styleSheet :: Html styleSheet = toHtml $ zipWith mkLink cssThemes rels where @@ -214,15 +212,13 @@ styleSheet = toHtml $ zipWith mkLink cssThemes rels mkLink (aTitle, aFile) aRel = (thelink ! [href aFile, rel aRel, thetype "text/css", XHtml.title aTitle]) noHtml - stylePickers :: [Html] stylePickers = map mkPicker cssThemes where - mkPicker (aTitle, aFile) = + mkPicker (aTitle, aFile) = let js = "setActiveStyleSheet('" ++ aFile ++ "'); return false;" in anchor ! [href "#", onclick js] << aTitle - styleMenu :: Html styleMenu = thediv ! [identifier "style-menu-holder"] << [ anchor ! [ href "#", onclick js ] << "Style\9662", @@ -230,4 +226,4 @@ styleMenu = thediv ! [identifier "style-menu-holder"] << [ ] where js = "styleMenu(); return false;" - +
\ No newline at end of file |