From: Eshel Yaron <me@eshelyaron.com>
Date: Tue, 6 Jun 2023 05:16:11 +0000 (+0300)
Subject: ENHANCED: Highlight string-style DCG terminals
X-Git-Tag: V9.1.10-sweep-0.18.4~5
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cd6b743a544ae273111f996796678fbe514a4d8a;p=sweep.git

ENHANCED: Highlight string-style DCG terminals
---

diff --git a/sweeprolog.el b/sweeprolog.el
index 58e6c71..d9de490 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -2034,6 +2034,13 @@ resulting list even when found in the current clause."
   (:weight bold)
   "Declaration options.")
 
+(sweeprolog-defface
+  dcg-string
+  (:inherit font-lock-string-face)
+  (:foreground "navyblue")
+  (:foreground "palegreen")
+  "DCG terminal strings.")
+
 ;;;; Font-lock
 
 (defun sweeprolog-analyze-start-font-lock (beg end)
@@ -2314,7 +2321,9 @@ resulting list even when found in the current clause."
     ("class"
      (list (list beg end (sweeprolog-class-face))))
     (`("decl_option" . ,_)
-     (list (list beg end (sweeprolog-declaration-option-face))))))
+     (list (list beg end (sweeprolog-declaration-option-face))))
+    (`("dcg" . "string")
+     (list (list beg end (sweeprolog-dcg-string-face))))))
 
 (defun sweeprolog-analyze-fragment-font-lock (beg end arg)
   (when-let ((face-fragments (sweeprolog-analyze-fragment-to-faces