Usando uma chave para Ambos flymake E flyspell
Pergunta
Eu estou usando flymake com pyflakes para verificar meu código python e flyspell para verificar minhas cordas e comentários. Eu quero ter uma função que irá para o próximo erro, ou irá exibir informações sobre o erro se atualmente em um erro. Como eu iria escrever esta função?
Solução
Este código fornece funcionalidade que salta para o próximo erro, e se é um erro flymake, exibe informações para ele, se é um erro flyspell, corrige-lo para você. Se você não quiser que a auto-correção, un-comentário da linha que as chamadas 'my-flyspell-message
e remover a linha antes que chama 'flyspell-auto-correct-word
-. E você só vai receber uma mensagem sobre a palavra a ser grafada
A primeira linha liga-se este para a associação de teclas C-C N . Para mais informações sobre as chaves de ligação, consulte a página de informações Key ligações .
(global-set-key (kbd "C-c n") 'my-display-error-or-next-error)
(defun my-display-error-or-next-error ()
"display information for current error, or go to next one"
(interactive)
(when (or (not (my-at-flymake-error))
(not (my-at-flyspell-error)))
;; jump to error if not at one
(my-goto-next-error))
(cond ((my-at-flymake-error)
;; if at flymake error, display menu
(flymake-display-err-menu-for-current-line))
((my-at-flyspell-error)
;; if at flyspell error, fix it
(call-interactively 'flyspell-auto-correct-word)
;; or, uncomment the next line to just get a message
;; (my-flyspell-message)
)))
(defun my-at-flyspell-error ()
"return non-nill if at flyspell error"
(some 'flyspell-overlay-p (overlays-at (point))))
(defun my-at-flymake-error ()
"return non-nil if at flymake error"
(let* ((line-no (flymake-current-line-no))
(line-err-info-list (nth 0 (flymake-find-err-info flymake-err-info line-no))))
line-err-info-list))
(defun my-goto-next-error ()
"jump to next flyspell or flymake error"
(interactive)
(let* ((p (point))
(spell-next-error-function '(lambda ()
(forward-word) (forward-char)
(flyspell-goto-next-error)))
(spell-pos (save-excursion
(funcall spell-next-error-function)
(point)))
(make-pos (save-excursion
(flymake-goto-next-error)
(point))))
(cond ((or (and (< p make-pos) (< p spell-pos))
(and (> p make-pos) (> p spell-pos)))
(funcall (if (< make-pos spell-pos)
'flymake-goto-next-error
spell-next-error-function)))
((< p make-pos)
(flymake-goto-next-error))
((< p spell-pos)
(funcall spell-next-error-function)))))
(defun my-flyspell-message ()
(interactive)
(let ((word (thing-at-point 'word)))
(set-text-properties 0 (length word) nil word)
(message "Missspelled word: %s" word)))