45 lines
1.8 KiB
EmacsLisp
45 lines
1.8 KiB
EmacsLisp
;; -*- 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
|
|
|
|
;;flymake-ler(file line type text &optional full-file)
|
|
(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 (second 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)))
|