add emacs #1297
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,179 @@ | ||
| Prism.languages.emacs = (function () { | ||
| // Patterns in regular expressions | ||
|
|
||
| // Symbol name. See https://www.gnu.org/software/emacs/manual/html_node/elisp/Symbol-Type.html | ||
| // & and : are excluded as they are usually used for special purposes | ||
| const symbol = '[-+*/_~!@$%^=<>{}\\w]+'; | ||
|
There was a problem hiding this comment.
|
||
| // symbol starting with & used in function arguments | ||
| const marker = '&' + symbol; | ||
| // Open parenthesis for look-behind | ||
| const par = '(\\()'; | ||
| const endpar = '(?=\\))'; | ||
| // End the pattern with look-ahead space | ||
| const space = '(?=\\s)'; | ||
|
|
||
| // Functions to construct regular expressions | ||
| // simple form | ||
| // e.g. (interactive ... or (interactive) | ||
| const simple_form = name => new RegExp(`(\\()${name}(?=[\\s\\)])`); | ||
|
There was a problem hiding this comment.
|
||
| // booleans and numbers | ||
| const primitive = pattern => new RegExp(`([\\s\\(\\[])${pattern}(?=[\\s\\)])`); | ||
|
There was a problem hiding this comment. No need to espace the opening and closing parentheses in the character classes here. |
||
|
|
||
| var language = { | ||
| // Three or four semicolons are considered a heading. | ||
| // See https://www.gnu.org/software/emacs/manual/html_node/elisp/Comment-Tips.html | ||
| 'heading': { | ||
| pattern: /;;;.*/, | ||
| alias: ['comment', 'title'] | ||
| }, | ||
| 'comment': /;.*/, | ||
| 'string': { | ||
| pattern: /"(?:[^"\\]*|\\.)*"/, | ||
|
There was a problem hiding this comment. What about line feeds? Are multiline strings supported in Emacs Lisp? If not, the character class should probably also exclude There was a problem hiding this comment. I think multiline feeds are supported, I say that because this is a valid function definition (defun multiply-by-seven (number)
"Multiply NUMBER by seven,
second line"
(* 7 number)) |
||
| greedy: true, | ||
| inside: { | ||
| 'argument': /[-A-Z]+(?=[.,\s])/, | ||
| 'symbol': new RegExp("`" + symbol + "'") | ||
| } | ||
| }, | ||
| 'quoted-symbol': { | ||
| pattern: new RegExp('#?\'' + symbol), | ||
| alias: ['variable', 'symbol'] | ||
| }, | ||
| 'lisp-property': { | ||
| pattern: new RegExp(':' + symbol), | ||
| alias: 'property' | ||
| }, | ||
| 'splice': { | ||
| pattern: new RegExp(",@?" + symbol), | ||
| alias: ['symbol', 'variable'] | ||
| }, | ||
| 'keyword': [ | ||
| { | ||
| pattern: new RegExp(par + "(?:(?:lexical-)?let\\*?|(?:cl-)?letf|if|when|while|unless|cons|cl-loop|and|or|not|cond|setq|error|message|null|require|provide|use-package)" + space), | ||
| lookbehind: true | ||
| }, | ||
| { | ||
| pattern: new RegExp(par + "(?:for|do|collect|return|finally|append|concat|in|by)" + space), | ||
| lookbehind: true | ||
| } | ||
| ], | ||
| 'declare': { | ||
| pattern: simple_form("declare"), | ||
| lookbehind: true, | ||
| alias: 'keyword' | ||
| }, | ||
| 'interactive': { | ||
| pattern: simple_form("interactive"), | ||
| lookbehind: true, | ||
| alias: 'keyword' | ||
| }, | ||
| 'boolean': { | ||
| pattern: primitive("(?:t|nil)"), | ||
| lookbehind: true | ||
| }, | ||
| 'number': [ | ||
| { | ||
| pattern: primitive("[-+]?\\d+(?:\\.\\d*)?"), | ||
| lookbehind: true | ||
| } | ||
| ], | ||
|
There was a problem hiding this comment. Since the array contains only one pattern, it could be be removed. |
||
| 'defvar': { | ||
| pattern: new RegExp(par + 'def(?:var|const|custom|group)\\s+' + symbol), | ||
| lookbehind: true, | ||
| inside: { | ||
| 'keyword': /def[a-z]+/, | ||
|
There was a problem hiding this comment. I wonder what the highlighting would be here with a code piece like |
||
| 'variable': new RegExp(symbol) | ||
| } | ||
| }, | ||
| 'defun': { | ||
| pattern: new RegExp(par + `(?:cl-)?(?:defun\\*?|defmacro)\\s+${symbol}\\s+\\([\\s\\S]*\\)`), | ||
| lookbehind: true, | ||
| inside: { | ||
| 'keyword': /(?:cl-)?def\S+/, | ||
|
There was a problem hiding this comment. A |
||
| 'arguments': null, | ||
| 'function': { | ||
| pattern: new RegExp('(^\\s)' + symbol), | ||
| lookbehind: true | ||
| }, | ||
| 'punctuation': /[()]/ | ||
| } | ||
| }, | ||
| 'lambda': { | ||
| pattern: new RegExp(par + `lambda\\s+\\((?:&?${symbol}\\s*)*\\)`), | ||
| lookbehind: true, | ||
| inside: { | ||
| 'keyword': /lambda/, | ||
|
There was a problem hiding this comment. A ^ anchor might be needed here too. |
||
| 'arguments': null, | ||
| 'punctuation': /[()]/ | ||
| } | ||
| }, | ||
| 'car': { | ||
| pattern: new RegExp(par + symbol), | ||
| lookbehind: true | ||
| }, | ||
| 'punctuation': [ | ||
| // open paren | ||
| /['`,]?\(/, | ||
| // brackets and close paren | ||
| /[)\[\]]/, | ||
| // cons | ||
| { | ||
| pattern: /(\s)\.(?=\s)/, | ||
| lookbehind: true | ||
| } | ||
| ] | ||
| }; | ||
|
|
||
| const arg = { | ||
| 'lisp-marker': new RegExp(marker), | ||
| 'rest': { | ||
| 'argument': { | ||
| pattern: new RegExp(symbol), | ||
| alias: 'variable' | ||
| }, | ||
| 'varform': { | ||
| pattern: new RegExp(par + symbol + "\\s+\\S[\\s\\S]*" + endpar), | ||
| lookbehind: true, | ||
| inside: { | ||
| 'string': language.string, | ||
| 'boolean': language.boolean, | ||
| 'number': language.number, | ||
| 'symbol': language.symbol, | ||
| 'punctuation': /[()]/ | ||
| } | ||
| } | ||
| } | ||
| }; | ||
|
|
||
| const forms = "\\S+(?:\\s+\\S+)*"; | ||
|
|
||
| const arglist = { | ||
| pattern: new RegExp(par + "[\\s\\S]*" + endpar), | ||
| lookbehind: true, | ||
| inside: { | ||
| 'rest-vars': { | ||
| pattern: new RegExp("&(?:rest|body)\\s+" + forms), | ||
| inside: arg | ||
| }, | ||
| 'other-marker-vars': { | ||
| pattern: new RegExp("&(?:optional|aux)\\s+" + forms), | ||
| inside: arg | ||
| }, | ||
| 'keys': { | ||
| pattern: new RegExp("&key\\s+" + forms + "(?:\\s+&allow-other-keys)?"), | ||
| inside: arg | ||
| }, | ||
| 'argument': { | ||
| pattern: new RegExp(symbol), | ||
| alias: 'variable' | ||
| }, | ||
| 'punctuation': /[()]/ | ||
| } | ||
| }; | ||
|
|
||
| language['lambda'].inside.arguments = arglist; | ||
| language['defun'].inside.arguments = Prism.util.clone(arglist); | ||
| language['defun'].inside.arguments.inside.sublist = arglist; | ||
|
|
||
| return language; | ||
| })(); | ||
Add this suggestion to a batch that can be applied as a single commit.
This suggestion is invalid because no changes were made to the code.
Suggestions cannot be applied while the pull request is closed.
Suggestions cannot be applied while viewing a subset of changes.
Only one suggestion per line can be applied in a batch.
Add this suggestion to a batch that can be applied as a single commit.
Applying suggestions on deleted lines is not supported.
You must change the existing code in this line in order to create a valid suggestion.
Outdated suggestions cannot be applied.
This suggestion has been applied or marked resolved.
Suggestions cannot be applied from pending reviews.
Suggestions cannot be applied on multi-line comments.
Suggestions cannot be applied while the pull request is queued to merge.
Suggestion cannot be applied right now. Please check back later.
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
emacsis an editor before being a language. I think it would be less confusing to name the componentemacs-lisp.