Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
C
clean-doc
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
6
Issues
6
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Camil Staps
clean-doc
Commits
9047951b
Verified
Commit
9047951b
authored
Oct 06, 2018
by
Camil Staps
🚀
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Minimal styles for sidebar ToC (
#4
)
parent
2aac5f28
Pipeline
#14661
failed with stage
in 55 seconds
Changes
2
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
21 additions
and
2 deletions
+21
-2
data/cleandoc-default/css/style.css
data/cleandoc-default/css/style.css
+14
-1
src/Clean/Doc/ModuleCollection/HTML.icl
src/Clean/Doc/ModuleCollection/HTML.icl
+7
-1
No files found.
data/cleandoc-default/css/style.css
View file @
9047951b
...
...
@@ -51,7 +51,20 @@ a.hidden {
}
#toc
ul
{
padding-left
:
1.5em
;
list-style-type
:
none
;
padding-left
:
0
;
}
#toc
a
{
color
:
inherit
;
text-decoration
:
none
;
}
#toc
a
:hover
{
text-decoration
:
underline
;
}
#toc
a
.active
{
font-weight
:
bold
;
text-decoration
:
none
;
}
#search
{
...
...
src/Clean/Doc/ModuleCollection/HTML.icl
View file @
9047951b
...
...
@@ -73,7 +73,13 @@ where
sidebarLink
::
!
DescribedModule
->
HtmlTag
sidebarLink
dm
=
LiTag
[]
[
ATag
[
HrefAttr
(
relativePath
(
"mod"
</>
dm
.
name
+++
".html"
))]
[
Text
dm
.
name
]]
[
ATag
(
catMaybes
[
Just
$
HrefAttr
(
relativePath
thispath
)
,
if
(
fp
==
thispath
)
(
Just
$
ClassAttr
"active"
)
Nothing
])
[
Text
dm
.
name
]
]
where
thispath
=
"mod"
</>
dm
.
name
+++
".html"
moduleFile
::
!
DescribedModule
->
(
FilePath
,
HtmlTag
)
moduleFile
m
=
(
"mod"
</>
m
.
name
+++
".html"
,
html
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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