diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2022-12-20 19:16:05 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2022-12-20 19:16:05 +0100 |
| commit | ef9569455f03fbc3029c661052ea3ac4abddb7d0 (patch) | |
| tree | 09777870978be0a6fb55327d28d67303f107bbad | |
| parent | d7f6c306183595a61fc924388c19cbbc55ad30e2 (diff) | |
view/utils: process: Do not generate "pre" elements.
The "pre" element has its own overflow setting, which causes
individual lines to be either clipped or scrolled, which looks
terrible.
| -rw-r--r-- | mumi/web/view/utils.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/mumi/web/view/utils.scm b/mumi/web/view/utils.scm index 9789d03..0a43b06 100644 --- a/mumi/web/view/utils.scm +++ b/mumi/web/view/utils.scm @@ -80,22 +80,22 @@ with the next context." (cond ((string= "---" line) `(div (@ (class "line diff separator")) - ,line-anchor (pre ,line))) + ,line-anchor ,line)) ((string-prefix? "+" line) `(div (@ (class "line diff addition")) - ,line-anchor (pre ,line))) + ,line-anchor ,line)) ((and (string-prefix? "-" line) (not (string= "--" line)) (not (string= "-- " line))) `(div (@ (class "line diff deletion")) - ,line-anchor (pre ,line))) + ,line-anchor ,line)) ((string-prefix? "@@" line) `(div (@ (class "line diff range")) - ,line-anchor (pre ,line))) + ,line-anchor ,line)) (else `(div (@ (class "line")) ,line-anchor - (pre ,line)))))) + ,line))))) (values (cons (add-block-line! block formatted-line) other-blocks) context)))) |