elisp/anki-editor
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Signal 'user-error' instead of 'error' where appropriate

Browse source 
User errors normally do not cause entry to the debugger, but this
can be overrridden by 'debug-ignored-errors'.
This commit is contained in:
orgtre 2022-11-02 22:08:26 +01:00
parent 14ed1ad8bf
commit 311b3564ad
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
anki-editor.el
View file

@ -660,8 +660,8 @@ see `anki-editor-insert-note' which wraps this function."
(car x) (car x)
(anki-editor--export-string (cdr x) format))) (anki-editor--export-string (cdr x) format)))
fields))) fields)))
(unless deck (error "Missing deck")) (unless deck (user-error "Missing deck"))
(unless note-type (error "Missing note type")) (unless note-type (user-error "Missing note type"))
(make-anki-editor-note :id note-id (make-anki-editor-note :id note-id
:model note-type :model note-type
:deck deck :deck deck
@ -794,7 +794,7 @@ Return a list of cons of (FIELD-NAME . FIELD-CONTENT)."
nil nil #'string=))))) nil nil #'string=)))))
(cond ((equal 0 (length fields-missing)) (cond ((equal 0 (length fields-missing))
(when (< 0 (length fields-extra)) (when (< 0 (length fields-extra))
(error "Failed to map all subheadings to a field."))) (user-error "Failed to map all subheadings to a field.")))
((equal 1 (length fields-missing)) ((equal 1 (length fields-missing))
(if (equal 0 (length fields-extra)) (if (equal 0 (length fields-extra))
(if (equal "" (string-trim content-before-subheading)) (if (equal "" (string-trim content-before-subheading))
@ -855,7 +855,7 @@ Return a list of cons of (FIELD-NAME . FIELD-CONTENT)."
heading) heading)
fields))))) fields)))))
((< 2 (length fields-missing)) ((< 2 (length fields-missing))
(error "Cannot map note fields: More than two fields missing."))) (user-error "Cannot map note fields: More than two fields missing.")))
fields))) fields)))
(defun anki-editor--concat-fields (field-names field-alist level) (defun anki-editor--concat-fields (field-names field-alist level)
@ -1063,7 +1063,7 @@ inverts the value of `anki-editor-insert-note-always-use-content'."
(defun anki-editor-cloze-region (&optional arg hint) (defun anki-editor-cloze-region (&optional arg hint)
"Cloze region with number ARG." "Cloze region with number ARG."
(interactive "p\nsHint (optional): ") (interactive "p\nsHint (optional): ")
(unless (region-active-p) (error "No active region")) (unless (region-active-p) (user-error "No active region"))
(anki-editor-cloze (region-beginning) (region-end) arg hint)) (anki-editor-cloze (region-beginning) (region-end) arg hint))
(defun anki-editor-cloze-dwim (&optional arg hint) (defun anki-editor-cloze-dwim (&optional arg hint)
@ -1073,7 +1073,7 @@ inverts the value of `anki-editor-insert-note-always-use-content'."
((region-active-p) (anki-editor-cloze (region-beginning) (region-end) arg hint)) ((region-active-p) (anki-editor-cloze (region-beginning) (region-end) arg hint))
((thing-at-point 'word) (let ((bounds (bounds-of-thing-at-point 'word))) ((thing-at-point 'word) (let ((bounds (bounds-of-thing-at-point 'word)))
(anki-editor-cloze (car bounds) (cdr bounds) arg hint))) (anki-editor-cloze (car bounds) (cdr bounds) arg hint)))
(t (error "Nothing to create cloze from")))) (t (user-error "Nothing to create cloze from"))))
(defun anki-editor-cloze (begin end arg hint) (defun anki-editor-cloze (begin end arg hint)
"Cloze region from BEGIN to END with number ARG." "Cloze region from BEGIN to END with number ARG."
@ -1112,7 +1112,7 @@ inverts the value of `anki-editor-insert-note-always-use-content'."
(if (<= anki-editor-api-version ver) (if (<= anki-editor-api-version ver)
(when (called-interactively-p 'interactive) (when (called-interactively-p 'interactive)
(message "AnkiConnect v.%d is running" ver)) (message "AnkiConnect v.%d is running" ver))
(error "anki-editor requires minimal version %d of AnkiConnect installed" (user-error "anki-editor requires minimal version %d of AnkiConnect installed"
anki-editor-api-version)))) anki-editor-api-version))))
(defun anki-editor-sync-collections () (defun anki-editor-sync-collections ()