module Text.Highlighter.Lexers.Css (lexer) where

import Text.Regex.PCRE.Light
import Text.Highlighter.Types

lexer :: Lexer
lexer = Lexer
    { lName = "CSS"
    , lAliases = ["css"]
    , lExtensions = [".css"]
    , lMimetypes = ["text/css"]
    , lStart = root'
    , lFlags = [multiline]
    }

content' :: TokenMatcher
content' =
    [ tok "\\s+" (Arbitrary "Text")
    , tokNext "}" (Arbitrary "Punctuation") Pop
    , tok "url\\(.*?\\)" (Arbitrary "Literal" :. Arbitrary "String" :. Arbitrary "Other")
    , tok "^@.*?$" (Arbitrary "Comment" :. Arbitrary "Preproc")
    , tok "(azimuth|background-attachment|background-color|background-image|background-position|background-repeat|background|border-bottom-color|border-bottom-style|border-bottom-width|border-left-color|border-left-style|border-left-width|border-right|border-right-color|border-right-style|border-right-width|border-top-color|border-top-style|border-top-width|border-bottom|border-collapse|border-left|border-width|border-color|border-spacing|border-style|border-top|border|caption-side|clear|clip|color|content|counter-increment|counter-reset|cue-after|cue-before|cue|cursor|direction|display|elevation|empty-cells|float|font-family|font-size|font-size-adjust|font-stretch|font-style|font-variant|font-weight|font|height|letter-spacing|line-height|list-style-type|list-style-image|list-style-position|list-style|margin-bottom|margin-left|margin-right|margin-top|margin|marker-offset|marks|max-height|max-width|min-height|min-width|opacity|orphans|outline|outline-color|outline-style|outline-width|overflow(?:-x|-y|)|padding-bottom|padding-left|padding-right|padding-top|padding|page|page-break-after|page-break-before|page-break-inside|pause-after|pause-before|pause|pitch|pitch-range|play-during|position|quotes|richness|right|size|speak-header|speak-numeral|speak-punctuation|speak|speech-rate|stress|table-layout|text-align|text-decoration|text-indent|text-shadow|text-transform|top|unicode-bidi|vertical-align|visibility|voice-family|volume|white-space|widows|width|word-spacing|z-index|bottom|left|above|absolute|always|armenian|aural|auto|avoid|baseline|behind|below|bidi-override|blink|block|bold|bolder|both|capitalize|center-left|center-right|center|circle|cjk-ideographic|close-quote|collapse|condensed|continuous|crop|crosshair|cross|cursive|dashed|decimal-leading-zero|decimal|default|digits|disc|dotted|double|e-resize|embed|extra-condensed|extra-expanded|expanded|fantasy|far-left|far-right|faster|fast|fixed|georgian|groove|hebrew|help|hidden|hide|higher|high|hiragana-iroha|hiragana|icon|inherit|inline-table|inline|inset|inside|invert|italic|justify|katakana-iroha|katakana|landscape|larger|large|left-side|leftwards|level|lighter|line-through|list-item|loud|lower-alpha|lower-greek|lower-roman|lowercase|ltr|lower|low|medium|message-box|middle|mix|monospace|n-resize|narrower|ne-resize|no-close-quote|no-open-quote|no-repeat|none|normal|nowrap|nw-resize|oblique|once|open-quote|outset|outside|overline|pointer|portrait|px|relative|repeat-x|repeat-y|repeat|rgb|ridge|right-side|rightwards|s-resize|sans-serif|scroll|se-resize|semi-condensed|semi-expanded|separate|serif|show|silent|slow|slower|small-caps|small-caption|smaller|soft|solid|spell-out|square|static|status-bar|super|sw-resize|table-caption|table-cell|table-column|table-column-group|table-footer-group|table-header-group|table-row|table-row-group|text|text-bottom|text-top|thick|thin|transparent|ultra-condensed|ultra-expanded|underline|upper-alpha|upper-latin|upper-roman|uppercase|url|visible|w-resize|wait|wider|x-fast|x-high|x-large|x-loud|x-low|x-small|x-soft|xx-large|xx-small|yes)\\b" (Arbitrary "Keyword")
    , tok "(indigo|gold|firebrick|indianred|yellow|darkolivegreen|darkseagreen|mediumvioletred|mediumorchid|chartreuse|mediumslateblue|black|springgreen|crimson|lightsalmon|brown|turquoise|olivedrab|cyan|silver|skyblue|gray|darkturquoise|goldenrod|darkgreen|darkviolet|darkgray|lightpink|teal|darkmagenta|lightgoldenrodyellow|lavender|yellowgreen|thistle|violet|navy|orchid|blue|ghostwhite|honeydew|cornflowerblue|darkblue|darkkhaki|mediumpurple|cornsilk|red|bisque|slategray|darkcyan|khaki|wheat|deepskyblue|darkred|steelblue|aliceblue|gainsboro|mediumturquoise|floralwhite|coral|purple|lightgrey|lightcyan|darksalmon|beige|azure|lightsteelblue|oldlace|greenyellow|royalblue|lightseagreen|mistyrose|sienna|lightcoral|orangered|navajowhite|lime|palegreen|burlywood|seashell|mediumspringgreen|fuchsia|papayawhip|blanchedalmond|peru|aquamarine|white|darkslategray|ivory|dodgerblue|lemonchiffon|chocolate|orange|forestgreen|slateblue|olive|mintcream|antiquewhite|darkorange|cadetblue|moccasin|limegreen|saddlebrown|darkslateblue|lightskyblue|deeppink|plum|aqua|darkgoldenrod|maroon|sandybrown|magenta|tan|rosybrown|pink|lightblue|palevioletred|mediumseagreen|dimgray|powderblue|seagreen|snow|mediumblue|midnightblue|paleturquoise|palegoldenrod|whitesmoke|darkorchid|salmon|lightslategray|lawngreen|lightgreen|tomato|hotpink|lightyellow|lavenderblush|linen|mediumaquamarine|green|blueviolet|peachpuff)\\b" (Arbitrary "Name" :. Arbitrary "Builtin")
    , tok "\\!important" (Arbitrary "Comment" :. Arbitrary "Preproc")
    , tok "/\\*(?:.|\\n)*?\\*/" (Arbitrary "Comment")
    , tok "\\#[a-zA-Z0-9]{1,6}" (Arbitrary "Literal" :. Arbitrary "Number")
    , tok "[\\.-]?[0-9]*[\\.]?[0-9]+(em|px|\\%|pt|pc|in|mm|cm|ex|s)\\b" (Arbitrary "Literal" :. Arbitrary "Number")
    , tok "-?[0-9]+" (Arbitrary "Literal" :. Arbitrary "Number")
    , tok "[\126\\^\\*!%&<>\\|+=@:,./?-]+" (Arbitrary "Operator")
    , tok "[\\[\\]();]+" (Arbitrary "Punctuation")
    , tok "\"(\\\\\\\\|\\\\\"|[^\"])*\"" (Arbitrary "Literal" :. Arbitrary "String" :. Arbitrary "Double")
    , tok "'(\\\\\\\\|\\\\'|[^'])*'" (Arbitrary "Literal" :. Arbitrary "String" :. Arbitrary "Single")
    , tok "[a-zA-Z][a-zA-Z0-9]+" (Arbitrary "Name")
    ]

