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

Fix byte-compilation warnings

Browse source
This commit is contained in:
louie 2020-02-23 15:37:40 +08:00
parent b2cbf48911
commit 3fba9ea13b
1 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
anki-editor.el
View file

@ -71,11 +71,13 @@
(defcustom anki-editor-break-consecutive-braces-in-latex (defcustom anki-editor-break-consecutive-braces-in-latex
nil nil
"If non-nil, consecutive `}' will be automatically separated by spaces to prevent early-closing of cloze. "If non-nil, consecutive `}' will be automatically separated by spaces to prevent early-closing of cloze.
See https://apps.ankiweb.net/docs/manual.html#latex-conflicts.") See https://apps.ankiweb.net/docs/manual.html#latex-conflicts."
:type 'boolean)
(defcustom anki-editor-org-tags-as-anki-tags (defcustom anki-editor-org-tags-as-anki-tags
t t
"If nil, tags of entries won't be counted as Anki tags.") "If nil, tags of entries won't be counted as Anki tags."
:type 'boolean)
(defcustom anki-editor-protected-tags (defcustom anki-editor-protected-tags
'("marked" "leech") '("marked" "leech")
@ -92,11 +94,13 @@ form entries."
(defcustom anki-editor-api-host (defcustom anki-editor-api-host
"127.0.0.1" "127.0.0.1"
"The network address AnkiConnect is listening.") "The network address AnkiConnect is listening."
:type 'string)
(defcustom anki-editor-api-port (defcustom anki-editor-api-port
"8765" "8765"
"The port number AnkiConnect is listening.") "The port number AnkiConnect is listening."
:type 'string)
(defcustom anki-editor-latex-style 'builtin (defcustom anki-editor-latex-style 'builtin
"The style of latex to translate into." "The style of latex to translate into."
@ -110,7 +114,7 @@ form entries."
(cl-defun anki-editor--fetch (url (cl-defun anki-editor--fetch (url
&rest settings &rest settings
&key type data success error parser &key type data success _error parser
&allow-other-keys) &allow-other-keys)
"This is a simplistic little function to make http requests using cURL. "This is a simplistic little function to make http requests using cURL.
The api is borrowed from request.el. It exists because The api is borrowed from request.el. It exists because
@ -145,7 +149,7 @@ more digging."
(defun anki-editor-api-call (action &rest params) (defun anki-editor-api-call (action &rest params)
"Invoke AnkiConnect with ACTION and PARAMS." "Invoke AnkiConnect with ACTION and PARAMS."
(let ((payload (list :action action :version anki-editor-api-version)) (let ((payload (list :action action :version anki-editor-api-version))
(request-backend 'curl) (_request-backend 'curl)
(json-array-type 'list) (json-array-type 'list)
reply err) reply err)
@ -189,7 +193,7 @@ of these calls in the same order."
(vconcat (vconcat
--anki-editor-var-multi-actions--)))) --anki-editor-var-multi-actions--))))
(cl-loop for result in --anki-editor-var-multi-results-- (cl-loop for result in --anki-editor-var-multi-results--
do (when-let ((_ (listp result)) do (when-let ((pred (listp result))
(err (alist-get 'error result))) (err (alist-get 'error result)))
(error err)) (error err))
collect result))) collect result)))