suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

more mzc scribblings; scribbled HTML layout tweaks

Browse Source 
svn: r8335

original commit: e3af8a5a5254d35bdcc706916bbeb79e72ac3ecf
This commit is contained in:
Matthew Flatt 2008-01-15 14:20:49 +00:00
parent ac6aeb38fe
commit 0d52905593
2 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/scribble/html-render.ss
View File

@ -277,7 +277,8 @@
flows))) flows)))
(table-flowss table))))]) (table-flowss table))))])
(apply append (map flow-element-targets (flow-paragraphs (part-flow d))))) (apply append (map flow-element-targets (flow-paragraphs (part-flow d)))))
(map flatten (part-parts d)))))]) (map flatten (part-parts d)))))]
[any-parts? (ormap part? ps)])
(if (null? ps) (if (null? ps)
null null
`((div ((class "tocsub")) `((div ((class "tocsub"))
@ -303,7 +304,9 @@
(format "#~a" (anchor-name (tag-key (target-element-tag p) ri))))) (format "#~a" (anchor-name (tag-key (target-element-tag p) ri)))))
(class ,(if (part? p) (class ,(if (part? p)
"tocsubseclink" "tocsubseclink"
"tocsublink"))) (if any-parts?
"tocsubnonseclink"
"tocsublink"))))
,@(if (part? p) ,@(if (part? p)
(render-content (or (part-title-content p) '("???")) d ri) (render-content (or (part-title-content p) '("???")) d ri)
(render-content (element-content p) d ri))))))))) (render-content (element-content p) d ri)))))))))

8
collects/scribble/scribble.css
View File

@ -137,7 +137,8 @@ font-weight: bold;
.tocsub { .tocsub {
text-align: left; text-align: left;
background-color: #DCF5F5; margin-top: 0.5em;
background-color: #F5F5F5;
} }
.tocviewtitle { .tocviewtitle {
@ -182,6 +183,11 @@ font-weight: bold;
text-decoration: none; text-decoration: none;
} }
.tocsubnonseclink {
text-decoration: none;
padding-left: 0.5em;
}
.tocsubtitle { .tocsubtitle {
font-size: 80%; font-size: 80%;
font-style: italic; font-style: italic;