                                                 (mouse-2 . ivy-switch-buffer)
                                                 (mouse-3 . next-buffer))))))
 
-(defun custom-modeline-position-info()
+(defun custom-modeline-position-info ()
   `(" ("
     ,(propertize "%l"
                  'face 'font-lock-type-face

              'local-map (make-mode-line-mouse-map 'mouse-2 read-mail-command)))
          "")))

(defun custom-modeline-buffer-identification()
  '(:propertize mode-line-buffer-identification
                help-echo (concat "Buffer name"
                                  "\nmouse-1: Previous buffer"

                                            (if overwrite-mode "overwrite" "insert")
                                            " mode")))))

(defun custom-modeline-region-info ()
  (when mark-active
    (let ((chars (count-matches "."  (region-end) (region-beginning)))
          (words (count-words-region (region-end) (region-beginning)))
