@@ -114,15 +114,15 @@ (define (html$-note-listing-full pagenode note-id title-html-flow date contents [author default-authorname] [author-url ""]) (define author-part (cond [(non-empty-string? author-url) ◊string-append{
- —◊|author| + —◊|author|
}] [else ◊string-append{
- —◊|author| + —◊|author|
}])) (define maybe-author-class? (cond [(string=? author default-authorname) "by-proprietor"] [else ""])) @@ -148,14 +148,14 @@
◊contents
- —◊|author| + —◊|author|
}) (define (html$-notes-section note-htmls) ◊string-append{

Further Notes

◊(apply string-append note-htmls)
})