diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2015-09-19 19:41:50 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-09-19 19:41:50 -0700 |
commit | e2e6143f9b55efc71ebf4c40f85e11115355672a (patch) | |
tree | df62f15b1c94a83e03a5628025542f542d3a51fa /src/pandoc-oso2tex.hs | |
parent | e3e4706730a1be3ed9f1782e20200068cf4ad94e (diff) | |
download | oso2pdf-e2e6143f9b55efc71ebf4c40f85e11115355672a.tar.gz |
oso2pdf first attempt
Diffstat (limited to 'src/pandoc-oso2tex.hs')
-rw-r--r-- | src/pandoc-oso2tex.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/pandoc-oso2tex.hs b/src/pandoc-oso2tex.hs index 881ee37..9014392 100644 --- a/src/pandoc-oso2tex.hs +++ b/src/pandoc-oso2tex.hs @@ -32,6 +32,7 @@ instance Monoid Page where (Page n xs) `mappend` (Page _ ys) = Page n (xs ++ ys) pagesToBlocks :: [Page] -> [Block] +pagesToBlocks [Page _ xs] = xs pagesToBlocks ps@( _ : (Page n _) : _) = RawBlock (Format "tex") ("\\setcounter{page}{" ++ show (n - 1) ++ "}") : (drop 1 $ foldr step [] ps) -- drop first \\pagebreak |