Xah Fly Key Emacs Mode-Line Config

(setq display-time-mail-file 0)
(setq display-time-default-load-average nil)
(setq display-time-24hr-format t)

(display-time-mode 1)
(display-battery-mode 1)
(setq battery-mode-line-format " %b%p%%")

;; Xah Fly Keys Mode-Line faces
(make-face 'mode-line-xfk-insert-face)
(set-face-attribute 'mode-line-xfk-insert-face nil
                    :inherit 'mode-line-face
                    :background "darkgreen"
                    :foreground "green"
                    :weight 'bold)
(make-face 'mode-line-xfk-command-face)
(set-face-attribute 'mode-line-xfk-command-face nil
                    :inherit 'mode-line-face
                    :background "darkred"
                    :foreground "red"
                    :weight 'bold)

;; Other Mode-Line faces
(make-face 'mode-line-major-mode-face)
(set-face-attribute 'mode-line-major-mode-face nil
                    :inherit 'mode-line-face
                    :weight 'bold)
(set-face-attribute 'mode-line-buffer-id nil
                    :inherit 'mode-line-face
                    :weight 'bold
                    :inverse-video nil
                    :background "gray"
                    :foreground "darkblue")

(setq-default mode-line-format
              (list "%e"
                    '(:eval (if xah-fly-insert-state-q
                                (propertize "INS>"
                                            'face 'mode-line-xfk-insert-face)
                              (propertize "COM>"
                                          'face 'mode-line-xfk-command-face)))
                    "%+%*"
                    '(:propertize " %b " face mode-line-buffer-id)
                    "[L%l/%I]("
                    '(:propertize mode-name face mode-line-major-mode-face)
                    '(:propertize minor-mode-alist)
                    ") "
                    mode-line-misc-info
                    ;; "%-"
                    ))

;; Use for testing
;; (setq xah-fly-insert-state-q nil)
;; (setq xah-fly-insert-state-q t)