From cd6b743a544ae273111f996796678fbe514a4d8a Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Tue, 6 Jun 2023 08:16:11 +0300 Subject: [PATCH] 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 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 -- 2.39.5