Index: crystalize.rkt ================================================================== --- crystalize.rkt +++ crystalize.rkt @@ -319,11 +319,11 @@ (define author (maybe-attr 'author attrs default-authorname)) (define note-id (build-note-id note-tx)) (define title-html-flow (html$-note-title pagenode parent-title-plain)) (define author-url (maybe-attr 'author-url attrs)) (define-values (disp-mark disp-verb) (disposition-values disposition-attr)) - (define content-html (html$-note-contents disp-mark (get-elements note-tx))) + (define content-html (html$-note-contents disp-mark disp-verb (get-elements note-tx))) (define listing-full-html (html$-note-listing-full pagenode note-id title-html-flow note-date content-html author author-url)) (define note-record (list pagenode Index: snippets-html.rkt ================================================================== --- snippets-html.rkt +++ snippets-html.rkt @@ -84,14 +84,17 @@ (define (html$-note-title pagenode parent-title) (format "Re: ~a" pagenode parent-title)) -(define (html$-note-contents disposition-mark elems) +(define (html$-note-contents disposition-mark disposition-verb elems) (define disposition (cond [(non-empty-string? disposition-mark) - `(span [[class "disposition-mark"]] ,disposition-mark)] + `(abbr [[class "disposition-mark-in-note"] + [title ,(string-append "The original article is herewith considered " + disposition-verb)]] + ,disposition-mark)] [else ""])) (define body-elems (cond [(and (block-txexpr? (car elems)) (non-empty-string? disposition-mark)) (define-values (first-tag first-attrs first-elems) (txexpr->values (car elems))) Index: web-extra/martin.css.pp ================================================================== --- web-extra/martin.css.pp +++ web-extra/martin.css.pp @@ -595,10 +595,19 @@ color: ◊color-xrefmark; position: relative; top: -0.5em; font-size: 0.83em; } + + .disposition-mark-in-note { + background: ◊color-xrefmark; + color: white; + border-radius: 0.08em; + padding: 0 0.1em; + margin: 0 0.4em 0 0; + text-decoration: none !important; + } /* ******* (Mobile first) Journal View styling ******* */ section.content-block {