 icons."
   (when (boundp 'flycheck-last-status-change)
     (pcase flycheck-last-status-change
-      (`finished (if flycheck-current-errors
+      ('finished (if flycheck-current-errors
                      (let-alist (flycheck-count-errors flycheck-current-errors)
                        (let ((sum (+ (or .error 0) (or .warning 0))))
                          (+doom-ml-icon "circle-slash" (format "%s issue%s" sum (if (eq 1 sum) "" "s"))
                                      (if .error 'doom-modeline-urgent 'doom-modeline-warning))))
                    (concat
                     (+doom-ml-icon "check" nil 'doom-modeline-info) " ")))
-      (`running     (+doom-ml-icon "ellipsis" "Running" 'font-lock-doc-face))
-      (`no-checker  (+doom-ml-icon "alert" "-" 'font-lock-doc-face))
-      (`errored     (+doom-ml-icon "alert" "Error" 'doom-modeline-urgent))
-      (`interrupted (+doom-ml-icon "x" "Interrupted" 'font-lock-doc-face))
-      ;; (`suspicious  "")
+      ('running     (+doom-ml-icon "ellipsis" "Running" 'font-lock-doc-face))
+      ('no-checker  (+doom-ml-icon "alert" "-" 'font-lock-doc-face))
+      ('errored     (+doom-ml-icon "alert" "Error" 'doom-modeline-urgent))
+      ('interrupted (+doom-ml-icon "x" "Interrupted" 'font-lock-doc-face))
+      ;; ('suspicious  "")
       )))
 
 (defsubst doom-column (pos)

(defsubst active ()
  (eq (selected-window) +doom-modeline-current-window))

;; From from `powerline's `pl/make-xpm'.
(def-memoized! +doom-modeline--make-xpm (color height width)
  "Create an XPM bitmap."
  (when (display-graphic-p)


(def-modeline-segment! vcs
  "Displays the current branch, colored based on its state."
  (when vc-mode
    (let ((backend (vc-backend buffer-file-name))
          (state   (vc-state buffer-file-name))
          (face    'mode-line-inactive)
