@@ -87,7 +87,7 @@ data Opt = Opt
8787 , optReader :: String -- ^ Reader format
8888 , optWriter :: String -- ^ Writer format
8989 , optParseRaw :: Bool -- ^ Parse unconvertable HTML and TeX
90− , optCSS :: String -- ^ CSS file to link to
90+ , optCSS :: [String] -- ^ CSS file to link to
9191 , optTableOfContents :: Bool -- ^ Include table of contents
9292 , optIncludeInHeader :: String -- ^ File to include in header
9393 , optIncludeBeforeBody :: String -- ^ File to include at top of body
@@ -116,7 +116,7 @@ defaultOpts = Opt
116116 , optReader = "" -- null for default reader
117117 , optWriter = "" -- null for default writer
118118 , optParseRaw = False
119− , optCSS = ""
119+ , optCSS = []
120120 , optTableOfContents = False
121121 , optIncludeInHeader = ""
122122 , optIncludeBeforeBody = ""
@@ -240,8 +240,10 @@ options =
240240
241241 , Option "c" ["css"]
242242 (ReqArg
243− (\arg opt -> return opt { optCSS = arg,
244− optStandalone = True })
243+ (\arg opt -> do
244+ let old = optCSS opt
245+ return opt { optCSS = old ++ [arg],
246+ optStandalone = True })
245247 "CSS")
246248 "" -- "Link to CSS style sheet"
247249
@@ -492,10 +494,12 @@ main = do
492494 ["latex", "context"],
493495 stateColumns = columns,
494496 stateStrict = strict }
495− let csslink = if (css == "")
496− then ""
497− else "<link rel=\"stylesheet\" href=\"" ++ css ++
498− "\" type=\"text/css\" media=\"all\" />\n"
497+ let csslink = if null css
498+ then ""
499+ else concatMap
500+ (\f -> "<link rel=\"stylesheet\" href=\"" ++
501+ f ++ "\" type=\"text/css\" media=\"all\" />\n")
502+ css
499503 let header = (if (customHeader == "DEFAULT")
500504 then defaultHeader
501505 else customHeader) ++ csslink ++ includeHeader