basics' :: TokenMatcher
basics' =
    [ tok "\\s+" (Arbitrary "Text")
    , tok "/\\*(?:.|\\n)*?\\*/" (Arbitrary "Comment")
    , tokNext "{" (Arbitrary "Punctuation") (GoTo content')
    , tok "\\:[a-zA-Z0-9_-]+" (Arbitrary "Name" :. Arbitrary "Decorator")
    , tok "\\.[a-zA-Z0-9_-]+" (Arbitrary "Name" :. Arbitrary "Class")
    , tok "\\#[a-zA-Z0-9_-]+" (Arbitrary "Name" :. Arbitrary "Function")
    , tokNext "@[a-zA-Z0-9_-]+" (Arbitrary "Keyword") (GoTo atrule')
    , tok "[a-zA-Z0-9_-]+" (Arbitrary "Name" :. Arbitrary "Tag")
    , tok "[\126\\^\\*!%&\\[\\]\\(\\)<>\\|+=@:;,./?-]" (Arbitrary "Operator")
    , tok "\"(\\\\\\\\|\\\\\"|[^\"])*\"" (Arbitrary "Literal" :. Arbitrary "String" :. Arbitrary "Double")
    , tok "'(\\\\\\\\|\\\\'|[^'])*'" (Arbitrary "Literal" :. Arbitrary "String" :. Arbitrary "Single")
    ]

root' :: TokenMatcher
root' =
    [ anyOf basics'
    ]

atcontent' :: TokenMatcher
atcontent' =
    [ anyOf basics'
    , tokNext "}" (Arbitrary "Punctuation") (PopNum 2)
    ]

atrule' :: TokenMatcher
atrule' =
    [ tokNext "{" (Arbitrary "Punctuation") (GoTo atcontent')
    , tokNext ";" (Arbitrary "Punctuation") Pop
    , anyOf basics'
    ]