Renamed currydoc.css to currysource.css

curry-frontend.cabal

@@ -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

src/Html/currydoc.css → data/currysource.css

 /* 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      }

src/Html/CurryHtml.hs

@@ -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