{-# LANGUAGE Arrows, RecursiveDo, EmptyDataDecls, TemplateHaskell, PostfixOperators, FlexibleContexts #-}
module Document.Grammars.Html where
import Prelude hiding ((+), (*))
import Data.Char
import Control.Applicative
import Language.Grammars.Grammar
import Language.Grammars.Murder
import Language.Grammars.Murder.Derive
import Language.Grammars.Murder.UUParsing
import Language.Grammars.AspectAG
import Document.Decl
import Utils
-- Generate the labels used as lookup keys in the exportlist
$(csLabels ["cs_document", "cs_blockL", "cs_paragraph", "cs_header", "cs_inline", "cs_inlineL"])
{-
-- | Recognizes a header at level x, i.e. "
" inlineL "
" Ii header <-addNT-< foldr1 (<|>) $ map (headerLvl (pHeader sem) inlineL) [1..6] -- this seperation is required for the inlines non-terminal inline <-addNT-< iI (pPlain sem) "