oak-haskell 0.0.11

Haskell functional programming language parser with support for pure functional programming and advanced type systems.
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

#![doc = include_str!("readme.md")]
use crate::{language::HaskellLanguage, lexer::HaskellLexer, parser::HaskellParser};
use oak_core::{Language, errors::ParseResult};
use oak_highlight::{
    highlighter::{HighlightResult, Highlighter, OakHighlighter},
    themes::Theme,
};

/// Haskell syntax highlighter.
pub struct HaskellHighlighter {
    use_parser: bool,
}

impl HaskellHighlighter {
    pub fn new(use_parser: bool) -> Self {
        Self { use_parser }
    }
}

impl Default for HaskellHighlighter {
    fn default() -> Self {
        Self::new(true)
    }
}

impl Highlighter for HaskellHighlighter {
    fn highlight<'a>(&self, source: &'a str, _language: &str, theme: Theme) -> ParseResult<HighlightResult<'a>> {
        let highlighter = OakHighlighter::new();

        if self.use_parser {
            let config = HaskellLanguage::default();
            let parser = HaskellParser::new(&config);
            let lexer = HaskellLexer::new(&config);
            highlighter.highlight_with_language::<HaskellLanguage, HaskellParser<'_>, HaskellLexer<'_>>(source, theme, &parser, &lexer)
        }
        else {
            highlighter.highlight(source, HaskellLanguage::NAME, theme)
        }
    }
}