Skip to content

Instantly share code, notes, and snippets.

@zarkone

zarkone/setup-modeline.el

Created October 31, 2015 02:39
Download ZIP

Revisions

  1. Anatoly Smolyaninov created this gist Oct 31, 2015.
    96 changes: 96 additions & 0 deletions setup-modeline.el
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,96 @@
    ;; (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")