{-# LANGUAGE OverloadedStrings #-}
module Text.LaTeX.Packages.LongTable
(
longtablep
, longtable
, endfirsthead
, endhead
, endfoot
, endlastfoot
) where
import Text.LaTeX.Base.Syntax (LaTeX(TeXEnv, TeXRaw, TeXComm), TeXArg(FixArg, OptArg))
import Text.LaTeX.Base.Class (LaTeXC, fromLaTeX, liftL)
import Text.LaTeX.Base.Render (render, renderAppend)
import Text.LaTeX.Base.Types (PackageName, Pos, TableSpec)
longtablep :: PackageName
longtablep :: PackageName
longtablep = PackageName
"longtable"
longtable :: LaTeXC l =>
Maybe Pos
-> [TableSpec]
-> l
-> l
longtable :: forall l. LaTeXC l => Maybe Pos -> [TableSpec] -> l -> l
longtable Maybe Pos
Nothing [TableSpec]
ts = forall l. LaTeXC l => (LaTeX -> LaTeX) -> l -> l
liftL forall a b. (a -> b) -> a -> b
$ PackageName -> [TeXArg] -> LaTeX -> LaTeX
TeXEnv PackageName
"longtable" [ LaTeX -> TeXArg
FixArg forall a b. (a -> b) -> a -> b
$ Text -> LaTeX
TeXRaw forall a b. (a -> b) -> a -> b
$ forall a. Render a => [a] -> Text
renderAppend [TableSpec]
ts ]
longtable (Just Pos
p) [TableSpec]
ts = forall l. LaTeXC l => (LaTeX -> LaTeX) -> l -> l
liftL forall a b. (a -> b) -> a -> b
$ PackageName -> [TeXArg] -> LaTeX -> LaTeX
TeXEnv PackageName
"longtable" [ LaTeX -> TeXArg
OptArg forall a b. (a -> b) -> a -> b
$ Text -> LaTeX
TeXRaw forall a b. (a -> b) -> a -> b
$ forall a. Render a => a -> Text
render Pos
p , LaTeX -> TeXArg
FixArg forall a b. (a -> b) -> a -> b
$ Text -> LaTeX
TeXRaw forall a b. (a -> b) -> a -> b
$ forall a. Render a => [a] -> Text
renderAppend [TableSpec]
ts ]
endfirsthead :: LaTeXC l => l
endfirsthead :: forall l. LaTeXC l => l
endfirsthead = forall l. LaTeXC l => LaTeX -> l
fromLaTeX forall a b. (a -> b) -> a -> b
$ PackageName -> [TeXArg] -> LaTeX
TeXComm PackageName
"endfirsthead" []
endhead :: LaTeXC l => l
endhead :: forall l. LaTeXC l => l
endhead = forall l. LaTeXC l => LaTeX -> l
fromLaTeX forall a b. (a -> b) -> a -> b
$ PackageName -> [TeXArg] -> LaTeX
TeXComm PackageName
"endhead" []
endfoot :: LaTeXC l => l
= forall l. LaTeXC l => LaTeX -> l
fromLaTeX forall a b. (a -> b) -> a -> b
$ PackageName -> [TeXArg] -> LaTeX
TeXComm PackageName
"endfoot" []
endlastfoot :: LaTeXC l => l
= forall l. LaTeXC l => LaTeX -> l
fromLaTeX forall a b. (a -> b) -> a -> b
$ PackageName -> [TeXArg] -> LaTeX
TeXComm PackageName
"endlastfoot" []