module Rakka.Wiki.Interpreter.Base
    ( baseInterpreters
    )
    where

import           Rakka.Wiki
import           Rakka.Wiki.Interpreter
import           Rakka.Wiki.Interpreter.Base.Image


baseInterpreters :: [Interpreter]
baseInterpreters = [ lineBreakInterp
                   , spanInterp
                   , divInterp
                   , imageInterp
                   , imgFrameInterp
                   ]


lineBreakInterp :: Interpreter
lineBreakInterp = pureInlineInterp "br" interpret
    where
      interpret (InlineCommand _ attrs _) _ = LineBreak attrs


spanInterp :: Interpreter
spanInterp = pureInlineInterp "span" interpret
    where
      interpret (InlineCommand _ attrs contents) _ = Span attrs contents


divInterp :: Interpreter
divInterp = pureBlockInterp "div" interpret
    where
      interpret (BlockCommand _ attrs contents) _ = Div attrs contents