setup-modeline.el

;; (nyan-mode)

(diminish 'yas-minor-mode)
(diminish 'helm-mode)
(diminish 'company-mode)

(setq-default
 mode-line-format
 '(" "
   (:eval 
    (if (equal nil current-input-method-title) 
      "  "
      'current-input-method-title
      ))

   " %* "
   (:propertize "%b"
                face mode-line-filename-face)

   ;; (:eval (list (nyan-create)))
   ;; " %4l /"
   " · %4l"
   (:propertize " /%p"
                face mode-line-inactive-window-face)

   " · "
   (:propertize mode-name
                face mode-line-major-mode-face)
   (:eval (propertize (format-mode-line minor-mode-alist)
                      'face 'mode-line-minor-mode-face))
   " "
   ;; (:propertize (format-mode-line minor-mode-alist) face 
   ;;              mode-line-minor-mode-face)

   (:propertize mode-line-process
                face mode-line-process-face)
   " "
   (:propertize (vc-mode vc-mode)
                face mode-line-vc-face )


   (global-mode-string global-mode-string)
   "    "
   ))


;; Extra mode line faces
(make-face 'mode-line-read-only-face)
(make-face 'mode-line-modified-face)
(make-face 'mode-line-folder-face)
(make-face 'mode-line-filename-face)
(make-face 'mode-line-position-face)
(make-face 'mode-line-major-mode-face)
(make-face 'mode-line-inactive-window-face)
(make-face 'mode-line-minor-mode-face)
(make-face 'mode-line-process-face)
(make-face 'mode-line-vc-face)
(make-face 'mode-line-80col-face)

(set-face-attribute 'mode-line nil
    :foreground "DeepSkyBlue" :background "#000000"
    :inverse-video nil
    :box '(:line-width 1 :color "#111111" :style nil))
(set-face-attribute 'mode-line-inactive nil
    :foreground "#555555" :background "#111111"
    :inverse-video nil
    :box '(:line-width 1 :color "#111111" :style nil))

(set-face-attribute 'mode-line-filename-face nil
    :inherit 'mode-line-face
    :foreground "GreenYellow"
    :weight 'bold)

(set-face-attribute 'mode-line-major-mode-face nil
    :inherit 'mode-line-face
    :weight 'bold)

(set-face-attribute 'mode-line-inactive-window-face nil
    :inherit 'mode-line-inactive-face
    :weight 'bold)

(set-face-attribute 'mode-line-vc-face nil
    :inherit 'mode-line-face
    :italic t)

(set-face-attribute 'mode-line-minor-mode-face nil
    :inherit 'mode-line-mode-face
    :foreground "gray40"
    :height 85)

(set-face-attribute 'mode-line-process-face nil
    :inherit 'mode-line-face
    :foreground "Yellow")
(set-face-attribute 'mode-line-80col-face nil
    :inherit 'mode-line-position-face
    :foreground "black" :background "#eab700")