123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899 |
- /*
- Language: Elm
- Author: Janis Voigtlaender <janis.voigtlaender@gmail.com>
- Website: https://elm-lang.org
- Category: functional
- */
- function elm(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 {
- name: 'Elm',
- 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: /;/
- };
- }
- module.exports = elm;
|