[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/sweeprolog 87aed9cf85 3/4: Recognize and highlight built-i
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/sweeprolog 87aed9cf85 3/4: Recognize and highlight built-in predicate definitions |
Date: |
Fri, 25 Nov 2022 09:59:34 -0500 (EST) |
branch: elpa/sweeprolog
commit 87aed9cf8555945b3a61c493e4aba63162e59f40
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>
Recognize and highlight built-in predicate definitions
* sweeprolog.el (sweeprolog-analyze-fragment-to-faces): recognize
"def_swi" and "def_iso" predicate head kinds .
---
sweeprolog.el | 18 ++++++++++++++++++
1 file changed, 18 insertions(+)
diff --git a/sweeprolog.el b/sweeprolog.el
index 94ccb26072..d9bce9ba41 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -1334,6 +1334,20 @@ resulting list even when found in the current clause."
(:background "orange" :weight bold)
"ISO specified predicate definitions.")
+(sweeprolog-defface
+ head-def-iso
+ (:inherit font-lock-builtin-face)
+ (:foreground "blue" :weight bold)
+ (:foreground "cyan" :weight bold)
+ "Built-in ISO specified predicate definitions.")
+
+(sweeprolog-defface
+ head-def-swi
+ (:inherit font-lock-builtin-face)
+ (:foreground "blue" :weight bold)
+ (:foreground "cyan" :weight bold)
+ "Built-in SWI-Prolog predicate definitions.")
+
(sweeprolog-defface
head-imported
(:inherit font-lock-function-name-face)
@@ -1799,6 +1813,10 @@ resulting list even when found in the current clause."
(list (list beg end (sweeprolog-head-test-face))))
(`("head" "meta" . ,_)
(list (list beg end (sweeprolog-head-meta-face))))
+ (`("head" "def_iso" . ,_)
+ (list (list beg end (sweeprolog-head-def-iso-face))))
+ (`("head" "def_swi" . ,_)
+ (list (list beg end (sweeprolog-head-def-swi-face))))
(`("head" "iso" . ,_)
(list (list beg end (sweeprolog-head-iso-face))))
(`("head" "exported" . ,_)