X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=blobdiff_plain;f=emacs.el;h=0d565f14c3b14c4e417f04e44bbce7b8c56ffc0e;hb=afc6c7f7b111f1c31bc3707ff7aaf4ce11e50e2c;hp=aea32d6e39ba44a532ec3e635d0b899221f43d96;hpb=44da93db15b7b045e0513ab4cee0a0c8361d7ac9;p=elisp.git

diff --git a/emacs.el b/emacs.el
index aea32d6..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,10 +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)))
-              (_ "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"))
 
             )
 
@@ -924,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))
                       ))
@@ -2213,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)