sqrtminusone/reverso.el
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/reverso.el.git synced 2025-12-10 15:53:02 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat: ignore errors

Browse source
This commit is contained in:
Pavel Korytov 2022-08-24 22:40:03 +03:00
parent 46f7ef2b2d
commit 1476cdcb68
1 changed files with 15 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
reverso.el
View file

@ -998,6 +998,16 @@ alist as defined in `reverso--get-grammar'."
if (overlay-get ov 'reverso-correction) if (overlay-get ov 'reverso-correction)
return (cons ov (overlay-get ov 'reverso-correction)))) return (cons ov (overlay-get ov 'reverso-correction))))
(defun reverso-check-ignore-error ()
"Remove error at point."
(interactive)
(let ((err (reverso--get-error-at-point)))
(unless err
(user-error "No error at point!"))
(delete-overlay (car err))
(when transient-current-command
(reverso-check-next-error))))
(defun reverso-describe-error-at-point () (defun reverso-describe-error-at-point ()
"Describe reverso-error at point." "Describe reverso-error at point."
(interactive) (interactive)
@ -1013,6 +1023,8 @@ alist as defined in `reverso--get-grammar'."
(let ((err (reverso--get-error-at-point))) (let ((err (reverso--get-error-at-point)))
(unless err (unless err
(user-error "No error at point!")) (user-error "No error at point!"))
(unless (alist-get :suggestions (cdr err))
(user-error "No suggestions!"))
(let ((correction (let ((correction
(completing-read (completing-read
"Fix: " "Fix: "
@ -1035,7 +1047,7 @@ alist as defined in `reverso--get-grammar'."
If a region is active, restrict the action to that region. If a region is active, restrict the action to that region.
LANGUAGE is a language from the `reverso--languages' list. LANGUAGE is a language from the `reverso--languages' list.
REGION-START and REGION-END are borders of the region. REGION-START and REGION-END are the borders of the region.
If STRING-JOIN is non-nil, remove linebreaks from the string." If STRING-JOIN is non-nil, remove linebreaks from the string."
(interactive (append (interactive (append
@ -1068,7 +1080,7 @@ If STRING-JOIN is non-nil, remove linebreaks from the string."
"Whether to use the current buffer as input. "Whether to use the current buffer as input.
That parameter is normally set by the prefix argument, but as it That parameter is normally set by the prefix argument, but as it
doesn't pesist between parent and child invocations, this variable is doesn't persist between parent and child invocations, this variable is
used instead.") used instead.")
(cl-defmethod transient-init-value ((obj reverso--transient-input)) (cl-defmethod transient-init-value ((obj reverso--transient-input))
@ -1524,6 +1536,7 @@ region. Otherwise, use the entire buffer."
["Errors" ["Errors"
:class transient-row :class transient-row
("f" "Fix error" reverso--check-fix-at-point-transient) ("f" "Fix error" reverso--check-fix-at-point-transient)
("i" "Ignore error" reverso-check-ignore-error :transient t)
("p" "Previous error" reverso-check-prev-error :transient t) ("p" "Previous error" reverso-check-prev-error :transient t)
("P" "First error" reverso-check-first-error :transient t) ("P" "First error" reverso-check-first-error :transient t)
("n" "Next error" reverso-check-next-error :transient t) ("n" "Next error" reverso-check-next-error :transient t)