Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
curry
curry-frontend
Commits
8cc51bce
Commit
8cc51bce
authored
Oct 21, 2014
by
Björn Peemöller
Browse files
Renamed currydoc.css to currysource.css
parent
6a3c2e5b
Changes
3
Hide whitespace changes
Inline
Side-by-side
curry-frontend.cabal
View file @
8cc51bce
...
...
@@ -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
View file @
8cc51bce
/* 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
View file @
8cc51bce
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment