emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/alect-themes 1cb6642 189/269: Remove unsupported modes.


From: ELPA Syncer
Subject: [nongnu] elpa/alect-themes 1cb6642 189/269: Remove unsupported modes.
Date: Thu, 21 Oct 2021 17:59:16 -0400 (EDT)

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

    Remove unsupported modes.
    
    These faces were initially inherited from zenburn and have
    never been tested.  The quality of these customizations is doubtful
    (some faces may not even exist), so just remove them to avoid potential
    confusions (like <https://github.com/alezost/alect-themes/issues/4>).
    
    If someone will be interested in any of these modes, they should be
    themed properly.
---
 alect-themes.el | 240 +-------------------------------------------------------
 1 file changed, 3 insertions(+), 237 deletions(-)

diff --git a/alect-themes.el b/alect-themes.el
index 62185ca..f95fb62 100644
--- a/alect-themes.el
+++ b/alect-themes.el
@@ -494,29 +494,6 @@ For INVERT, see `alect-get-color'."
          (alect-tab-mouse      ((,c :inherit alect-tab-default
                                     :inherit mode-line-highlight)))
 
-         ;; ace-jump
-         (ace-jump-face-background ((,c :foreground ,(gc 'bg+2)
-                                        :background ,(gc 'bg-1)
-                                        :inverse-video nil)))
-         (ace-jump-face-foreground ((,c :foreground ,(gc 'green+2)
-                                        :background ,(gc 'bg-1)
-                                        :inverse-video nil)))
-
-         ;; ack
-         (ack-separator  ((,c :foreground ,(gc 'fg+1))))
-         (ack-file       ((,c :foreground ,(gc 'blue))))
-         (ack-line       ((,c :foreground ,(gc 'yellow))))
-         (ack-match      ((,c :foreground ,(gc 'fg-2)
-                              :background ,(gc 'bg-2) :weight bold)))
-
-         ;; android mode
-         (android-mode-debug-face    ((,c :foreground ,(gc 'green+1))))
-         (android-mode-error-face    ((,c :foreground ,(gc 'fg-2)
-                                          :weight bold)))
-         (android-mode-info-face     ((,c :foreground ,(gc 'fg+1))))
-         (android-mode-verbose-face  ((,c :foreground ,(gc 'green))))
-         (android-mode-warning-face  ((,c :foreground ,(gc 'yellow))))
-
          ;; apropos
          (apropos-keybinding      ((,c :inherit alect-key)))
          (apropos-symbol          ((,c :foreground ,(gc 'green+1)
@@ -556,16 +533,6 @@ For INVERT, see `alect-get-color'."
          (ac-completion-face      ((,c :foreground ,(gc 'fg-2))))
          (ac-candidate-mouse-face ((,c :inherit highlight)))
 
-         ;; bm
-         (bm-face                   ((,c :background ,(gc 'yellow-1)
-                                         :foreground ,(gc 'bg-1))))
-         (bm-fringe-face            ((,c :background ,(gc 'yellow-1)
-                                         :foreground ,(gc 'bg-1))))
-         (bm-fringe-persistent-face ((,c :background ,(gc 'green-1)
-                                         :foreground ,(gc 'bg-1))))
-         (bm-persistent-face        ((,c :background ,(gc 'green-1)
-                                         :foreground ,(gc 'bg-1))))
-
          ;; calendar, diary
          (calendar-today    ((,c :box (:line-width -1
                                        :color ,(gc 'red)
@@ -585,14 +552,6 @@ For INVERT, see `alect-get-color'."
          (change-log-function       ((,c :foreground ,(gc 'yellow))))
          (change-log-acknowledgment ((,c :inherit font-lock-keyword-face)))
 
-         ;; clojure-test-mode
-         (clojure-test-failure-face ((,c :foreground ,(gc 'fg-2)
-                                         :weight bold :underline t)))
-         (clojure-test-error-face   ((,c :foreground ,(gc 'red)
-                                         :weight bold :underline t)))
-         (clojure-test-success-face ((,c :foreground ,(gc 'green+1)
-                                         :weight bold :underline t)))
-
          ;; comint
          (comint-highlight-prompt ((,c :inherit alect-prompt)))
          (comint-highlight-input  ((,c :weight bold)))
@@ -713,19 +672,6 @@ For INVERT, see `alect-get-color'."
          (ediff-even-diff-C ((,c :inherit ediff-even-diff-A)))
          (ediff-odd-diff-C  ((,c :inherit ediff-odd-diff-A)))
 
-         ;; egg
-         (egg-text-base        ((,c :foreground ,(gc 'fg+1))))
-         (egg-help-header-1    ((,c :foreground ,(gc 'cyan+1))))
-         (egg-help-header-2    ((,c :foreground ,(gc 'cyan-1))))
-         (egg-branch           ((,c :foreground ,(gc 'yellow))))
-         (egg-branch-mono      ((,c :foreground ,(gc 'yellow+1))))
-         (egg-term             ((,c :foreground ,(gc 'blue))))
-         (egg-diff-add         ((,c :foreground ,(gc 'green-2))))
-         (egg-diff-del         ((,c :foreground ,(gc 'red+1))))
-         (egg-diff-file-header ((,c :foreground ,(gc 'yellow-2))))
-         (egg-section-title    ((,c :foreground ,(gc 'red-1))))
-         (egg-stash-mono       ((,c :foreground ,(gc 'green))))
-
          ;; eldoc
          (eldoc-highlight-function-argument ((,c :foreground ,(gc 'green)
                                                  :weight bold)))
@@ -838,22 +784,6 @@ For INVERT, see `alect-get-color'."
          (geiser-font-lock-error-link         ((,c :inherit (error link))))
          (geiser-font-lock-autodoc-identifier ((,c :inherit 
font-lock-keyword-face)))
 
-         ;; git-gutter
-         (git-gutter:added       ((,c :foreground ,(gc 'green)
-                                      :weight bold :inverse-video t)))
-         (git-gutter:deleted     ((,c :foreground ,(gc 'red)
-                                      :weight bold :inverse-video t)))
-         (git-gutter:modified    ((,c :foreground ,(gc 'magenta)
-                                      :weight bold :inverse-video t)))
-         (git-gutter:unchanged   ((,c :foreground ,(gc 'fg+1)
-                                      :weight bold :inverse-video t)))
-         (git-gutter-fr:added    ((,c :foreground ,(gc 'green)
-                                      :weight bold)))
-         (git-gutter-fr:deleted  ((,c :foreground ,(gc 'red)
-                                      :weight bold)))
-         (git-gutter-fr:modified ((,c :foreground ,(gc 'magenta)
-                                      :weight bold)))
-
          ;; gnus
          (gnus-group-news-1-empty      ((,c :inherit alect-color-level-1)))
          (gnus-group-news-2-empty      ((,c :inherit alect-color-level-2)))
@@ -945,11 +875,6 @@ For INVERT, see `alect-get-color'."
          (google-translate-suggestion-face       ((,c :inherit button)))
          (google-translate-listen-button-face    ((,c :inherit alect-button)))
 
-         ;; guide-key
-         (guide-key/highlight-command-face ((,c :foreground ,(gc 'blue))))
-         (guide-key/key-face ((,c :foreground ,(gc 'green))))
-         (guide-key/prefix-command-face ((,c :foreground ,(gc 'green+1))))
-
          ;; guix
          (guix-info-param-title                 ((,c :foreground ,(gc 
'yellow+1))))
          (guix-info-time                        ((,c :inherit alect-time)))
@@ -1044,28 +969,6 @@ For INVERT, see `alect-get-color'."
          (lazy-highlight       ((,c :foreground ,(gc 'bg-2)
                                     :background ,(gc 'gray))))
 
-         ;; js2-mode
-         (js2-warning-face           ((,c :foreground,(gc 'fg-2))))
-         (js2-error-face             ((,c :inherit error)))
-         (js2-jsdoc-tag-face         ((,c :foreground ,(gc 'green-1))))
-         (js2-jsdoc-type-face        ((,c :foreground ,(gc 'green+2))))
-         (js2-jsdoc-value-face       ((,c :foreground ,(gc 'cyan-1))))
-         (js2-function-param-face    ((,c :foreground ,(gc 'cyan-1))))
-         (js2-external-variable-face ((,c :foreground ,(gc 'fg-2))))
-
-         ;; jabber-mode
-         (jabber-roster-user-away       ((,c :foreground ,(gc 'green+2))))
-         (jabber-roster-user-online     ((,c :foreground ,(gc 'blue-1))))
-         (jabber-roster-user-dnd        ((,c :foreground ,(gc 'red+1))))
-         (jabber-rare-time-face         ((,c :inherit alect-time)))
-         (jabber-chat-prompt-local      ((,c :foreground ,(gc 'blue-1))))
-         (jabber-chat-prompt-foreign    ((,c :foreground ,(gc 'red+1))))
-         (jabber-activity-face          ((,c :foreground ,(gc 'red+1))))
-         (jabber-activity-personal-face ((,c :foreground ,(gc 'blue+1))))
-         (jabber-title-small            ((,c :height 1.1 :weight bold)))
-         (jabber-title-medium           ((,c :height 1.2 :weight bold)))
-         (jabber-title-large            ((,c :height 1.3 :weight bold)))
-
          ;; linum-mode
          (linum ((,c :foreground ,(gc 'fg-2))))
 
@@ -1271,58 +1174,8 @@ For INVERT, see `alect-get-color'."
          (message-mml               ((,c :foreground ,(gc 'cyan-2)
                                          :weight bold)))
 
-         ;; mew
-         (mew-face-header-subject    ((,c :foreground ,(gc 'fg-2))))
-         (mew-face-header-from       ((,c :foreground ,(gc 'yellow))))
-         (mew-face-header-date       ((,c :inherit alect-time)))
-         (mew-face-header-to         ((,c :foreground ,(gc 'red))))
-         (mew-face-header-key        ((,c :foreground ,(gc 'green))))
-         (mew-face-header-private    ((,c :foreground ,(gc 'green))))
-         (mew-face-header-important  ((,c :foreground ,(gc 'blue))))
-         (mew-face-header-marginal   ((,c :foreground ,(gc 'fg+1)
-                                          :weight bold)))
-         (mew-face-header-warning    ((,c :foreground ,(gc 'red))))
-         (mew-face-header-xmew       ((,c :foreground ,(gc 'green))))
-         (mew-face-header-xmew-bad   ((,c :foreground ,(gc 'red))))
-         (mew-face-body-url          ((,c :foreground ,(gc 'fg-2))))
-         (mew-face-body-comment      ((,c :foreground ,(gc 'fg+1)
-                                          :slant italic)))
-         (mew-face-body-cite1        ((,c :foreground ,(gc 'green))))
-         (mew-face-body-cite2        ((,c :foreground ,(gc 'blue))))
-         (mew-face-body-cite3        ((,c :foreground ,(gc 'fg-2))))
-         (mew-face-body-cite4        ((,c :foreground ,(gc 'yellow))))
-         (mew-face-body-cite5        ((,c :foreground ,(gc 'red))))
-         (mew-face-mark-review       ((,c :foreground ,(gc 'blue))))
-         (mew-face-mark-escape       ((,c :foreground ,(gc 'green))))
-         (mew-face-mark-delete       ((,c :foreground ,(gc 'red))))
-         (mew-face-mark-unlink       ((,c :foreground ,(gc 'yellow))))
-         (mew-face-mark-refile       ((,c :foreground ,(gc 'green))))
-         (mew-face-mark-unread       ((,c :foreground ,(gc 'yellow+2))))
-         (mew-face-eof-message       ((,c :foreground ,(gc 'green))))
-         (mew-face-eof-part          ((,c :foreground ,(gc 'yellow))))
-
-         ;; mic-paren
-         (paren-face-match    ((,c :foreground ,(gc 'cyan)
-                                   :background ,(gc 'bg-1)
-                                   :weight bold)))
-         (paren-face-mismatch ((,c :foreground ,(gc 'bg-1)
-                                   :background ,(gc 'magenta)
-                                   :weight bold)))
-         (paren-face-no-match ((,c :foreground ,(gc 'bg-1)
-                                   :background ,(gc 'red)
-                                   :weight bold)))
-
-         ;; mingus
-         (mingus-directory-face ((,c :foreground ,(gc 'blue))))
-         (mingus-pausing-face   ((,c :foreground ,(gc 'magenta))))
-         (mingus-playing-face   ((,c :foreground ,(gc 'cyan))))
-         (mingus-playlist-face  ((,c :foreground ,(gc 'cyan) )))
-         (mingus-song-file-face ((,c :foreground ,(gc 'yellow))))
-         (mingus-stopped-face   ((,c :foreground ,(gc 'red))))
-
-         ;; i don't know what it is, but this face can often be met in mails
-         (mm-uu-extract ((,c :background ,(gc 'bg)
-                             :foreground ,(gc 'fg+1))))
+         ;; mm (used in mails)
+         (mm-uu-extract ((,c :background ,(gc 'bg))))
 
          ;; mode-line
          (mode-line-buffer-id  ((,c :foreground ,(gc 'blue-1)
@@ -1373,48 +1226,12 @@ For INVERT, see `alect-get-color'."
          (mu4e-url-number-face           ((,c :inherit mu4e-attach-number-face
                                               :foreground ,(gc 'yellow+1))))
 
-         ;; mumamo
-         (mumamo-background-chunk-major    ((,c :background nil)))
-         (mumamo-background-chunk-submode1 ((,c :background ,(gc 'bg-2))))
-         (mumamo-background-chunk-submode2 ((,c :background ,(gc 'bg+1))))
-         (mumamo-background-chunk-submode3 ((,c :background ,(gc 'bg+2))))
-         (mumamo-background-chunk-submode4 ((,c :background ,(gc 'bg))))
-
-         ;; nav
-         (nav-face-heading     ((,c :foreground ,(gc 'yellow))))
-         (nav-face-button-num  ((,c :foreground ,(gc 'cyan))))
-         (nav-face-dir         ((,c :foreground ,(gc 'green))))
-         (nav-face-hdir        ((,c :foreground ,(gc 'red))))
-         (nav-face-file        ((,c :foreground ,(gc 'fg+1))))
-         (nav-face-hfile       ((,c :foreground ,(gc 'red-2))))
-
          ;; nethack-el
          (nethack-dark-gray-face          ((,c :foreground ,(gc 'fg-1))))
          (nethack-message-highlight-face  ((,c :background ,(gc 'bg)
                                                :foreground ,(gc 'red+2))))
          (nethack-yellow-face             ((,c :foreground ,(gc 'yellow))))
 
-         ;; newsticker
-         (newsticker-date-face                ((,c :inherit alect-time)))
-         (newsticker-default-face             ((,c :foreground ,(gc 'fg+1))))
-         (newsticker-enclosure-face           ((,c :foreground ,(gc 'cyan-1))))
-         (newsticker-extra-face               ((,c :foreground ,(gc 'bg+1)
-                                                   :height 0.8)))
-         (newsticker-feed-face                ((,c :foreground ,(gc 'fg+1))))
-         (newsticker-immortal-item-face       ((,c :foreground ,(gc 'green))))
-         (newsticker-new-item-face            ((,c :foreground ,(gc 'blue))))
-         (newsticker-obsolete-item-face       ((,c :foreground ,(gc 'red))))
-         (newsticker-old-item-face            ((,c :foreground ,(gc 'bg+2))))
-         (newsticker-statistics-face          ((,c :foreground ,(gc 'fg+1))))
-         (newsticker-treeview-face            ((,c :foreground ,(gc 'fg+1))))
-         (newsticker-treeview-immortal-face   ((,c :foreground ,(gc 'green))))
-         (newsticker-treeview-listwindow-face ((,c :foreground ,(gc 'fg+1))))
-         (newsticker-treeview-new-face        ((,c :foreground ,(gc 'blue)
-                                                   :weight bold)))
-         (newsticker-treeview-obsolete-face   ((,c :foreground ,(gc 'red))))
-         (newsticker-treeview-old-face        ((,c :foreground ,(gc 'bg+2))))
-         (newsticker-treeview-selection-face  ((,c :foreground ,(gc 'yellow))))
-
          ;; ocaml
          (ocaml-help-face ((,c :inherit match)))
          (ocaml-link-face ((,c :inherit link)))
@@ -1519,17 +1336,6 @@ For INVERT, see `alect-get-color'."
          (rcirc-keyword                   ((,c :foreground ,(gc 'yellow)
                                                :weight bold)))
 
-         ;; rpm-mode
-         (rpm-spec-dir-face           ((,c :foreground ,(gc 'green))))
-         (rpm-spec-doc-face           ((,c :foreground ,(gc 'green))))
-         (rpm-spec-ghost-face         ((,c :foreground ,(gc 'red))))
-         (rpm-spec-macro-face         ((,c :foreground ,(gc 'yellow))))
-         (rpm-spec-obsolete-tag-face  ((,c :foreground ,(gc 'red))))
-         (rpm-spec-package-face       ((,c :foreground ,(gc 'red))))
-         (rpm-spec-section-face       ((,c :foreground ,(gc 'yellow))))
-         (rpm-spec-tag-face           ((,c :foreground ,(gc 'blue))))
-         (rpm-spec-var-face           ((,c :foreground ,(gc 'red))))
-
          ;; rst-mode
          (rst-level-1   ((,c :inherit alect-title-1)))
          (rst-level-2   ((,c :inherit alect-title-2)))
@@ -1592,9 +1398,6 @@ For INVERT, see `alect-get-color'."
          (slime-repl-prompt-face           ((,c :inherit alect-prompt)))
          (slime-repl-result-face           ((,c :foreground ,(gc 'blue+2))))
 
-         ;; sml-mode-line
-         (sml-modeline-end-face ((,c :inherit default :width condensed)))
-
          ;; sunrise-commander
          (sr-active-path-face       ((,c :inherit dired-header)))
          (sr-passive-path-face      ((,c :inherit dired-header
@@ -1690,9 +1493,6 @@ For INVERT, see `alect-get-color'."
          (vc-needs-update-state  ((,c :foreground ,(gc 'magenta))))
          (vc-removed-state       ((,c :foreground ,(gc 'red-1))))
 
-         ;; volatile-highlights
-         (vhl/default-face ((,c :background ,(gc 'bg-2))))
-
          ;; emacs-w3m
          (w3m-anchor                       ((,c :inherit link)))
          (w3m-arrived-anchor               ((,c :inherit link-visited)))
@@ -1718,35 +1518,6 @@ For INVERT, see `alect-get-color'."
          (w3m-history-current-url          ((,c :inherit alect-selected-item)))
          (w3m-image-anchor                 ((,c :background ,(gc 'bg+1))))
 
-         ;; wanderlust
-         (wl-highlight-folder-few-face                     ((,c :foreground 
,(gc 'yellow+2))))
-         (wl-highlight-folder-many-face                    ((,c :foreground 
,(gc 'red-1))))
-         (wl-highlight-folder-path-face                    ((,c :foreground 
,(gc 'fg-2))))
-         (wl-highlight-folder-unread-face                  ((,c :foreground 
,(gc 'blue))))
-         (wl-highlight-folder-zero-face                    ((,c :foreground 
,(gc 'fg+1))))
-         (wl-highlight-folder-unknown-face                 ((,c :foreground 
,(gc 'blue))))
-         (wl-highlight-message-citation-header             ((,c :foreground 
,(gc 'red-1))))
-         (wl-highlight-message-cited-text-1                ((,c :foreground 
,(gc 'red))))
-         (wl-highlight-message-cited-text-2                ((,c :foreground 
,(gc 'green+2))))
-         (wl-highlight-message-cited-text-3                ((,c :foreground 
,(gc 'blue))))
-         (wl-highlight-message-cited-text-4                ((,c :foreground 
,(gc 'blue+1))))
-         (wl-highlight-message-header-contents-face        ((,c :foreground 
,(gc 'green))))
-         (wl-highlight-message-headers-face                ((,c :foreground 
,(gc 'red+1))))
-         (wl-highlight-message-important-header-contents   ((,c :foreground 
,(gc 'green+2))))
-         (wl-highlight-message-header-contents             ((,c :foreground 
,(gc 'green+1))))
-         (wl-highlight-message-important-header-contents2  ((,c :foreground 
,(gc 'green+2))))
-         (wl-highlight-message-signature                   ((,c :foreground 
,(gc 'green))))
-         (wl-highlight-message-unimportant-header-contents ((,c :foreground 
,(gc 'fg+1))))
-         (wl-highlight-summary-answered-face               ((,c :foreground 
,(gc 'blue))))
-         (wl-highlight-summary-disposed-face               ((,c :foreground 
,(gc 'fg+1)
-                                                                :slant 
italic)))
-         (wl-highlight-summary-new-face                    ((,c :foreground 
,(gc 'blue))))
-         (wl-highlight-summary-normal-face                 ((,c :foreground 
,(gc 'fg+1))))
-         (wl-highlight-summary-thread-top-face             ((,c :foreground 
,(gc 'yellow))))
-         (wl-highlight-thread-indent-face                  ((,c :foreground 
,(gc 'magenta))))
-         (wl-highlight-summary-refiled-face                ((,c :foreground 
,(gc 'fg+1))))
-         (wl-highlight-summary-displaying-face             ((,c :underline t 
:weight bold)))
-
          ;; which-func-mode
          (which-func ((,c :inherit font-lock-function-name-face)))
 
@@ -1777,12 +1548,7 @@ For INVERT, see `alect-get-color'."
          (widget-documentation     ((,c :foreground ,(gc 'green-1))))
          (widget-inactive          ((,c :inherit shadow)))
          (widget-single-line-field ((,c :foreground ,(gc 'fg)
-                                        :inherit widget-field)))
-
-         ;; yascroll
-         (yascroll:thumb-text-area ((,c :background ,(gc 'bg-2))))
-         (yascroll:thumb-fringe    ((,c :background ,(gc 'bg-2)
-                                        :foreground ,(gc 'fg-2)))))
+                                        :inherit widget-field))))
        ;; VARIABLES
        `((ansi-color-names-vector
           [,(gc 'bg-1)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]