From 99357b5675bec11ab6b84f65df053073803c5a8c Mon Sep 17 00:00:00 2001
From: Vincent Zhang <seagle0128@gmail.com>
Date: Sat, 11 Aug 2018 22:21:12 +0800
Subject: [PATCH] Remove unused faces.

---
 doom-modeline.el | 88 ------------------------------------------------
 1 file changed, 88 deletions(-)

diff --git a/doom-modeline.el b/doom-modeline.el
index c4e00cc..49a432a 100644
--- a/doom-modeline.el
+++ b/doom-modeline.el
@@ -179,94 +179,6 @@ active.")
   "The face used for eyebrowse.")
 
 
-;;
-;; Custom faces
-;;
-
-(defgroup doom-modeline nil
-  "Doom mode-line faces."
-  :group 'faces)
-
-(defface doom-modeline-buffer-path
-  '((t (:inherit mode-line-emphasis :bold t)))
-  "Face used for the dirname part of the buffer path.")
-
-(defface doom-modeline-buffer-file
-  '((t (:inherit mode-line-buffer-id)))
-  "Face used for the filename part of the mode-line buffer path.")
-
-(defface doom-modeline-buffer-modified
-  '((t (:inherit error :background nil :bold t)))
-  "Face used for the 'unsaved' symbol in the mode-line.")
-
-(defface doom-modeline-buffer-major-mode
-  '((t (:inherit mode-line-emphasis :bold t)))
-  "Face used for the major-mode segment in the mode-line.")
-
-(defface doom-modeline-highlight
-  '((t (:inherit mode-line-emphasis)))
-  "Face for bright segments of the mode-line.")
-
-(defface doom-modeline-panel
-  '((t (:inherit mode-line-highlight)))
-  "Face for 'X out of Y' segments, such as `doom-modeline--anzu', `doom-modeline--evil-substitute' and
-`iedit'")
-
-(defface doom-modeline-info
-  `((t (:inherit success :bold t)))
-  "Face for info-level messages in the modeline. Used by `*vc'.")
-
-(defface doom-modeline-warning
-  `((t (:inherit warning :bold t)))
-  "Face for warnings in the modeline. Used by `*flycheck'")
-
-(defface doom-modeline-urgent
-  `((t (:inherit error :bold t)))
-  "Face for errors in the modeline. Used by `*flycheck'")
-
-;; Bar
-(defface doom-modeline-bar '((t (:inherit highlight)))
-  "The face used for the left-most bar on the mode-line of an active window.")
-
-(defface doom-modeline-eldoc-bar '((t (:inherit shadow)))
-  "The face used for the left-most bar on the mode-line when eldoc-eval is
-active.")
-
-(defface doom-modeline-inactive-bar '((t (:inherit warning :inverse-video t)))
-  "The face used for the left-most bar on the mode-line of an inactive window.")
-
-(defface doom-modeline-persp '((t ()))
-  "The face used for persp number.")
-
-(defface doom-modeline-eyebrowse '((t ()))
-  "The face used for eyebrowse.")
-
-(defface doom-modeline-bracket '((t (:inherit shadow)))
-  "The face used for brackets around the project.")
-
-(eval-and-compile
-  (defun doom-modeline--resolve-hook-forms (hooks)
-    (cl-loop with quoted-p = (eq (car-safe hooks) 'quote)
-             for hook in (doom-modeline-enlist (doom-modeline-unquote hooks))
-             if (eq (car-safe hook) 'quote)
-             collect (cadr hook)
-             else if quoted-p
-             collect hook
-             else collect (intern (format "%s-hook" (symbol-name hook)))))
-
-  (defun doom-modeline-enlist (exp)
-    "Return EXP wrapped in a list, or as-is if already a list."
-    (if (listp exp) exp (list exp)))
-
-  (defun doom-modeline-unquote (exp)
-    "Return EXP unquoted."
-    (while (memq (car-safe exp) '(quote function))
-      (setq exp (cadr exp)))
-    exp)
-
-  (defvar doom-modeline--transient-counter 0))
-
-
 ;;
 ;; Modeline library
 ;;