From 3fba9ea13b515c8a8738f4d1dfa43b548cab4033 Mon Sep 17 00:00:00 2001
From: louie <louietan@hotmail.com>
Date: Sun, 23 Feb 2020 15:37:40 +0800
Subject: [PATCH] Fix byte-compilation warnings

---
 anki-editor.el | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/anki-editor.el b/anki-editor.el
index 2e4c0e3..8fbc91c 100644
--- a/anki-editor.el
+++ b/anki-editor.el
@@ -71,11 +71,13 @@
 (defcustom anki-editor-break-consecutive-braces-in-latex
   nil
   "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
   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
   '("marked" "leech")
@@ -92,11 +94,13 @@ form entries."
 
 (defcustom anki-editor-api-host
   "127.0.0.1"
-  "The network address AnkiConnect is listening.")
+  "The network address AnkiConnect is listening."
+  :type 'string)
 
 (defcustom anki-editor-api-port
   "8765"
-  "The port number AnkiConnect is listening.")
+  "The port number AnkiConnect is listening."
+  :type 'string)
 
 (defcustom anki-editor-latex-style 'builtin
   "The style of latex to translate into."
@@ -110,7 +114,7 @@ form entries."
 
 (cl-defun anki-editor--fetch (url
                               &rest settings
-                              &key type data success error parser
+                              &key type data success _error parser
                               &allow-other-keys)
   "This is a simplistic little function to make http requests using cURL.
 The api is borrowed from request.el.  It exists because
@@ -145,7 +149,7 @@ more digging."
 (defun anki-editor-api-call (action &rest params)
   "Invoke AnkiConnect with ACTION and PARAMS."
   (let ((payload (list :action action :version anki-editor-api-version))
-        (request-backend 'curl)
+        (_request-backend 'curl)
         (json-array-type 'list)
         reply err)
 
@@ -189,7 +193,7 @@ of these calls in the same order."
                       (vconcat
                        --anki-editor-var-multi-actions--))))
      (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)))
                    (error err))
               collect result)))