                 (org-agenda-mode (:eval (format "%s" org-agenda-filter)))
                 " "
                 ;; mode-line-modes
-                (:eval (propertize (if overwrite-mode "Ovr" "")
-                                   'face 'font-lock-warning-face
-                                   'help-echo (concat "Buffer is in "
-                                                      (if overwrite-mode "overwrite" "insert") " mode")))
+                (:eval (custom-modeline-overwrite))
                 (:eval (if overwrite-mode " " ""))
+
                 mode-line-misc-info
                 "::"
                 mode-line-position

       (propertize (format " (%s, %s)" chars lines)
                   'face `(:height 0.9))))))

(setq-default mode-line-format
              '(""
                mode-line-front-space
                (:eval (if (eq defining-kbd-macro t)
                           (concat (propertize "[M]" 'face 'rec-face) " ")))

                mode-line-process
                (:eval (custom-modeline-region-info))
                vc-mode
                (:eval (custom-modeline-flycheck))
                (iedit-mode (:eval
                             (if (= (iedit-counter) 0)
                                 ""
