[nongnu] elpa/gptel cfc8387151 1/5: gptel: Better context and rewrite highlight faces

[ELPA Syncer]

branch: elpa/gptel
commit cfc8387151e73a5626da719b51024996da80fae6
Author: Karthik Chikmagalur <karthikchikmaga...@gmail.com>
Commit: Karthik Chikmagalur <karthikchikmaga...@gmail.com>

    gptel: Better context and rewrite highlight faces
    
    * gptel-rewrite.el (gptel-rewrite-highlight-face,
    gptel--suffix-rewrite): Add a highlight face for rewrites.
    
    * gptel-context.el (gptel-context-highlight-face): Change default
    colors.
---
 gptel-context.el |  4 +++-
 gptel-rewrite.el | 11 ++++++++++-
 2 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/gptel-context.el b/gptel-context.el
index 1e1bb68514..a5cc7188a1 100644
--- a/gptel-context.el
+++ b/gptel-context.el
@@ -35,7 +35,9 @@
 (declare-function dired-get-marked-files "dired")
 
 (defface gptel-context-highlight-face
-  '((t :inherit header-line))
+  '((((background dark)  (min-colors 88)) :background "gray4" :extend t)
+    (((background light) (min-colors 88)) :background "alice blue" :extend t)
+    (t :inherit mode-line))
   "Face used to highlight gptel contexts in buffers."
   :group 'gptel)
 
diff --git a/gptel-rewrite.el b/gptel-rewrite.el
index 607e0527af..516b2fe287 100644
--- a/gptel-rewrite.el
+++ b/gptel-rewrite.el
@@ -47,6 +47,15 @@ for a particular major-mode."
   :group 'gptel
   :type 'hook)
 
+(defface gptel-rewrite-highlight-face
+  '((((class color) (min-colors 88) (background dark))
+     :background "#041714" :extend t)
+    (((class color) (min-colors 88) (background light))
+     :background "light goldenrod yellow" :extend t)
+    (t :inherit secondary-selection))
+  "Face for highlighting regions with pending rewrites."
+  :group 'gptel)
+
 ;; * Variables
 
 (defvar-keymap gptel-rewrite-actions-map
@@ -343,7 +352,7 @@ the changed regions. BUF is the (current) buffer."
                                      " READY ✓\n"))
               (add-hook 'eldoc-documentation-functions 
#'gptel--rewrite-key-help nil 'local)
               (overlay-put ov 'gptel-rewrite response)
-              (overlay-put ov 'face 'secondary-selection)
+              (overlay-put ov 'face 'gptel-rewrite-highlight-face)
               (overlay-put ov 'keymap gptel-rewrite-actions-map)
               (overlay-put ov 'before-string
                            (concat (propertize