From: Eshel Yaron <me@eshelyaron.com>
Date: Sun, 24 Sep 2023 20:24:01 +0000 (+0200)
Subject: ; Avoid relying on 'diff-mode' faces
X-Git-Tag: V9.1.16-sweep-0.25.3~12
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=659d6033f4808ee41c9dfc10b83d14c077cae2e4;p=sweep.git

; Avoid relying on 'diff-mode' faces

* sweeprolog.el (sweeprolog-query-replace-term-prompt-old)
(sweeprolog-query-replace-term-prompt-new): New faces.
(sweeprolog-query-replace-term): Use them instead of 'diff-mode'
faces.
---

diff --git a/sweeprolog.el b/sweeprolog.el
index 4a9b157..cfc524a 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -2328,6 +2328,24 @@ inside a comment, string or quoted atom."
   "Face for highlighting the current term replacement match."
   :group 'sweeprolog-faces)
 
+(defface sweeprolog-query-replace-term-prompt-old
+  '((((class color) (min-colors 88) (background light))
+     :background "#ffdddd" :extend t)
+    (((class color) (min-colors 88) (background dark))
+     :background "#553333" :extend t)
+    (((class color))
+     :foreground "red" :extend t))
+  "Face to use for the old term in `sweeprolog-query-replace-term' queries.")
+
+(defface sweeprolog-query-replace-term-prompt-new
+  '((((class color) (min-colors 88) (background light))
+     :background "#ddffdd" :extend t)
+    (((class color) (min-colors 88) (background dark))
+     :background "#335533" :extend t)
+    (((class color))
+     :foreground "green" :extend t))
+  "Face to use for the new term in `sweeprolog-query-replace-term' queries.")
+
 ;;;; Font-lock
 
 (defun sweeprolog-analyze-start-font-lock (beg end)
@@ -5967,9 +5985,9 @@ prompt for CLASS as well."
               (pcase
                   (car (read-multiple-choice
                         (mapconcat #'identity
-                                   (list "Replace" (propertize cur 'face 'diff-removed)
+                                   (list "Replace" (propertize cur 'face 'sweeprolog-query-replace-term-prompt-old)
                                          (if try "back to" "with")
-                                         (propertize rep 'face 'diff-added)
+                                         (propertize rep 'face 'sweeprolog-query-replace-term-prompt-new)
                                          "?")
                                    (if (or (string-search "\n" cur)
                                            (string-search "\n" rep))