 (defvar tnml-selected-window nil)
 
 (defun tnml-record-selected-window ()
+  "Record current window in variable."
   (setq tnml-selected-window (selected-window)))
 
 (defun tnml-update-all ()
+  "Force mode line update."
   (force-mode-line-update t))
 
 (add-hook 'post-command-hook 'tnml-record-selected-window)


(defun tnml/system-module ()
  "Return a formatted string of battery percentage and time."
  (propertize (concat " "
		      (battery-format "%p"
				      (funcall battery-status-function))
		      "%% "
		      (format-time-string "%I:%M %p "))
	      'face '(:background "gray87"
		      :foreground "gray20"
		      :weight ultrabold)))

(defvar tnml/format-left
  '((tnml/evil-module)

(add-hook 'buffer-list-update-hook 'tnml-update-all)

(defun tnml/evil-module ()
  "Return current evil-state."
  (cond
   ((string-equal evil-state 'normal)
    (propertize " NORMAL "
