emacs.d/my-mode-line.el

   1 ;;; my-mode-line.el --- my mode line based on powerline  -*- lexical-binding: t; -*-
   2
   3 ;; Copyright (C) 2017  Peng Li
   4
   5 ;; Author: Peng Li <seudut@gmail.com>
   6 ;; Keywords:
   7
   8 ;; This program is free software; you can redistribute it and/or modify
   9 ;; it under the terms of the GNU General Public License as published by
  10 ;; the Free Software Foundation, either version 3 of the License, or
  11 ;; (at your option) any later version.
  12
  13 ;; This program is distributed in the hope that it will be useful,
  14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 ;; GNU General Public License for more details.
  17
  18 ;; You should have received a copy of the GNU General Public License
  19 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
  20
  21 ;;; Commentary:
  22
  23 ;; test
  24
  25 ;;; Code:
  26
  27 ;; A windows may have six kinds different mode-line
  28 ;; type = 1.
  29 ;;   -----------------------------
  30 ;;   |>>>         O           <<<|
  31 ;;   -----------------------------
  32
  33 (defun my-get-window-type ()
  34   "According to the window layout, separate the windows as six types.
  35 Each type will have different mode line. This function return the defined
  36 window type."
  37   (cond ((and (not (window-in-direction 'right nil t -1))
  38               (not (window-in-direction 'left nil t -1))
  39               (not (window-in-direction 'below nil t 1)))
  40          1)
  41         ((and (window-in-direction 'right nil t -1)
  42               (not (window-in-direction 'left nil t -1))
  43               (not (window-in-direction 'below nil t 1)))
  44          2)
  45         ((and (not (window-in-direction 'right nil t -1))
  46               (window-in-direction 'left nil t -1)
  47               (not (window-in-direction 'below nil t 1)))
  48          3)
  49         ((and (window-in-direction 'right nil t -1)
  50               (not (window-in-direction 'left nil t -1))
  51               (window-in-direction 'below nil t 1))
  52          5)
  53         ((and (not (window-in-direction 'right nil t -1))
  54               (window-in-direction 'left nil t -1)
  55               (window-in-direction 'below nil t 1))
  56          6)
  57         (t
  58          4)))
  59
  60 (my-get-window-type)
  61 (defun sd/powerline-center-theme_revised-2 ()
  62   "Setup a mode-line with major and minor modes centered."
  63   (interactive)
  64   (setq-default mode-line-format
  65                 '("%e"
  66                   (:eval
  67                    (let* ((window-type (my-get-window-type))
  68                           (active (powerline-selected-window-active))
  69                           ;; (active t)
  70                           ;; (my-face1 (if active 'sd/powerline-active1 'powerline-inactive1))
  71                           (my-face1 'sd/powerline-active1 )
  72                           ;; (my-face-buffer-modified (if (and (sd/buffer-is-eshel-or-scratch) (buffer-modified-p) (not buffer-read-only))
  73                           ;;                              'sd/buffer-modified-active1
  74                           ;;                            (if buffer-read-only 'sd/buffer-view-active1
  75                           ;;                              my-face1)))
  76                           (face1 'powerline-active1)
  77                           (face2 'powerline-active2)
  78                           (separator-left (intern (format "powerline-%s-%s"
  79                                                           (powerline-current-separator)
  80                                                           (car powerline-default-separator-dir))))
  81                           (separator-right (intern (format "powerline-%s-%s"
  82                                                            (powerline-current-separator)
  83                                                            (cdr powerline-default-separator-dir))))
  84                           (lhs (if (or (= window-type 1) (= window-type 2) (= window-type 3) (= window-type 6))
  85                                    (let ((lface))
  86                                      (if (or (= window-type 1) (= window-type 2))
  87                                          (setq lface my-face1)
  88                                        (if active
  89                                            (setq lface my-face1)
  90                                          (setq lface face2)))
  91                                      (list (powerline-raw "%* " lface 'l)
  92                                            ;; (powerline-raw "%* " my-face-buffer-modified 'l)
  93                                            (powerline-raw " " lface)
  94                                            (funcall separator-left lface face1)
  95                                            (powerline-narrow face1 'l)
  96                                            ;; (sd/powerline-simpler-vc (powerline-vc face1))
  97                                            ))
  98                                  nil))
  99                           (center (if (or (= window-type 1) (= window-type 4))
 100                                       (let ((cface))
 101                                         (if active
 102                                             (setq cface my-face1)
 103                                           (setq cface face2))
 104                                         (list (powerline-raw " " face1)
 105                                               (funcall separator-right face1 cface)
 106                                               (powerline-raw (concat " ==" (number-to-string (my-get-window-type)) "== ") cface)
 107                                               (funcall separator-left cface face1)))
 108                                     nil))
 109                           (rhs (if (or (= window-type 1) (= window-type 3) (= window-type 2) (= window-type 5))
 110                                    (let ((rface))
 111                                      (if (or (= window-type 1) (= window-type 3))
 112                                          (setq rface my-face1)
 113                                        (if active
 114                                            (setq rface my-face1)
 115                                          (setq rface face2)))
 116                                      (list (funcall separator-right face1 rface)
 117                                            (powerline-raw (format-time-string " %I:%M %p  ") rface 'r)))
 118                                  nil)))
 119                      (concat (powerline-render lhs)
 120                              (powerline-fill-center face1 (/ (powerline-width center) 2.0))
 121                              (powerline-render center)
 122                              (powerline-fill face1 (powerline-width rhs))
 123                              (powerline-render rhs)))))))
 124
 125 (sd/powerline-center-theme_revised-2)
 126
 127 (provide 'my-mode-line)
 128 ;;; my-mode-line.el ends here