Commit 8cc51bce authored by Björn Peemöller 's avatar Björn Peemöller

Renamed currydoc.css to currysource.css

parent 6a3c2e5b
......@@ -21,7 +21,9 @@ Build-Type: Simple
Stability: experimental
Extra-Source-Files: LIESMICH
Data-Files: src/Html/currydoc.css
Data-Dir: data
Data-Files: currysource.css
Flag network-uri
description: Get Network.URI from the network-uri package
......
/* Use always white background */
body {
background: white;
color: black;
background : white;
color : black;
font-family: monospace;
}
/* Show hyperlinks without underscore */
/* Show hyperlinks without text decoration, but in light yellow */
a:visited, a:link, a:active {
text-decoration: none;
background: lightyellow;
background : lightyellow;
}
/* Line numbers */
.linenumbers {
width : 40px;
text-align : right;
......@@ -19,10 +20,12 @@ a:visited, a:link, a:active {
border-right : 1px solid grey;
}
/* Source code */
.sourcecode {
padding-left: 10px;
}
/* Code highlighting */
.pragma { color : green }
.comment { color : green }
.keyword { color : blue }
......
......@@ -34,6 +34,10 @@ import CompilerOpts (Options (..), WarnOpts (..))
import CurryBuilder (buildCurry)
import Modules (loadAndCheckModule)
import Transformations (qual)
import Paths_curry_frontend (getDataFileName)
cssFile :: FilePath
cssFile = "currysource.css"
-- translate source file into HTML file with syntaxcoloring
-- @param sourcefilename
......@@ -97,7 +101,7 @@ program2html m codes = unlines
]
where
titleHtml = "Module " ++ show m
styleLink = makeTopPath m </> "currydoc.css"
styleLink = makeTopPath m </> cssFile
lineHtml = unlines $ map show [1 .. length (lines codeHtml)]
codeHtml = concat $ snd $ mapAccumL (code2html m) [] codes
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment