3122959 · typeable/pandoc

git.iko.soy/typeable/pandoc

Highlighting: Add language as class name.

This restores behavior of 1.8.2.1. Adjusted tests.

commit3122959064412a40d650840467f2838326687251 authorJohn MacFarlane <fiddlosopher@gmail.com> dateTue 27 Dec 2011, 22:23 (15 years ago) parent70b4ec9

3 files changed+3−3

compare with master

unifiedsplit

src/Text/Pandoc/Highlighting.hs+1−1 tests/lhs-test.html+1−1 tests/lhs-test.html+lhs+1−1

src/Text/Pandoc/Highlighting.hs+1−1

@@ -64,6 +64,6 @@ highlight formatter (_, classes, keyvals) rawCode =

6464 in case find (`elem` lcLanguages) lcclasses of

6565 Nothing -> Nothing

6666 Just language -> Just

67− $ formatter fmtOpts

67+ $ formatter fmtOpts{ codeClasses = [language] }

6868 $ highlightAs language rawCode

6969

tests/lhs-test.html+1−1

@@ -27,7 +27,7 @@ code > span.er { color: #ff0000; font-weight: bold; }

2727<body>

2828<h1 id="lhs-test">lhs test</h1>

2929<code>unsplit</code> is an arrow that takes a pair of values and combines them to return a single value:

30−<pre class="sourceCode"><code class="sourceCode">unsplit :: (Arrow a) => (b -> c -> d) -> a (b, c) d

30+<pre class="sourceCode"><code class="sourceCode haskell">unsplit :: (Arrow a) => (b -> c -> d) -> a (b, c) d

3131unsplit = arr . uncurry

3232 -- arr (\op (x,y) -> x `op` y) </code></pre>

3333<code>(***)</code> combines two arrows into a new arrow by running the two arrows on a pair of values (one arrow on the first item of the pair and one arrow on the second item of the pair).

tests/lhs-test.html+lhs+1−1

@@ -27,7 +27,7 @@ code > span.er { color: #ff0000; font-weight: bold; }

2727<body>

2828<h1 id="lhs-test">lhs test</h1>

2929<code>unsplit</code> is an arrow that takes a pair of values and combines them to return a single value:

30−<pre class="sourceCode"><code class="sourceCode">> unsplit :: (Arrow a) => (b -> c -> d) -> a (b, c) d

30+<pre class="sourceCode"><code class="sourceCode haskell">> unsplit :: (Arrow a) => (b -> c -> d) -> a (b, c) d

3131> unsplit = arr . uncurry

3232> -- arr (\op (x,y) -> x `op` y) </code></pre>