[nongnu] elpa/alect-themes d746186 09/11: Modify/add 'w3m' faces

[ELPA Syncer]

branch: elpa/alect-themes
commit d746186f8c8e1bce32f28904647babbf468c3ef2
Author: Alex Kost <alezost@gmail.com>
Commit: Alex Kost <alezost@gmail.com>

    Modify/add 'w3m' faces
---
 alect-themes.el | 19 ++++++++++++++-----
 1 file changed, 14 insertions(+), 5 deletions(-)

diff --git a/alect-themes.el b/alect-themes.el
index a355dbb..25e0049 100644
--- a/alect-themes.el
+++ b/alect-themes.el
@@ -1732,8 +1732,16 @@ For INVERT, see `alect-get-color'."
          (vc-removed-state       ((,c :foreground ,(gc 'red-1))))
 
          ;; emacs-w3m
-         (w3m-anchor                       ((,c :inherit link)))
-         (w3m-arrived-anchor               ((,c :inherit link-visited)))
+         (w3m-anchor                       ((,c :inherit link
+                                                :underline nil)))
+         (w3m-arrived-anchor               ((,c :inherit link-visited
+                                                :underline nil)))
+         (w3m-current-anchor               ((,c :inherit link
+                                                :weight bold)))
+         (w3m-image-anchor                 ((,c :inherit w3m-anchor
+                                                :box (:line-width -1
+                                                      :color ,(gc 'green)
+                                                      :style nil))))
          (w3m-form                         ((,c :foreground ,(gc 'red-1)
                                                 :underline t)))
          (w3m-form-button                  ((,c :inherit alect-button)))
@@ -1750,11 +1758,12 @@ For INVERT, see `alect-get-color'."
          (w3m-tab-unselected-unseen        ((,c :inherit w3m-tab-unselected
                                                 :foreground ,(gc 'fg))))
          (w3m-tab-mouse                    ((,c :inherit alect-tab-mouse)))
-         (w3m-header-line-location-title   ((,c :inherit header-line)))
-         (w3m-header-line-location-content ((,c :foreground ,(gc 'blue-1)
+         (w3m-header-line-background       ((,c :background ,(gc 'bg))))
+         (w3m-header-line-title            ((,c :inherit (alect-title
+                                                          header-line))))
+         (w3m-header-line-content          ((,c :foreground ,(gc 'blue-1)
                                                 :inherit header-line)))
          (w3m-history-current-url          ((,c :inherit alect-selected-item)))
-         (w3m-image-anchor                 ((,c :background ,(gc 'bg+1))))
 
          ;; which-func-mode
          (which-func ((,c :inherit font-lock-function-name-face)))