From 8b004583309db3cb68163d19c39b851b9552b2da Mon Sep 17 00:00:00 2001
From: aecepoglu <aecepoglu@fastmail.fm>
Date: Thu, 9 Jan 2020 17:07:23 +0300
Subject: [PATCH] better scheme highlighter for char,string,comment

---
 rc/filetype/scheme.kak | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/rc/filetype/scheme.kak b/rc/filetype/scheme.kak
index 06cb7992..83bdf179 100644
--- a/rc/filetype/scheme.kak
+++ b/rc/filetype/scheme.kak
@@ -38,14 +38,15 @@ require-module lisp
 add-highlighter shared/scheme regions
 add-highlighter shared/scheme/code default-region group
 
-add-highlighter shared/scheme/string region '"' (?<!\\)(\\\\)*" fill string
-add-highlighter shared/scheme/comment region ';' '$' fill comment
+add-highlighter shared/scheme/string region %{(?<!#\\)"} (?<!\\)(\\\\)*" fill string
+add-highlighter shared/scheme/comment region %{(?<!#\\);} '$' fill comment
 add-highlighter shared/scheme/comment-form region -recurse "\(" "#;\(" "\)" fill comment
 add-highlighter shared/scheme/comment-block region "#\|" "\|#" fill comment
 add-highlighter shared/scheme/quoted-form region -recurse "\(" "'\(" "\)" fill variable
 
 add-highlighter shared/scheme/code/ regex (#t|#f) 0:value
 add-highlighter shared/scheme/code/ regex \b[0-9]+\.[0-9]*\b 0:value
+add-highlighter shared/scheme/code/ regex (#\\((\w+)|(.))) 0:value
 
 evaluate-commands %sh{ exec awk -f - <<'EOF'
     BEGIN {