Add style for cut-here lines.
authorRicardo Wurmus <rekado@elephly.net>
Sat, 1 Sep 2018 19:40:51 +0000 (21:40 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Sat, 1 Sep 2018 19:40:51 +0000 (21:40 +0200)
assets/css/screen.css
mumi/web/view/utils.scm

index 9021320..a29afdc 100644 (file)
@@ -223,6 +223,10 @@ input#query {
     color: #3868cc;
 }
 
+.message span.line.cut-here {
+    color: #888;
+}
+
 .status-tag {
     display: inline-block;
     color: #fff;
index 4277ce8..f0d58c0 100644 (file)
@@ -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)