1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889 |
- module.exports = function(hljs) {
- var COMMENT = {
- variants: [
- hljs.COMMENT('--', '$'),
- hljs.COMMENT(
- '{-',
- '-}',
- {
- contains: ['self']
- }
- )
- ]
- };
- var CONSTRUCTOR = {
- className: 'type',
- begin: '\\b[A-Z][\\w\']*', // TODO: other constructors (built-in, infix).
- relevance: 0
- };
- var LIST = {
- begin: '\\(', end: '\\)',
- illegal: '"',
- contains: [
- {className: 'type', begin: '\\b[A-Z][\\w]*(\\((\\.\\.|,|\\w+)\\))?'},
- COMMENT
- ]
- };
- var RECORD = {
- begin: '{', end: '}',
- contains: LIST.contains
- };
- var CHARACTER = {
- className: 'string',
- begin: '\'\\\\?.', end: '\'',
- illegal: '.'
- };
- return {
- keywords:
- 'let in if then else case of where module import exposing ' +
- 'type alias as infix infixl infixr port effect command subscription',
- contains: [
- // Top-level constructions.
- {
- beginKeywords: 'port effect module', end: 'exposing',
- keywords: 'port effect module where command subscription exposing',
- contains: [LIST, COMMENT],
- illegal: '\\W\\.|;'
- },
- {
- begin: 'import', end: '$',
- keywords: 'import as exposing',
- contains: [LIST, COMMENT],
- illegal: '\\W\\.|;'
- },
- {
- begin: 'type', end: '$',
- keywords: 'type alias',
- contains: [CONSTRUCTOR, LIST, RECORD, COMMENT]
- },
- {
- beginKeywords: 'infix infixl infixr', end: '$',
- contains: [hljs.C_NUMBER_MODE, COMMENT]
- },
- {
- begin: 'port', end: '$',
- keywords: 'port',
- contains: [COMMENT]
- },
- // Literals and names.
- CHARACTER,
- hljs.QUOTE_STRING_MODE,
- hljs.C_NUMBER_MODE,
- CONSTRUCTOR,
- hljs.inherit(hljs.TITLE_MODE, {begin: '^[_a-z][\\w\']*'}),
- COMMENT,
- {begin: '->|<-'} // No markup, relevance booster
- ],
- illegal: /;/
- };
- };
|