[elpa] externals/ef-themes 09e0308984: Add support for built-in hi-lock

[ELPA Syncer]

branch: externals/ef-themes
commit 09e03089848b41d431900b37abf4bca72d061eec
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Add support for built-in hi-lock
    
    This is the 'highlight-regexp' command which is bound to M-s h r by
    default and can even be invoked as a follow-up to an isearch command.
    
    Read the comment in the code.  This is an exception to the rule.
---
 README.org   |  1 +
 ef-themes.el | 39 +++++++++++++++++++++++++++++++++++++++
 2 files changed, 40 insertions(+)

diff --git a/README.org b/README.org
index 993e74d1bc..f7e246f28f 100644
--- a/README.org
+++ b/README.org
@@ -920,6 +920,7 @@ everything most users need.
 - git-commit
 - git-rebase
 - gnus
+- hi-lock (M-x highlight-regexp) [ Part of {{{development-version}}} ]
 - image-dired
 - info
 - isearch, occur, query-replace
diff --git a/ef-themes.el b/ef-themes.el
index 277ef84fbb..40ef272e4f 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -1074,6 +1074,45 @@ Helper function for `ef-themes-preview-colors'."
     `(gnus-summary-normal-undownloaded ((,c :foreground ,warning)))
     `(gnus-summary-normal-unread (( )))
     `(gnus-summary-selected ((,c :inherit highlight)))
+;;;; hi-lock (M-x highlight-regexp)
+    ;; NOTE 2022-10-16 We hardcode color values.  We have to do this
+    ;; as the themes lack entries in their palette for such an edge
+    ;; case.  Defining those entries is not appropriate.
+    ;;
+    ;; The use of :inverse-video here is to prevert `hl-line-mode' or
+    ;; the active region from overriding those highlights.
+    `(hi-aquamarine ((((class color) (min-colors 88) (background light))
+                      :background "white" :foreground "#227f9f" :inverse-video 
t)
+                     (((class color) (min-colors 88) (background dark))
+                      :background "black" :foreground "#66cbdc" :inverse-video 
t)))
+    `(hi-black-b ((,c :inverse-video t)))
+    `(hi-black-hb ((,c :background ,bg-main :foreground ,fg-dim :inverse-video 
t)))
+    `(hi-blue ((((class color) (min-colors 88) (background light))
+                :background "white" :foreground "#3366dd" :inverse-video t)
+               (((class color) (min-colors 88) (background dark))
+                :background "black" :foreground "#aaccff" :inverse-video t)))
+    `(hi-blue-b ((,c :inherit (bold hi-blue))))
+    `(hi-green ((((class color) (min-colors 88) (background light))
+                 :background "white" :foreground "#008a00" :inverse-video t)
+                (((class color) (min-colors 88) (background dark))
+                 :background "black" :foreground "#66dd66" :inverse-video t)))
+    `(hi-green-b ((,c :inherit (bold hi-green))))
+    `(hi-pink ((((class color) (min-colors 88) (background light))
+                :background "white" :foreground "#bd30aa" :inverse-video t)
+               (((class color) (min-colors 88) (background dark))
+                :background "black" :foreground "#ff88ee" :inverse-video t)))
+    `(hi-red-b ((((class color) (min-colors 88) (background light))
+                 :background "white" :foreground "#dd0000" :inverse-video t)
+                (((class color) (min-colors 88) (background dark))
+                 :background "black" :foreground "#f06666" :inverse-video t)))
+    `(hi-salmon ((((class color) (min-colors 88) (background light))
+                  :background "white" :foreground "#af4f6f" :inverse-video t)
+                 (((class color) (min-colors 88) (background dark))
+                  :background "black" :foreground "#e08a50" :inverse-video t)))
+    `(hi-yellow ((((class color) (min-colors 88) (background light))
+                  :background "white" :foreground "#af6f00" :inverse-video t)
+                 (((class color) (min-colors 88) (background dark))
+                  :background "black" :foreground "#faea00" :inverse-video t)))
 ;;;; image-dired
     `(image-dired-thumb-flagged ((,c :background ,err)))
     `(image-dired-thumb-mark ((,c :background ,info)))