Added keywords and support for ?

vedderb · Sep 29, 2024 · 45f733e · 45f733e
1 parent a7480fe
commit 45f733e
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/QCodeEditor/resources/languages/lisp.xml b/QCodeEditor/resources/languages/lisp.xml
@@ -543,5 +543,7 @@
 <name>connected-ble</name>
 <name>connected-usb</name>
 <name>aes-ctr-crypt</name>
+<name>number?</name>
+<name>list?</name>
 </section>
 </root>
diff --git a/QCodeEditor/src/internal/LispHighlighter.cpp b/QCodeEditor/src/internal/LispHighlighter.cpp
@@ -35,7 +35,7 @@ LispHighlighter::LispHighlighter(QTextDocument* document) :
         for (auto&& name : names)
         {
             m_highlightRulesLang.append({
-                QRegularExpression(QString(R"(\b%1\b)").arg(name.replace("-", "_"))),
+                QRegularExpression(QString(R"(\b%1\b)").arg(name.replace("-", "_").replace("?", "_"))),
                 key
             });
         }
@@ -63,7 +63,7 @@ LispHighlighter::LispHighlighter(QTextDocument* document) :
 void LispHighlighter::highlightBlock(const QString& text)
 {
     for (auto&& rule : m_highlightRulesLang) {
-        auto matchIterator = rule.pattern.globalMatch(QString(text).replace("-", "_").replace("#", "_"));
+        auto matchIterator = rule.pattern.globalMatch(QString(text).replace("-", "_").replace("#", "_").replace("?", "_"));
 
         while (matchIterator.hasNext()) {
             auto match = matchIterator.next();