;; -*- emacs-lisp -*-

;; License: Gnu Public License

;;

;; Additional functionality that makes flymake error messages appear

;; in the minibuffer when point is on a line containing a flymake

;; error. This saves having to mouse over the error, which is a

;; keyboard user's annoyance

(defun show-fly-err-at-point ()

  "If the cursor is sitting on a flymake error, display the

message in the minibuffer"

  (interactive)

  (let ((line-no (line-number-at-pos)))

    (dolist (elem flymake-err-info)

      (if (eq (car elem) line-no)

	  (let ((err (car (nth 1 elem))))

	    (message "%s" (fly-pyflake-determine-message err)))))))

(defun fly-pyflake-determine-message (err)

  "pyflake is flakey if it has compile problems, this adjusts the

message to display, so there is one ;)"

  (cond ((not (or (eq major-mode 'Python) (eq major-mode 'python-mode) t)))

	((null (flymake-ler-file err))

	 ;; normal message do your thing

	 (flymake-ler-text err))

	(t ;; could not compile err

	 (format "compile error, problem on line %s" (flymake-ler-line err)))))

(defadvice flymake-goto-next-error (after display-message activate compile)

  "Display the error in the mini-buffer rather than having to mouse over it"

  (show-fly-err-at-point))

(defadvice flymake-goto-prev-error (after display-message activate compile)

  "Display the error in the mini-buffer rather than having to mouse over it"

  (show-fly-err-at-point))

(defadvice flymake-mode (before post-command-stuff activate compile)

  "Add functionality to the post command hook so that if the

cursor is sitting on a flymake error the error information is

displayed in the minibuffer (rather than having to mouse over

it)"

  (set (make-local-variable 'post-command-hook)

       (cons 'show-fly-err-at-point post-command-hook)))

(provide 'flymake-point)