@@ -108,24 +108,27 @@ (cons (txexpr 'p first-attrs (cons disposition first-elems)) (cdr elems))] [else (cons disposition elems)])) (string-append* (map ->html body-elems))) -(define (html$-note-listing-full pagenode note-id title-html-flow date author author-url contents) +(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) + (cond [(non-empty-string? author-url) ◊string-append{
◊|author|
}] [else ◊string-append{
- —◊|default-authorname| + —◊|author|
}])) + (define maybe-author-class? + (cond [(string=? author default-authorname) "by-proprietor"] + [else ""])) ◊string-append{ -
+

◊|title-html-flow|

@@ -132,13 +135,16 @@
◊|contents|
◊author-part
}) -(define (html$-note-in-article id date author author-url contents) - ◊string-append{ -
+(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 ""])) + + ◊string-append{