Verified Commit 39e6932a authored by Camil Staps's avatar Camil Staps 🚀

Concatenate spans with the same class

parent 461b1b30
...@@ -25,7 +25,10 @@ function highlight(lex, istr, start) { ...@@ -25,7 +25,10 @@ function highlight(lex, istr, start) {
var j = 0; var j = 0;
for (var k in clss) { for (var k in clss) {
j++; j++;
out.push({'class': clss[k], 'str': parts[j]}); if (out.length > 0 && out[out.length-1]['class'] == clss[k])
out[out.length-1]['str'] += parts[j];
else
out.push({'class': clss[k], 'str': parts[j]});
} }
istr = parts[j+1]; istr = parts[j+1];
......
...@@ -122,6 +122,7 @@ fs.readdir('tests', function(err, files) { ...@@ -122,6 +122,7 @@ fs.readdir('tests', function(err, files) {
htmlResults = '<!DOCTYPE html>\ htmlResults = '<!DOCTYPE html>\
<html>\ <html>\
<head>\ <head>\
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>\
<link rel="stylesheet" href="clean.css" type="text/css"/>\ <link rel="stylesheet" href="clean.css" type="text/css"/>\
<link rel="stylesheet" href="test_results.css" type="text/css"/>\ <link rel="stylesheet" href="test_results.css" type="text/css"/>\
<title>clean.js test results</title>\ <title>clean.js test results</title>\
......
...@@ -30,8 +30,7 @@ whitespace ...@@ -30,8 +30,7 @@ whitespace
typevar s typevar s
whitespace whitespace
keyword where keyword where
whitespace \n whitespace \n\n
whitespace \n
funcname textSize funcname textSize
whitespace whitespace
punctuation :: punctuation ::
...@@ -39,27 +38,22 @@ whitespace ...@@ -39,27 +38,22 @@ whitespace
punctuation ! punctuation !
typevar s typevar s
whitespace whitespace
punctuation - punctuation ->
punctuation >
whitespace whitespace
type Int type Int
whitespace \n whitespace \n
whitespace
funcname concat funcname concat
whitespace whitespace
punctuation :: punctuation ::
whitespace whitespace
punctuation ! punctuation ![
punctuation [
typevar s typevar s
punctuation ] punctuation ]
whitespace whitespace
punctuation - punctuation ->
punctuation >
whitespace whitespace
typevar s typevar s
whitespace \n whitespace \n
whitespace
funcname split funcname split
whitespace whitespace
punctuation :: punctuation ::
...@@ -70,14 +64,12 @@ whitespace ...@@ -70,14 +64,12 @@ whitespace
punctuation ! punctuation !
typevar s typevar s
whitespace whitespace
punctuation - punctuation ->
punctuation >
whitespace whitespace
punctuation [ punctuation [
typevar s typevar s
punctuation ] punctuation ]
whitespace \n whitespace \n
whitespace
funcname join funcname join
whitespace whitespace
punctuation :: punctuation ::
...@@ -85,17 +77,14 @@ whitespace ...@@ -85,17 +77,14 @@ whitespace
punctuation ! punctuation !
typevar s typevar s
whitespace whitespace
punctuation ! punctuation ![
punctuation [
typevar s typevar s
punctuation ] punctuation ]
whitespace whitespace
punctuation - punctuation ->
punctuation >
whitespace whitespace
typevar s typevar s
whitespace \n whitespace \n
whitespace
funcname indexOf funcname indexOf
whitespace whitespace
punctuation :: punctuation ::
...@@ -106,12 +95,10 @@ whitespace ...@@ -106,12 +95,10 @@ whitespace
punctuation ! punctuation !
typevar s typevar s
whitespace whitespace
punctuation - punctuation ->
punctuation >
whitespace whitespace
type Int type Int
whitespace \n whitespace \n
whitespace
funcname lastIndexOf funcname lastIndexOf
whitespace whitespace
punctuation :: punctuation ::
...@@ -122,12 +109,10 @@ whitespace ...@@ -122,12 +109,10 @@ whitespace
punctuation ! punctuation !
typevar s typevar s
whitespace whitespace
punctuation - punctuation ->
punctuation >
whitespace whitespace
type Int type Int
whitespace \n whitespace \n
whitespace
funcname indexOfAfter funcname indexOfAfter
whitespace whitespace
punctuation :: punctuation ::
...@@ -141,12 +126,10 @@ whitespace ...@@ -141,12 +126,10 @@ whitespace
punctuation ! punctuation !
typevar s typevar s
whitespace whitespace
punctuation - punctuation ->
punctuation >
whitespace whitespace
type Int type Int
whitespace \n whitespace \n
whitespace
funcname startsWith funcname startsWith
whitespace whitespace
punctuation :: punctuation ::
...@@ -157,12 +140,10 @@ whitespace ...@@ -157,12 +140,10 @@ whitespace
punctuation ! punctuation !
typevar s typevar s
whitespace whitespace
punctuation - punctuation ->
punctuation >
whitespace whitespace
type Bool type Bool
whitespace \n whitespace \n
whitespace
funcname endsWith funcname endsWith
whitespace whitespace
punctuation :: punctuation ::
...@@ -173,12 +154,10 @@ whitespace ...@@ -173,12 +154,10 @@ whitespace
punctuation ! punctuation !
typevar s typevar s
whitespace whitespace
punctuation - punctuation ->
punctuation >
whitespace whitespace
type Bool type Bool
whitespace \n whitespace \n
whitespace
funcname subString funcname subString
whitespace whitespace
punctuation :: punctuation ::
...@@ -192,12 +171,10 @@ whitespace ...@@ -192,12 +171,10 @@ whitespace
punctuation ! punctuation !
typevar s typevar s
whitespace whitespace
punctuation - punctuation ->
punctuation >
whitespace whitespace
typevar s typevar s
whitespace \n whitespace \n
whitespace
funcname replaceSubString funcname replaceSubString
whitespace whitespace
punctuation :: punctuation ::
...@@ -211,12 +188,10 @@ whitespace ...@@ -211,12 +188,10 @@ whitespace
punctuation ! punctuation !
typevar s typevar s
whitespace whitespace
punctuation - punctuation ->
punctuation >
whitespace whitespace
typevar s typevar s
whitespace \n whitespace \n
whitespace
funcname trim funcname trim
whitespace whitespace
punctuation :: punctuation ::
...@@ -224,12 +199,10 @@ whitespace ...@@ -224,12 +199,10 @@ whitespace
punctuation ! punctuation !
typevar s typevar s
whitespace whitespace
punctuation - punctuation ->
punctuation >
whitespace whitespace
typevar s typevar s
whitespace \n whitespace \n
whitespace
funcname ltrim funcname ltrim
whitespace whitespace
punctuation :: punctuation ::
...@@ -237,12 +210,10 @@ whitespace ...@@ -237,12 +210,10 @@ whitespace
punctuation ! punctuation !
typevar s typevar s
whitespace whitespace
punctuation - punctuation ->
punctuation >
whitespace whitespace
typevar s typevar s
whitespace \n whitespace \n
whitespace
funcname rtrim funcname rtrim
whitespace whitespace
punctuation :: punctuation ::
...@@ -250,12 +221,10 @@ whitespace ...@@ -250,12 +221,10 @@ whitespace
punctuation ! punctuation !
typevar s typevar s
whitespace whitespace
punctuation - punctuation ->
punctuation >
whitespace whitespace
typevar s typevar s
whitespace \n whitespace \n
whitespace
funcname lpad funcname lpad
whitespace whitespace
punctuation :: punctuation ::
...@@ -269,12 +238,10 @@ whitespace ...@@ -269,12 +238,10 @@ whitespace
punctuation ! punctuation !
type Char type Char
whitespace whitespace
punctuation - punctuation ->
punctuation >
whitespace whitespace
typevar s typevar s
whitespace \n whitespace \n
whitespace
funcname rpad funcname rpad
whitespace whitespace
punctuation :: punctuation ::
...@@ -288,12 +255,10 @@ whitespace ...@@ -288,12 +255,10 @@ whitespace
punctuation ! punctuation !
type Char type Char
whitespace whitespace
punctuation - punctuation ->
punctuation >
whitespace whitespace
typevar s typevar s
whitespace \n whitespace \n
whitespace
funcname toLowerCase funcname toLowerCase
whitespace whitespace
punctuation :: punctuation ::
...@@ -301,12 +266,10 @@ whitespace ...@@ -301,12 +266,10 @@ whitespace
punctuation ! punctuation !
typevar s typevar s
whitespace whitespace
punctuation - punctuation ->
punctuation >
whitespace whitespace
typevar s typevar s
whitespace \n whitespace \n
whitespace
funcname toUpperCase funcname toUpperCase
whitespace whitespace
punctuation :: punctuation ::
...@@ -314,12 +277,10 @@ whitespace ...@@ -314,12 +277,10 @@ whitespace
punctuation ! punctuation !
typevar s typevar s
whitespace whitespace
punctuation - punctuation ->
punctuation >
whitespace whitespace
typevar s typevar s
whitespace \n whitespace \n
whitespace
funcname upperCaseFirst funcname upperCaseFirst
whitespace whitespace
punctuation :: punctuation ::
...@@ -327,12 +288,10 @@ whitespace ...@@ -327,12 +288,10 @@ whitespace
punctuation ! punctuation !
typevar s typevar s
whitespace whitespace
punctuation - punctuation ->
punctuation >
whitespace whitespace
typevar s typevar s
whitespace \n whitespace \n
whitespace
funcname dropChars funcname dropChars
whitespace whitespace
punctuation :: punctuation ::
...@@ -343,7 +302,6 @@ whitespace ...@@ -343,7 +302,6 @@ whitespace
punctuation ! punctuation !
typevar s typevar s
whitespace whitespace
punctuation - punctuation ->
punctuation >
whitespace whitespace
typevar s typevar s
...@@ -11,28 +11,22 @@ whitespace ...@@ -11,28 +11,22 @@ whitespace
punctuation | punctuation |
whitespace whitespace
generic gEditor generic gEditor
punctuation {| punctuation {|*|},
punctuation *|},
whitespace whitespace
generic gText generic gText
punctuation {| punctuation {|*|},
punctuation *|},
whitespace whitespace
generic JSONEncode generic JSONEncode
punctuation {| punctuation {|*|},
punctuation *|},
whitespace whitespace
generic JSONDecode generic JSONDecode
punctuation {| punctuation {|*|},
punctuation *|},
whitespace whitespace
generic gDefault generic gDefault
punctuation {| punctuation {|*|},
punctuation *|},
whitespace whitespace
generic gEq generic gEq
punctuation {| punctuation {|*|},
punctuation *|},
whitespace whitespace
classname TC classname TC
whitespace whitespace
......
...@@ -12,7 +12,6 @@ punctuation :: ...@@ -12,7 +12,6 @@ punctuation ::
whitespace whitespace
typevar a typevar a
whitespace whitespace
punctuation - punctuation ->
punctuation >
whitespace whitespace
type Int type Int
...@@ -14,28 +14,22 @@ punctuation ] ...@@ -14,28 +14,22 @@ punctuation ]
whitespace whitespace
punctuation ( punctuation (
existential A existential A
punctuation . punctuation .*
punctuation *
typevar cur typevar cur
punctuation : punctuation :
whitespace whitespace
punctuation ( punctuation (*
punctuation *
typevar cur typevar cur
whitespace whitespace
punctuation - punctuation ->
punctuation >
whitespace whitespace
punctuation * punctuation *(
punctuation (
type MaybeErrorString type MaybeErrorString
whitespace whitespace
typevar a typevar a
punctuation , punctuation ,*
punctuation *
typevar cur typevar cur
punctuation ) punctuation ))
punctuation )
whitespace whitespace
punctuation | punctuation |
whitespace whitespace
......
...@@ -10,33 +10,27 @@ type String ...@@ -10,33 +10,27 @@ type String
whitespace whitespace
punctuation ( punctuation (
existential A existential A
punctuation . punctuation .*
punctuation *
typevar cur typevar cur
punctuation : punctuation :
whitespace whitespace
punctuation ( punctuation (
typevar p typevar p
whitespace whitespace
punctuation - punctuation ->
punctuation >
whitespace whitespace
punctuation * punctuation *
typevar cur typevar cur
whitespace whitespace
punctuation - punctuation ->
punctuation >
whitespace whitespace
punctuation * punctuation *(
punctuation (
type MaybeErrorString type MaybeErrorString
whitespace whitespace
typevar r typevar r
punctuation , punctuation ,*
punctuation *
typevar cur typevar cur
punctuation ) punctuation ))
punctuation )
whitespace whitespace
punctuation | punctuation |
whitespace whitespace
...@@ -47,38 +41,31 @@ punctuation ) ...@@ -47,38 +41,31 @@ punctuation )
whitespace whitespace
punctuation ( punctuation (
existential A existential A
punctuation . punctuation .*
punctuation *
typevar cur typevar cur
punctuation : punctuation :
whitespace whitespace
punctuation ( punctuation (
typevar p typevar p
whitespace whitespace
punctuation - punctuation ->
punctuation >
whitespace whitespace
typevar w typevar w
whitespace whitespace
punctuation - punctuation ->
punctuation >
whitespace whitespace
punctuation * punctuation *
typevar cur typevar cur
whitespace whitespace
punctuation - punctuation ->
punctuation >
whitespace whitespace
punctuation * punctuation *(
punctuation (
type MaybeErrorString type MaybeErrorString
whitespace whitespace
type () type ()
punctuation , punctuation ,*
punctuation *
typevar cur typevar cur
punctuation ) punctuation ))
punctuation )
whitespace whitespace
punctuation | punctuation |
whitespace whitespace
......
...@@ -13,13 +13,11 @@ whitespace ...@@ -13,13 +13,11 @@ whitespace
punctuation ( punctuation (
typevar a typevar a
whitespace whitespace
punctuation - punctuation ->
punctuation >