 
 (defun modeline-segment-major-mode ()
   "Displays the current major mode in the modeline."
-  (propertize "%m "
-              'face (if (modeline-is-active)
-                        'modeline-status-mode
-                      'modeline-status-grayed-out)))
+  (propertize "%m "'face 'modeline-status-mode))
 
 (defun modeline-segment-flycheck ()
   "Displays color-coded flycheck information in the modeline (if available)."

  (cond (buffer-read-only
         (propertize " R " 'face 'modeline-modified))
        ((buffer-modified-p)
         (propertize " ! " 'face 'modeline-modified))
        (t "   ")))

(defun modeline-segment-buffer-name ()

  "Displays the current value of `mode-line-process' in the modeline."
  (when mode-line-process
    (list mode-line-process "  ")))

;;;###autoload
(define-minor-mode modeline-mode
