[nongnu] elpa/sweeprolog cd6b743a54 1/6: ENHANCED: Highlight string-style DCG terminals

[ELPA Syncer]

branch: elpa/sweeprolog
commit cd6b743a544ae273111f996796678fbe514a4d8a
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>

    ENHANCED: Highlight string-style DCG terminals
---
 sweeprolog.el | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/sweeprolog.el b/sweeprolog.el
index 58e6c717f4..d9de4908ae 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