SystemSh0cker/monaco-editor
1
0
Fork 0
mirror of https://github.com/microsoft/monaco-editor.git synced 2025-12-22 18:32:56 +01:00
Code Issues Projects Releases Packages Activity

[clojure] Add a word boundary to ensure exact matches for (comment ...).

Browse source
This commit is contained in:
Abdussalam Abdurrahman 2018-09-12 18:32:24 -07:00
parent 6f6f1b43f0
commit c77f11b1b0
2 changed files with 26 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

24
src/clojure/clojure.test.ts
View file

@ -792,6 +792,30 @@ testTokenization('clojure', [
{startIndex: 0, type: 'comment.clj'},
],
},
{
line: '(comments foo bar)',
tokens: [
{startIndex: 0, type: 'delimiter.parenthesis.clj'},
{startIndex: 1, type: 'identifier.clj'},
{startIndex: 9, type: 'white.clj'},
{startIndex: 10, type: 'identifier.clj'},
{startIndex: 13, type: 'white.clj'},
{startIndex: 14, type: 'identifier.clj'},
{startIndex: 17, type: 'delimiter.parenthesis.clj'},
]
},
{
line: '(comment6 foo bar)',
tokens: [
{startIndex: 0, type: 'delimiter.parenthesis.clj'},
{startIndex: 1, type: 'identifier.clj'},
{startIndex: 9, type: 'white.clj'},
{startIndex: 10, type: 'identifier.clj'},
{startIndex: 13, type: 'white.clj'},
{startIndex: 14, type: 'identifier.clj'},
{startIndex: 17, type: 'delimiter.parenthesis.clj'},
]
},
{
line: '(comment foo',
tokens: [

4
src/clojure/clojure.ts
View file

@ -762,13 +762,13 @@ export const language = <ILanguage>{
whitespace: [
[/\s+/, 'white'],
[/;.*$/, 'comment'],
[/\(comment/, 'comment', '@comment'],
[/\(comment\b/, 'comment', '@comment'],
],
comment: [
[/\(/, 'comment', '@push'],
[/\)/, 'comment', '@pop'],
[/[^)]/, 'comment'],
[/[^()]/, 'comment'],
],
string: [