module Yi.Mode.Latex (latexMode3, latexMode2, fastMode) where
import Data.Text ()
import Yi.Buffer
import qualified Yi.IncrementalParse as IncrParser (scanner)
import Yi.Lexer.Alex (AlexState, CharScanner, Tok, commonLexer, lexScanner)
import qualified Yi.Lexer.Latex as Latex (HlState, Token, alexScanToken, initState)
import Yi.Modes (anyExtension, fundamentalMode)
import Yi.Syntax (ExtHL (ExtHL), Scanner, mkHighlighter)
import qualified Yi.Syntax.Driver as Driver (mkHighlighter)
import qualified Yi.Syntax.Latex as Latex (TT, Tree, getStrokes, parse, tokenToStroke)
import Yi.Syntax.OnlineTree (Tree, manyToks)
import Yi.Syntax.Tree (tokenBasedStrokes)
abstract :: Mode syntax
abstract = fundamentalMode
{
modeApplies = anyExtension ["tex", "sty", "ltx"],
modeToggleCommentSelection = Just (toggleCommentB "%")
}
fastMode :: Mode (Tree Latex.TT)
fastMode = abstract
{
modeName = "fast latex",
modeHL = ExtHL $ mkHighlighter (IncrParser.scanner manyToks . latexLexer),
modeGetStrokes = tokenBasedStrokes Latex.tokenToStroke
}
latexMode2 :: Mode (Latex.Tree Latex.TT)
latexMode2 = abstract
{
modeName = "latex",
modeHL = ExtHL $
mkHighlighter (IncrParser.scanner Latex.parse . latexLexer),
modeGetStrokes = \t point begin end -> Latex.getStrokes point begin end t
}
latexMode3 :: Mode (Latex.Tree Latex.TT)
latexMode3 = abstract
{
modeName = "latex",
modeHL = ExtHL $
Driver.mkHighlighter (IncrParser.scanner Latex.parse . latexLexer),
modeGetStrokes = \t point begin end -> Latex.getStrokes point begin end t
}
latexLexer :: CharScanner -> Scanner (AlexState Latex.HlState) (Tok Latex.Token)
latexLexer = lexScanner (commonLexer Latex.alexScanToken Latex.initState)