Bắt flycheck, nhảy sang lỗi tiếp theo / trước

Tôi muốn Mg n và Mg p quay vòng, ít nhất là khi tôi đang sử dụng chúng với flycheck. Tính năng này yêu cầu viết một chức năng tùy chỉnh vì nó không được hỗ trợ (như đã đề cập trên https://github.com/flycheck/flycheck/issues/64 và được xác nhận trong trò chuyện), nhưng tôi là một Elisp noob.

Vì các lý do khác (làm việc xung quanh https://github.com/commIALhaskell/intero/issues/268 ), trong flycheck-modetôi bỏ qua next-errorvà gọi flycheck-next-errortrực tiếp. Tôi có thể sống với chế độ biên dịch bình thường không đi xe đạp vì tôi ít khi sử dụng nó (mặc dù có lẽ điều này sẽ gây khó chịu nếu tôi bắt đầu sử dụng chế độ biên dịch).

Đây là những gì tôi đã đưa ra (như một người mới) sau khi tìm hiểu về condition-case, lời khuyên universal-argumentvà một số nội bộ của flycheck. Tôi thường không viết mã với rất ít manh mối về những gì tôi đang làm, vì vậy tôi hoan nghênh câu trả lời tốt hơn.

Nhận xét đăng nhập được để lại vì tôi không coi việc này là xong và đối với những người muốn theo dõi việc thực thi mã này.

Cuối cùng, điều này không có gì cho raw next-error, nó chỉ được gọi khi flycheck.

;; Optional: ensure flycheck cycles, both when going backward and forward.
;; Tries to handle arguments correctly.
;; Since flycheck-previous-error is written in terms of flycheck-next-error,
;; advising the latter is enough.
(defun flycheck-next-error-loop-advice (orig-fun &optional n reset)
  ; (message "flycheck-next-error called with args %S %S" n reset)
  (condition-case err
      (apply orig-fun (list n reset))
    ((user-error)
     (let ((error-count (length flycheck-current-errors)))
       (if (and
            (> error-count 0)                   ; There are errors so we can cycle.
            (equal (error-message-string err) "No more Flycheck errors"))
           ;; We need to cycle.
           (let* ((req-n (if (numberp n) n 1)) ; Requested displacement.
                  ; An universal argument is taken as reset, so shouldn't fail.
                  (curr-pos (if (> req-n 0) (- error-count 1) 0)) ; 0-indexed.
                  (next-pos (mod (+ curr-pos req-n) error-count))) ; next-pos must be 1-indexed
             ; (message "error-count %S; req-n %S; curr-pos %S; next-pos %S" error-count req-n curr-pos next-pos)
             ; orig-fun is flycheck-next-error (but without advise)
             ; Argument to flycheck-next-error must be 1-based.
             (apply orig-fun (list (+ 1 next-pos) 'reset)))
         (signal (car err) (cdr err)))))))

(advice-add 'flycheck-next-error :around #'flycheck-next-error-loop-advice)

Đây là ảnh chụp nhanh https://gist.github.com/Blaisorblade/c7349438b06e7b1e034db775408ac4cb , nơi tôi sẽ đặt bất kỳ phiên bản cập nhật nào.