emacs.d/elisp/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-below-winow-has-effect-window ()
  34   "Return true when its below has no active window or
  35 its below window is minibuffer window. "
  36   (let ((window (window-in-direction 'below nil nil 1)))
  37     (and window
  38          (not (window-minibuffer-p window)))))
  39
  40 (defun my-get-window-type ()
  41   "According to the window layout, separate the windows as six types.
  42 Each type will have different mode line. This function return the defined
  43 window type."
  44   (cond ((and (not (window-in-direction 'right nil nil -1))
  45               (not (window-in-direction 'left nil nil -1))
  46               (not (my-below-winow-has-effect-window)))
  47          1)
  48         ((and (window-in-direction 'right nil t -1)
  49               (not (window-in-direction 'left nil nil -1))
  50               (not (my-below-winow-has-effect-window)))
  51          2)
  52         ((and (not (window-in-direction 'right nil nil -1))
  53               (window-in-direction 'left nil nil -1)
  54               (not (my-below-winow-has-effect-window)))
  55          3)
  56         ((and (window-in-direction 'right nil nil -1)
  57               (not (window-in-direction 'left nil nil -1))
  58               (my-below-winow-has-effect-window))
  59          5)
  60         ((and (not (window-in-direction 'right nil nil -1))
  61               (window-in-direction 'left nil nil -1)
  62               (my-below-winow-has-effect-window))
  63          6)
  64         (t
  65          4)))
  66
  67 (defface my-powerline-hl-ws '((t (:background "red" :foreground "black" :inherit mode-line)))
  68   "My Powerline face 1 based on powerline-active1."
  69   :group 'powerline)
  70
  71 (defface my-powerline-ws-bg '((t (:background "blue" :foreground "black" :inherit mode-line)))
  72   "My Powerline face 1 based on powerline-active1."
  73   :group 'powerline)
  74
  75 (defun my-get-ws-name-list ()
  76   "Return the name list of workspaces gotten from `perspeen-modestring' without the properties."
  77   (split-string (substring-no-properties (cadr perspeen-modestring)) "|"))
  78
  79 (defun my-get-selected-ws-name ()
  80   (let ((ret))
  81     (dolist (i (split-string (cadr perspeen-modestring) "|") ret)
  82       (if (equal (car (text-properties-at 1 i))
  83                  'face)
  84           (setq ret (substring-no-properties i))))))
  85
  86 (defun my-build-left-below-mode-line (separator lface face1)
  87   (let ((l)
  88         (ff1)
  89         (ff2)
  90         (selected-name (my-get-selected-ws-name))
  91         (name-list (my-get-ws-name-list)))
  92     (if (string= selected-name (car name-list))
  93         (progn
  94           (setq l (list (powerline-raw " workspace " lface)
  95                         (funcall separator lface 'my-powerline-hl-ws)
  96                         (powerline-raw (car name-list) 'my-powerline-hl-ws)
  97                         (funcall separator 'my-powerline-hl-ws face1)))
  98           (dolist (i (cdr name-list))
  99             (setq l (append l (list (powerline-raw i face1)
 100                                     (funcall separator face1 face1))))))
 101       (setq l (list (powerline-raw " workspace " lface)
 102                     (funcall separator lface face1)))
 103       (while name-list
 104         (let ((current-selected (string= selected-name (car name-list)))
 105               (next-selected (string= selected-name (cadr name-list))))
 106           (setq l (append l (list (powerline-raw (car name-list) (if current-selected
 107                                                                      'my-powerline-hl-ws
 108                                                                    face1))
 109                                   (funcall separator (if current-selected 'my-powerline-hl-ws face1)
 110                                            (if next-selected
 111                                                'my-powerline-hl-ws
 112                                              face1))))))
 113         (pop name-list)))
 114     l))
 115
 116 (defun sd/powerline-center-theme_revised-2 ()
 117   "Setup a mode-line with major and minor modes centered."
 118   (interactive)
 119   (setq-default mode-line-format
 120                 '("%e"
 121                   (:eval
 122                    (let* ((window-type (my-get-window-type))
 123                           (active (powerline-selected-window-active))
 124                           (my-face1 'sd/powerline-active1 )
 125                           ;; (my-face-buffer-modified (if (and (sd/buffer-is-eshel-or-scratch) (buffer-modified-p) (not buffer-read-only))
 126                           ;;                              'sd/buffer-modified-active1
 127                           ;;                            (if buffer-read-only 'sd/buffer-view-active1
 128                           ;;                              my-face1)))
 129                           (face1 'powerline-active1)
 130                           (face2 'powerline-active2)
 131                           (separator-left (intern (format "powerline-%s-%s"
 132                                                           (powerline-current-separator)
 133                                                           (car powerline-default-separator-dir))))
 134                           (separator-right (intern (format "powerline-%s-%s"
 135                                                            (powerline-current-separator)
 136                                                            (cdr powerline-default-separator-dir))))
 137                           (lface (if (and (not active) (or (= window-type 3) (= window-type 6)))
 138                                      face2
 139                                    my-face1))
 140                           (cface (if active my-face1 face2))
 141                           (rface (if (and (not active) (or (= window-type 2) (= window-type 5)))
 142                                      face2
 143                                    my-face1))
 144                           (lhs (cond ((or (= window-type 1) (= window-type 2))
 145                                       (my-build-left-below-mode-line separator-left lface face1)
 146                                       ;; (list (powerline-raw "==wwww===" 'powerline-active1))
 147                                       ;; (list (powerline-raw " workspace " lface)
 148
 149                                       ;;            ;; workspaces
 150
 151
 152                                       ;;            (funcall separator-left lface 'my-powerline-hl-ws)
 153                                       ;;            (powerline-raw " ws1 " 'my-powerline-hl-ws)
 154                                       ;;            (funcall separator-left 'my-powerline-hl-ws lface)
 155                                       ;;            (powerline-raw " ws2 " lface)
 156                                       ;;            (funcall separator-left lface face1)
 157                                       ;;            )
 158                                       )
 159                                      ((or (= window-type 3) (= window-type 6))
 160                                       (list (powerline-buffer-id lface 'l)
 161                                             (powerline-raw "%* " lface)
 162                                             (funcall separator-left lface face1 )))
 163                                      (t
 164                                       nil)))
 165                           (center (if (or (= window-type 1) (= window-type 4))
 166                                       (list (powerline-raw " " face1)
 167                                             (funcall separator-right face1 cface)
 168                                             (powerline-raw "%*" cface)
 169                                             (powerline-buffer-id cface 'r)
 170                                             (funcall separator-left cface face1))
 171                                     nil)
 172                            )
 173                           (rhs (cond ((or (= window-type 1) (= window-type 3))
 174                                       (list (funcall separator-right face1 rface)
 175                                             (powerline-raw (format-time-string " %I:%M %p ") rface 'r)))
 176                                      ((or (= window-type 2) (= window-type 5))
 177                                       (list (funcall separator-right face1 rface)
 178                                             (powerline-raw "%*" rface)
 179                                             (powerline-buffer-id rface 'r)
 180                                             (powerline-raw " " rface)))
 181                                      (t
 182                                       nil))
 183                                ))
 184                      (concat (powerline-render lhs)
 185                              (powerline-fill-center face1 (/ (powerline-width center) 2.0))
 186                              (powerline-render center)
 187                              (powerline-fill face1 (powerline-width rhs))
 188                              (powerline-render rhs)))))))
 189
 190 (sd/powerline-center-theme_revised-2)
 191
 192 (provide 'my-mode-line)
 193 ;;; my-mode-line.el ends here
 194
 195