fixed keyword that contains `-`

src/clojure/clojure.test.ts

@@ -27,6 +27,14 @@ testTokenization('clojure', [
 	{ startIndex: 8, type: 'string.clj'},
       ],
     },
+    {
+      line: 'in-ns "user',
+      tokens: [
+        { startIndex: 0, type: 'keyword.clj' },
+        { startIndex: 5, type: 'white.clj' },
+        { startIndex: 6, type: 'string.clj' },
+      ],
+    },
   ],
 
   // comments

src/clojure/clojure.ts

@@ -44,9 +44,9 @@ export const language = <ILanguage>{
 
   keywords: [
     'ns',
-    'ns-unmap',
-    'create-ns',
-    'in-ns',
+    'ns\-unmap',
+    'create\-ns',
+    'in\-ns',
     'fn',
     'def',
     'defn',
@@ -71,15 +71,15 @@ export const language = <ILanguage>{
     'iterate',
     'range',
     'drop',
-    'drop\\-while',
+    'drop\-while',
     'take',
-    'take\\-while',
+    'take\-while',
     'neg',
     'neg?',
-    'bound\\-fn',
+    'bound\-fn',
     'if',
-    'if\\-not',
-    'if\\-let',
+    'if\-not',
+    'if\-let',
     'case,',
     'contains',
     'conj',
@@ -97,13 +97,13 @@ export const language = <ILanguage>{
     'contains?',
     'cond',
     'condp',
-    'cond\\-\\>',
-    'cond\\-\\>\\>',
+    'cond\-\>',
+    'cond\-\>\>',
     'when',
     'while',
-    'when\\-not',
-    'when\\-let',
-    'when\\-first',
+    'when\-not',
+    'when\-let',
+    'when\-first',
     'do',
     'future',
     'comment',
@@ -114,7 +114,7 @@ export const language = <ILanguage>{
     'type',
     'meta',
     'var',
-    'as\\-\\>',
+    'as\-\>',
     'reify',
     'deftype',
     'defrecord',
@@ -123,7 +123,7 @@ export const language = <ILanguage>{
     'extend-protocol',
     'extend-type',
     'specify',
-    'specify\\!',
+    'specify\!',
     'try',
     'catch',
     'finally',
@@ -135,25 +135,25 @@ export const language = <ILanguage>{
     'seq',
     'doseq',
     'dotimes',
-    'when\\-let',
-    'if\\-let',
-    'when\\-some',
-    'if\\-some',
-    'this\\-as',
+    'when\-let',
+    'if\-let',
+    'when\-some',
+    'if\-some',
+    'this\-as',
     'defmethod',
     'testing',
     'deftest',
     'are',
-    'use\\-fixtures',
+    'use\-fixtures',
     'use',
     'remove',
     'run',
-    'run\\*',
+    'run\*',
     'fresh',
     'alt!',
     'alt!!',
     'go',
-    'go\\-loop',
+    'go\-loop',
     'thread',
   ],