130 lines
		
	
	
		
			2.4 KiB
		
	
	
	
		
			JavaScript
		
	
	
	
	
	
			
		
		
	
	
			130 lines
		
	
	
		
			2.4 KiB
		
	
	
	
		
			JavaScript
		
	
	
	
	
	
| /*
 | |
| Language: Elm
 | |
| Author: Janis Voigtlaender <janis.voigtlaender@gmail.com>
 | |
| Website: https://elm-lang.org
 | |
| Category: functional
 | |
| */
 | |
| 
 | |
| /** @type LanguageFn */
 | |
| function elm(hljs) {
 | |
|   const COMMENT = {
 | |
|     variants: [
 | |
|       hljs.COMMENT('--', '$'),
 | |
|       hljs.COMMENT(
 | |
|         /\{-/,
 | |
|         /-\}/,
 | |
|         {
 | |
|           contains: ['self']
 | |
|         }
 | |
|       )
 | |
|     ]
 | |
|   };
 | |
| 
 | |
|   const CONSTRUCTOR = {
 | |
|     className: 'type',
 | |
|     begin: '\\b[A-Z][\\w\']*', // TODO: other constructors (built-in, infix).
 | |
|     relevance: 0
 | |
|   };
 | |
| 
 | |
|   const LIST = {
 | |
|     begin: '\\(',
 | |
|     end: '\\)',
 | |
|     illegal: '"',
 | |
|     contains: [
 | |
|       {
 | |
|         className: 'type',
 | |
|         begin: '\\b[A-Z][\\w]*(\\((\\.\\.|,|\\w+)\\))?'
 | |
|       },
 | |
|       COMMENT
 | |
|     ]
 | |
|   };
 | |
| 
 | |
|   const RECORD = {
 | |
|     begin: /\{/,
 | |
|     end: /\}/,
 | |
|     contains: LIST.contains
 | |
|   };
 | |
| 
 | |
|   const 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;
 |