From: Francois Fleuret <francois@fleuret.org>
Date: Wed, 25 Nov 2015 13:07:27 +0000 (+0100)
Subject: Update.
X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=commitdiff_plain;h=afc6c7f7b111f1c31bc3707ff7aaf4ce11e50e2c;p=elisp.git

Update.
---

diff --git a/emacs.el b/emacs.el
index 6d4ffe8..0d565f1 100644
--- a/emacs.el
+++ b/emacs.el
@@ -31,10 +31,11 @@
 ;; Xft.antialias: true
 ;; Xft.rgba: rgb
 
+(set-default-font "Inconsolata 15")
+
 ;; (set-default-font "Bitstream vera sans mono-12")
 ;; (set-default-font "Liberation Mono-13")
-(set-default-font "Inconsolata 15")
-;; (set-default-font "DejaVu sans mono 11")
+;; (set-default-font "DejaVu sans mono 15")
 ;; (set-default-font "Droid sans mono 13")
 ;; (set-default-font "Opensans 10")
 
@@ -893,11 +894,17 @@ printer."
 
             ;; The battery
 
-            (pcase (ff/battery-state ff/battery-dirs)
-              (`charging (format "c%d%%" (ff/battery-percent)))
-              (`discharging (format "d%d%%" (ff/battery-percent)))
-              (`unknown "f")
-              (_ "?"))
+            (propertize
+             (pcase (ff/battery-state ff/battery-dirs)
+               ;; (`charging (format "c%d%%" (ff/battery-percent)))
+               ;; (`discharging (format "d%d%%" (ff/battery-percent)))
+               ;; (`unknown "f")
+               (`charging (format "↑%d%%" (ff/battery-percent)))
+               (`discharging (format "↓%d%%" (ff/battery-percent)))
+               (`unknown "◉")
+               ;; (`unknown "⚡")
+               (_ "?"))
+             'face '(:foreground "#ffffe0"))
 
             )
 
@@ -925,7 +932,7 @@ printer."
                         (propertize
                          (with-temp-buffer (apply 'call-process x)
                                            (buffer-string))
-                         'face '(:background "#c0c0ff"))
+                         'face '(:background "#d0d0ff"))
                       (with-temp-buffer (apply 'call-process x)
                                         (buffer-string))
                       ))
@@ -2214,7 +2221,7 @@ This may be a useful alternative binding for \\[delete-other-windows]
 
 ;; (load "winner")
 (winner-mode 1)
-(define-key global-map [(shift backspace)] 'winner-undo)
+;; (define-key global-map [(shift backspace)] 'winner-undo)
 
 ;; (define-key global-map [(shift home)] 'delete-other-windows-vertically)
 ;; (define-key global-map [(control +)] 'enlarge-window)