diff --git a/.emacs.d/lisp/main.el b/.emacs.d/lisp/main.el
index c8db7567..d9a1da54 100644
--- a/.emacs.d/lisp/main.el
+++ b/.emacs.d/lisp/main.el
@@ -56,6 +56,14 @@
 ;;; Print buffer size in mode line.
 (size-indication-mode 1)
 
+;;; Display defun in mode line.
+(which-function-mode)
+
+;;; Display battery status in mode line
+(display-battery-mode)
+;;; TODO: Battery status (%b) does not work properly.
+(setq battery-mode-line-format "[%p%%%b %t]")
+
 ;;; Kill whole line including \n.
 (setq kill-whole-line t)
 
@@ -256,9 +264,6 @@
 ;;; That binding is not very useful and gets in the way of C-<mouse-1>.
 (global-unset-key (kbd "C-<down-mouse-1>"))
 
-;;; Display defun in mode line.
-(which-function-mode)
-
 ;;; Scroll zooming.
 (define-keys mickey-minor-mode-map
   "C-<wheel-down>" 'text-scale-decrease