@@ -129,19 +129,24 @@ (define (html$-note-in-article id date contents author author-url) (define maybe-author-class? (cond [(or (string=? author default-authorname) (string=? author "")) "by-proprietor"] [else ""])) + (define author-part + (cond [(non-empty-string? author-url) + ◊string-append{◊|author|}] + [else + ◊string-append{◊|author|}])) ◊string-append{

◊contents
- —◊|author| + —◊author-part
}) (define (html$-notes-section note-htmls) ◊string-append{