                                        (mode-line . (keymap (mouse-1 . flycheck-list-errors)
                                                             (mouse-3 . flycheck-buffer))))))))
 
-(defun custom-modeline-flyspell()
+(defun custom-modeline-flyspell ()
   `(,(format " %s:%s"
              flyspell-mode-line-string
              (split-string ispell-current-dictionary "_"))))

              '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"

       (propertize (format " (%s,%s,%s)" chars words lines)
                   'face `(:height 0.9))))))

(defun custom-modeline-parinfer ()
  '(" "
    (:propertize
     (:eval (parinfer--lighter))
