summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2018-09-01 21:40:51 +0200
committerRicardo Wurmus <rekado@elephly.net>2018-09-01 21:40:51 +0200
commite5ddc89b091215293cdfe5afa84d7f2c5c601ce5 (patch)
treef08011388810b2f3c7d2acba856c7b4b104fb73f
parenta0d809919b44d242ad5b948c6a079c5c3f5812d2 (diff)
Add style for cut-here lines.
-rw-r--r--assets/css/screen.css4
-rw-r--r--mumi/web/view/utils.scm2
2 files changed, 6 insertions, 0 deletions
diff --git a/assets/css/screen.css b/assets/css/screen.css
index 9021320..a29afdc 100644
--- a/assets/css/screen.css
+++ b/assets/css/screen.css
@@ -223,6 +223,10 @@ input#query {
color: #3868cc;
}
+.message span.line.cut-here {
+ color: #888;
+}
+
.status-tag {
display: inline-block;
color: #fff;
diff --git a/mumi/web/view/utils.scm b/mumi/web/view/utils.scm
index 4277ce8..f0d58c0 100644
--- a/mumi/web/view/utils.scm
+++ b/mumi/web/view/utils.scm
@@ -29,6 +29,8 @@
;; styles, then output sxml, but for now we keep it simple
(define (process line)
(cond
+ ((string-prefix? "--8<---------------cut here" line)
+ `(span (@ (class "line cut-here")) ,line))
((string= "---" line)
`(span (@ (class "line diff separator")) ,line))
((string-prefix? "diff --git" line)