From 90f0dd15b6a986e1aa04b455b27601f3a7ca58a1 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 14 Feb 2013 19:35:58 -0800 Subject: HTML writer: Support header attributes. Note: The attributes go on the enclosing section or div if `--section-divs` is specified. Also fixed a regression (only now noticed) in html+lhs output. Previously the bird tracks were being omitted. --- tests/lhs-test.html+lhs | 6 +++--- tests/s5.basic.html | 4 ++-- tests/s5.fancy.html | 4 ++-- 3 files changed, 7 insertions(+), 7 deletions(-) (limited to 'tests') diff --git a/tests/lhs-test.html+lhs b/tests/lhs-test.html+lhs index 9be283671..487a8a26b 100644 --- a/tests/lhs-test.html+lhs +++ b/tests/lhs-test.html+lhs @@ -29,9 +29,9 @@ code > span.er { color: #ff0000; font-weight: bold; }

lhs test

unsplit is an arrow that takes a pair of values and combines them to return a single value:

-
> unsplit :: (Arrow a) => (b -> c -> d) -> a (b, c) d
-> unsplit = arr . uncurry
->           -- arr (\op (x,y) -> x `op` y)
+
> unsplit :: (Arrow a) => (b -> c -> d) -> a (b, c) d
+> unsplit = arr . uncurry
+>           -- arr (\op (x,y) -> x `op` y)

(***) 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).

f *** g = first f >>> second g

Block quote:

diff --git a/tests/s5.basic.html b/tests/s5.basic.html index f4e93eb6d..ceb896b8e 100644 --- a/tests/s5.basic.html +++ b/tests/s5.basic.html @@ -36,14 +36,14 @@

Sam Smith
Jen Jones

July 15, 2006

-
+

First slide

  • first bullet
  • second bullet
-
+

Math

  • $\frac{d}{dx}f(x)=\lim_{h\to 0}\frac{f(x+h)-f(x)}{h}$
    • diff --git a/tests/s5.fancy.html b/tests/s5.fancy.html index c62fcb3db..818cca04a 100644 --- a/tests/s5.fancy.html +++ b/tests/s5.fancy.html @@ -237,14 +237,14 @@

    Sam Smith
    Jen Jones

    July 15, 2006

-
+

First slide

  • first bullet
  • second bullet
-
+

Math

  • $\frac{d}{dx}f(x)=\lim_{h\to 0}\frac{f(x+h)-f(x)}{h}$
    • -- cgit v1.2.3