From: Peng Li <seudut@gmail.com>
Date: Sun, 17 May 2015 09:58:08 +0000 (+0800)
Subject: emacs tidy up mode-line, still has one font size padding issue
X-Git-Url: http://47.100.26.94:8080/?a=commitdiff_plain;h=0d4f1ad4506e68eb1ae18b8b88e9a5492f4c4885;p=dotfiles.git

emacs tidy up mode-line, still has one font size padding issue
---

diff --git a/emacs.d/config/init-color-theme.el b/emacs.d/config/init-color-theme.el
index e8929d7..4898dde 100644
--- a/emacs.d/config/init-color-theme.el
+++ b/emacs.d/config/init-color-theme.el
@@ -23,7 +23,7 @@
 
 ;(add-to-list 'load-path "~/.emacs.d/vendor/emacs-powerline")
 (require 'powerline)
-(powerline-default-theme)
+;(powerline-default-theme)
 
 
 ;(defconst color1 "#6b8e23")
@@ -125,7 +125,6 @@
                         (lhs
                             (list
                                 (powerline-raw "%*" nil 'l)
-                                ;; (powerline-buffer-size nil 'l)
                                 (powerline-buffer-id nil 'l)
                                 (powerline-raw " ")
                                 (funcall separator-left mode-line face1)
@@ -134,22 +133,12 @@
 			
                         (rhs
                             (list
-;                               (powerline-raw mode-line-misc-info face1 'r)
-                                (powerline-raw global-mode-string face1 'r)
                                 (funcall separator-right face1 mode-line)
-			                    (powerline-raw '(:eval (format-time-string " %Y-%m-%d %I:%M %p %a")) nil 'r)
+			                    (powerline-raw (format-time-string " %Y-%m-%d %I:%M %p %a") nil 'r)
                                 (funcall separator-right mode-line face1)
-;;			                    (powerline-raw '(:eval (propertize (format-time-string " %Y-%m-%d %I:%M %p %a")
-;;							        'help-echo
-;;							        (concat (format-time-string "%c; ")
-;;								        (emacs-uptime "Uptime:%hh")))) nil)
-					 
-                                (powerline-raw "%3c, %l/" face1)
-                                (powerline-raw (format "%d" (count-lines (point-min) (point-max))) face1 'r)
+                                (powerline-raw (concat "%3c, %l/" (format "%d" (count-lines (point-min) (point-max)))) face1 'r)
                                 (funcall separator-right face1 face3)
-;                                (powerline-raw " ")
-;                                (powerline-raw " %4p" nil)))
-                                (powerline-raw " %4p" face3)))
+                                (powerline-raw " %4p" face3 'r)))
                         (center
                             (list
                                 (powerline-raw " " face1)
@@ -190,3 +179,13 @@
 
 
 (provide 'init-color-theme)
+
+
+
+;                               (powerline-raw mode-line-misc-info face1 'r)
+;                                (powerline-raw global-mode-string face1 'r)
+
+;;			                    (powerline-raw '(:eval (propertize (format-time-string " %Y-%m-%d %I:%M %p %a")
+;;							        'help-echo
+;;							        (concat (format-time-string "%c; ")
+;;								        (emacs-uptime "Uptime:%hh")))) nil)