@@ -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{
}]
[else ◊string-append{
}]))
+ (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{
-