60617 Nafai (when (load "flymake" t) (defun flymake-pyflakes-init () (let* ((temp-file (flymake-init-create-temp-buffer-copy 'flymake-create-temp-with-folder-structure)) (local-file (file-relative-name temp-file (file-name-directory buffer-file-name)))) (list "pyflakes" (list local-file)))) (add-to-list 'flymake-allowed-file-name-masks '("\\.py\\'" flymake-pyflakes-init))) (load-library "flymake-cursor") (add-hook 'find-file-hook 'flymake-find-file-hook) 3419557099 None Emacs Lisp TRUE 1 Nafai ;; -*- 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))) 3419557139 None TRUE