module Text.LaTeX.Macro (
m_simple
, m_wpkgs
, m_article
, m_articlep
, m_math
) where
import Text.LaTeX.Monad
import Text.LaTeX.Commands
import Text.LaTeX.Packages
import Text.LaTeX.Arguments
m_simple :: Monad m =>
[ClassOption m]
-> Class m
-> Name m
-> Title m
-> LaTeX m
-> LaTeX m
m_simple copts c a t cnt =
do documentclass copts c
author a
title t
document cnt
m_wpkgs
:: Monad m =>
[ClassOption m]
-> Class m
-> Name m
-> Title m
-> [([PackageOption m]
, Package m)]
-> LaTeX m
-> LaTeX m
m_wpkgs copts c a t pkgs cnt =
do documentclass copts c
mapM_ (uncurry usepackage) pkgs
author a
title t
document cnt
m_article
:: Monad m =>
Name m
-> Title m
-> LaTeX m
-> LaTeX m
m_article a t cnt =
do documentclass [pt 11, titlepage, a4paper] article
author a
title t
document $ do maketitle
cnt
m_articlep
:: Monad m =>
Name m
-> Title m
-> [([PackageOption m], Package m)]
-> LaTeX m
-> LaTeX m
m_articlep a t pkgs cnt =
do documentclass [pt 11, titlepage, a4paper] article
mapM_ (uncurry usepackage) pkgs
author a ; title t
document $ do maketitle
cnt
m_math
:: Monad m =>
Name m
-> Title m
-> LaTeX m
-> LaTeX m
m_math a t cnt = m_articlep a t [([],amsmath)] cnt