Minimal styles for sidebar ToC (#4)

data/cleandoc-default/css/style.css

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

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