@@ -80,32 +80,25 @@ }] [else ""])) (define (html$-article-listing-short pagenode pubdate title) ◊string-append{ -
  • -
    ◊(ymd->english pubdate)
    -
    ◊|title|
    -
  • }) +
  • +
    ◊(ymd->english pubdate)
    +
    ◊|title|
    +
  • }) (define (html$-page-body-close) ◊string-append{ }) ;; Notes ;; -(define (html$-note-title author pagenode parent-title) - (define author-part - (cond [(and (non-empty-string? author) - (not (string-ci=? author default-authorname))) - (format "A note from ~a, " author)] - [else ""])) - (define article-part - (format "Re: ~a" - pagenode - parent-title)) - (string-append author-part article-part)) +(define (html$-note-title pagenode parent-title) + (format "Re: ~a" + pagenode + parent-title)) (define (html$-note-contents disposition-mark elems) (define-values (first-tag first-attrs first-elems) (txexpr->values (car elems))) (define disposition (cond [(non-empty-string? disposition-mark) @@ -128,18 +121,18 @@ }] [else ◊string-append{
    ◊|author|
    }])) - (define maybe-author-class? + (define maybe-author-class (cond [(string=? author default-authorname) "by-proprietor"] [else ""])) ◊string-append{ -
    -

    ◊|title-html-flow|

    -

    +

    +

    ◊|title-html-flow|

    +

    ◊|contents|
    ◊author-part