Obteniendo flycheck "saltar al siguiente / anterior error" al ciclo

Me gustaría que Mg n y Mg p se ciclo, al menos cuando los estoy usando con flycheck. Esta característica requiere escribir una función personalizada, ya que no es compatible (como se menciona en https://github.com/flycheck/flycheck/issues/64 y se confirma en el chat), pero soy un novato de Elisp.

Por otras razones (trabajando alrededor de https://github.com/commercialhaskell/intero/issues/268 ), en flycheck-modeOmitir next-errore invocar flycheck-next-errordirectamente. Puedo vivir con el modo de compilación normal sin ciclar ya que lo uso raramente (aunque probablemente esto se volverá molesto si empiezo a usar el modo de compilación).

Esto es lo que se me ocurrió (como novato) después de conocer condition-case, consejos universal-argumenty algunos aspectos internos de flycheck. Por lo general, no escribo código con tan poca idea de lo que estoy haciendo, así que agradezco mejores respuestas.

El registro comentado se deja ya que no considero que esto haya finalizado, y para aquellos que desean rastrear la ejecución de este código.

Finalmente, esto no hace nada para raw next-error, solo se invoca cuando flycheck es.

;; 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)

Esta es una instantánea de https://gist.github.com/Blaisorblade/c7349438b06e7b1e034db775408ac4cb , donde colocaré cualquier versión actualizada.