diff --git a/assets/css/screen.css b/assets/css/screen.css index 684bc01..5d8513d 100644 --- a/assets/css/screen.css +++ b/assets/css/screen.css @@ -353,28 +353,28 @@ details { display: none; } -.message span.line { +.message div.line { white-space: pre-wrap; font-family: monospace; display: block; } /* diff styles */ -.message .diff span.line.diff.file { +.message .diff div.line.diff.file { color: #005cc5; } -.message .diff span.line.diff.separator { +.message .diff div.line.diff.separator { color: #005cc5; } -.message .diff span.line.diff.addition { +.message .diff div.line.diff.addition { color: #22863a; background-color: #f0fff4; } -.message .diff span.line.diff.deletion { +.message .diff div.line.diff.deletion { color: #b31d28; background-color: #ffeef0; } -.message .diff span.line.diff.range { +.message .diff div.line.diff.range { color: #6f42c1; font-weight: bold; } @@ -394,7 +394,7 @@ details { } /* quote styles */ -.message .quote span.line { +.message .quote div.line { color: #3868cc; } diff --git a/mumi/web/view/utils.scm b/mumi/web/view/utils.scm index 3c95644..4a4ecb0 100644 --- a/mumi/web/view/utils.scm +++ b/mumi/web/view/utils.scm @@ -68,7 +68,7 @@ with the next context." (if (string-prefix? "--8<---------------cut here" line) (values blocks #f) (values (cons (add-block-line! block - `(span (@ (class "line")) ,line)) + `(div (@ (class "line")) ,line)) other-blocks) context))) ((eq? context 'diff) @@ -79,17 +79,17 @@ with the next context." (let ((formatted-line (cond ((string= "---" line) - `(span (@ (class "line diff separator")) ,line)) + `(div (@ (class "line diff separator")) ,line)) ((string-prefix? "+" line) - `(span (@ (class "line diff addition")) ,line)) + `(div (@ (class "line diff addition")) ,line)) ((and (string-prefix? "-" line) (not (string= "--" line)) (not (string= "-- " line))) - `(span (@ (class "line diff deletion")) ,line)) + `(div (@ (class "line diff deletion")) ,line)) ((string-prefix? "@@" line) - `(span (@ (class "line diff range")) ,line)) + `(div (@ (class "line diff range")) ,line)) (else - `(span (@ (class "line")) ,line))))) + `(div (@ (class "line")) ,line))))) (values (cons (add-block-line! block formatted-line) other-blocks) context)))) @@ -97,7 +97,7 @@ with the next context." (if (string-prefix? ">" line) ;; Add line to current block (values (cons (add-block-line! block - `(span (@ (class "line")) ,line)) + `(div (@ (class "line")) ,line)) other-blocks) context) ;; Retry @@ -124,28 +124,28 @@ with the next context." ((uri-string . rest) (or (and=> (string->uri uri-string) (lambda (uri) - `(span (@ (class "line")) - ,(string-trim-right pre #\<) - (a (@ (href ,uri-string)) - ,uri-string) - ,(string-join rest " ")))) - `(span (@ (class "line")) ,line))))))) + `(div (@ (class "line")) + ,(string-trim-right pre #\<) + (a (@ (href ,uri-string)) + ,uri-string) + ,(string-join rest " ")))) + `(div (@ (class "line")) ,line))))))) ((or (string-prefix? "Signed-off-by" line) (string-prefix? "Co-authored-by" line)) - `(span (@ (class "line commit attribution")) ,line)) + `(div (@ (class "line commit attribution")) ,line)) ((or (string-prefix? "From: " line) (string-prefix? "Date: " line) (string-prefix? "Subject: " line)) - `(span (@ (class "line commit header")) ,line)) + `(div (@ (class "line commit header")) ,line)) ((or (string-prefix? "* " line) (string-prefix? " * " line)) - `(span (@ (class "line commit changelog")) ,line)) + `(div (@ (class "line commit changelog")) ,line)) ((string-prefix? "diff --git" line) - `(span (@ (class "line diff file")) ,line)) + `(div (@ (class "line diff file")) ,line)) ((string-prefix? "--8<---------------cut here" line) "") (else - `(span (@ (class "line")) ,line))))) + `(div (@ (class "line")) ,line))))) (if (eq? new-context context) (values (cons (add-block-line! block formatted-line) other-blocks)