From 1aa5ee611c0dab8201d282da38c916416ee48eb1 Mon Sep 17 00:00:00 2001 From: Mark Lentczner Date: Wed, 21 Jul 2010 17:43:35 +0000 Subject: merge with David's source cleanups --- src/Haddock/Backends/Xhtml/Utils.hs | 40 ++----------------------------------- 1 file changed, 2 insertions(+), 38 deletions(-) (limited to 'src/Haddock') diff --git a/src/Haddock/Backends/Xhtml/Utils.hs b/src/Haddock/Backends/Xhtml/Utils.hs index 92b4afe3..a914d2e8 100644 --- a/src/Haddock/Backends/Xhtml/Utils.hs +++ b/src/Haddock/Backends/Xhtml/Utils.hs @@ -23,10 +23,9 @@ module Haddock.Backends.Xhtml.Utils ( arrow, comma, dcolon, dot, darrow, equals, forallSymbol, quote, hsep, - + + onclick, collapsebutton, collapseId, - - cssFiles, styleSheet, stylePickers, styleMenu ) where @@ -192,38 +191,3 @@ collapsebutton id_ = -- the ECMA script string delimiter used in collapsebutton above. collapseId :: Name -> String collapseId nm = "i:" ++ escapeStr (getOccString nm) - - --- Standard set of style sheets, first is the preferred -cssThemes :: [(String, String)] -cssThemes = [ - ("Classic", "xhaddock.css"), - ("Tibbe", "thaddock.css"), - ("Snappy", "shaddock.css") - ] - -cssFiles :: [String] -cssFiles = map snd cssThemes - -styleSheet :: Html -styleSheet = toHtml $ zipWith mkLink cssThemes rels - where - rels = ("stylesheet" : repeat "alternate stylesheet") - 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) = - 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", - unordList stylePickers ! [ identifier "style-menu", theclass "hide" ] - ] - where - js = "styleMenu(); return false;" - \ No newline at end of file -- cgit v1.2.3