From 8691c1557a0ecf6556c8bf81df29799f3ce10427 Mon Sep 17 00:00:00 2001
From: aecepoglu <aecepoglu@fastmail.fm>
Date: Mon, 22 Jul 2019 23:49:15 +0300
Subject: [PATCH] ocaml.kak fix '"' and char literals

---
 rc/filetype/ocaml.kak | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/rc/filetype/ocaml.kak b/rc/filetype/ocaml.kak
index 33a4dbd46..af31001a3 100644
--- a/rc/filetype/ocaml.kak
+++ b/rc/filetype/ocaml.kak
@@ -28,9 +28,11 @@ provide-module ocaml %{
 
 add-highlighter shared/ocaml regions
 add-highlighter shared/ocaml/code default-region group
-add-highlighter shared/ocaml/string region '"' (?<!\\)(\\\\)*" fill string
+add-highlighter shared/ocaml/string region (?<!')" (?<!\\)(\\\\)*" fill string
 add-highlighter shared/ocaml/comment region \Q(* \Q*) fill comment
 
+add-highlighter shared/ocaml/code/char regex %{\B'([^'\\]|(\\[\\"'nrtb])|(\\\d{3})|(\\x[a-fA-F0-9]{2})|(\\o[0-7]{3}))'\B} 0:value
+
 # Macro
 # ‾‾‾‾‾