From 41ce602574456b284c97be4f79ab03eba44ddcc8 Mon Sep 17 00:00:00 2001
From: Maxime Coste <mawww@kakoune.org>
Date: Sat, 19 Jan 2019 10:29:23 +1100
Subject: [PATCH] Fix some escaping issues in clojure.kak

---
 rc/base/clojure.kak | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/rc/base/clojure.kak b/rc/base/clojure.kak
index 1ea50a0a..d7c89da1 100644
--- a/rc/base/clojure.kak
+++ b/rc/base/clojure.kak
@@ -31,7 +31,7 @@ evaluate-commands %sh{
     exec awk '
     BEGIN{
         symbol_char="[^\\s()\\[\\]{}\"\\;@^`~\\\\%/]";
-        in_core="(clojure\.core/|(?<!/))";
+        in_core="(clojure\\.core/|(?<!/))";
         split( \
         "case cond condp cond-> cond->> def definline definterface defmacro defmethod "\
         "defmulti defn defn- defonce defprotocol defrecord defstruct deftype fn if "\
@@ -147,9 +147,9 @@ evaluate-commands %sh{
         printf("add-highlighter shared/clojure/code/ regex ::?(%s+/)?%s+ 0:value\n", symbol_char, symbol_char);
 
         # Numbers
-        printf("add-highlighter shared/clojure/code/ regex (?<!%s)[-+]?(?:0(?:[xX][0-9a-fA-F]+|[0-7]*)|[1-9]\d*)N? 0:value\n", symbol_char);
-        printf("add-highlighter shared/clojure/code/ regex (?<!%s)[-+]?(?:0|[1-9]\d*)(?:\.\d*)(?:M|[eE][-+]?\d+)? 0:value\n", symbol_char);
-        printf("add-highlighter shared/clojure/code/ regex (?<!%s)[-+]?(?:0|[1-9]\d*)/(?:0|[1-9]\d*) 0:value\n", symbol_char);
+        printf("add-highlighter shared/clojure/code/ regex (?<!%s)[-+]?(?:0(?:[xX][0-9a-fA-F]+|[0-7]*)|[1-9]\\d*)N? 0:value\n", symbol_char);
+        printf("add-highlighter shared/clojure/code/ regex (?<!%s)[-+]?(?:0|[1-9]\\d*)(?:\\.\\d*)(?:M|[eE][-+]?\\d+)? 0:value\n", symbol_char);
+        printf("add-highlighter shared/clojure/code/ regex (?<!%s)[-+]?(?:0|[1-9]\\d*)/(?:0|[1-9]\\d*) 0:value\n", symbol_char);
 
         print_word_highlighter(keywords, "keyword");
         print_word_highlighter(core_fns, "function");