mirror of
https://fuchsia.googlesource.com/third_party/github.com/pylint-dev/pylint
synced 2024-09-22 08:33:42 +00:00
69 lines
2.0 KiB
EmacsLisp
69 lines
2.0 KiB
EmacsLisp
;; Fixed bug where py-mode-map is undefined in Gnu Emacs 22 and 23
|
|
;; Yuen Ho Wong (2009)
|
|
;;
|
|
;; Modifications done by Yarosav O. Halchenko (2008):
|
|
;; - enable user-visible variables
|
|
;; distributed under the same copyright/license terms as
|
|
;; pylint itself
|
|
;;
|
|
(require 'compile)
|
|
|
|
;; user definable variables
|
|
;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
|
|
|
|
(defgroup pylint nil
|
|
"Emacs support for the Pylint Python checker"
|
|
:group 'languages
|
|
:prefix "pylint-")
|
|
|
|
(defcustom pylint-options "--output-format=parseable"
|
|
"*Command line options to be used with pylint call"
|
|
:type 'string
|
|
:group 'pylint)
|
|
|
|
|
|
;; adapted from pychecker for pylint
|
|
(defun pylint-python-hook ()
|
|
(defun pylint ()
|
|
"Run pylint against the file behind the current buffer after
|
|
checking if unsaved buffers should be saved."
|
|
|
|
(interactive)
|
|
(let* ((file (buffer-file-name (current-buffer)))
|
|
(command (concat "pylint " pylint-options " \"" file "\"")))
|
|
(save-some-buffers (not compilation-ask-about-save) nil) ; save files.
|
|
(compilation-start command)))
|
|
|
|
(let ((python-mode-map (cond ((boundp 'py-mode-map) py-mode-map)
|
|
((boundp 'python-mode-map) python-mode-map))))
|
|
|
|
;; shortcuts in the tradition of python-mode and ropemacs
|
|
(define-key python-mode-map (kbd "C-c m l") 'pylint)
|
|
(define-key python-mode-map (kbd "C-c m p") 'previous-error)
|
|
(define-key python-mode-map (kbd "C-c m n") 'next-error)
|
|
|
|
(let ((map))
|
|
(if(boundp 'py-mode-map)
|
|
(setq map py-mode-map)
|
|
(setq map python-mode-map)
|
|
(define-key
|
|
map
|
|
[menu-bar Python pylint-separator]
|
|
'("--" . pylint-seperator))
|
|
(define-key
|
|
map
|
|
[menu-bar Python next-error]
|
|
'("Next error" . next-error))
|
|
(define-key
|
|
map
|
|
[menu-bar Python prev-error]
|
|
'("Previous error" . previous-error))
|
|
(define-key
|
|
map
|
|
[menu-bar Python lint]
|
|
'("Pylint" . pylint))
|
|
))
|
|
))
|
|
|
|
(add-hook 'python-mode-hook 'pylint-python-hook)
|