From a9ee4e8af4fa51c4eae92ce7db31153d1a20f6a1 Mon Sep 17 00:00:00 2001
From: Maxime Coste <mawww@kakoune.org>
Date: Sun, 20 Jan 2019 12:32:31 +1100
Subject: [PATCH] Small optimization in clojure.kak awk script

---
 rc/base/clojure.kak | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/rc/base/clojure.kak b/rc/base/clojure.kak
index 885135dc..451c13f5 100644
--- a/rc/base/clojure.kak
+++ b/rc/base/clojure.kak
@@ -122,18 +122,14 @@ evaluate-commands %sh{
         "*print-length* *print-level* *print-meta* *print-namespace-maps* "\
         "*print-readably* *read-eval* *unchecked-math* *warn-on-reflection*", core_vars);
     }
-    function print_word_highlighter(words, face) {
+    function print_word_highlighter(words, face, first) {
         printf("add-highlighter shared/clojure/code/ regex (?<!%s)%s(", \
                symbol_char, in_core);
         first = 1;
         for (i in words) {
-            if (!first) {
-                printf("|");
-            }
+            if (!first) { printf("|"); }
+            printf("\\Q%s\\E", words[i]);
             first = 0;
-            word = words[i];
-            gsub(/[+?#*\.]/, "\\\\&", word);
-            printf("%s", word);
         }
         printf(")(?!%s) 0:%s\n", symbol_char, face);
     }