From dd5b9c90c87f77a55d5d7f9f52f99e39a1e2f97a Mon Sep 17 00:00:00 2001
From: Bram Schoenmakers <me@bramschoenmakers.nl>
Date: Mon, 25 Dec 2023 07:54:42 +0100
Subject: [PATCH] Remove debug variables

---
 kagi.el | 40 ++++++++++++----------------------------
 1 file changed, 12 insertions(+), 28 deletions(-)

diff --git a/kagi.el b/kagi.el
index 2278d71..433eea3 100644
--- a/kagi.el
+++ b/kagi.el
@@ -69,14 +69,6 @@ https://kagi.com/settings?p=api"
   :type '(choice string function)
   :group 'kagi)
 
-(defvar kagi--canned-response "{\"meta\":{\"id\":\"2c6ea22b-16ea-4529-87c0-612474125724\",\"node\":\"europe-west4\",\"ms\":3099,\"api_balance\":4.805},\"data\":{\"output\":\"Based on the context provided:\\n\\nKagi search is a premium search engine created by Kagi to be faster than other search engines like Google. Some context mentions using Kagi search instead of Google [1][2]. Emacs allows customization and extension through editing Lisp code. Kagi search could potentially be integrated into Emacs to provide search capabilities without leaving the editor, allowing users to seamlessly search from within Emacs. [3]\",\"tokens\":1036,\"references\":[{\"title\":\"View topic - can dnsmasq suppress AAAA/IPv6 queries? - DD-WRT\",\"snippet\":\"<b>Well</b>, that was <b>a</b> google nightmare! (Actually I use <b>kagi</b>.com now instead of google/startpage, fwiw.) I found nothing except the dnsmasq man ...\",\"url\":\"https://forum.dd-wrt.com/phpBB2/viewtopic.php?t=335561&sid=ca1d16c9ffe0db1a7ddd02ecc57f5a3e\"},{\"title\":\"View topic - [SOLVED: no] can dnsmasq suppress AAAA ... - DD-WRT\",\"snippet\":\"<b>Well</b>, that was <b>a</b> google nightmare! (Actually I use <b>kagi</b>.com now instead of google/startpage, fwiw.) I found nothing except the dnsmasq man ...\",\"url\":\"https://forum.dd-wrt.com/phpBB2/viewtopic.php?p=1294379&sid=cdc0b6cb7e86d7f3a66211f7f81d060f\"},{\"title\":\"Orion is a web browser based on Safari that supports both Chrome ...\",\"snippet\":\" It's from <b>Kagi</b> who are creating <b>a</b> \\\"Premium <b>search</b> engine\\\" currently ... Maybe I will <b>give</b> it <b>a go</b> in the future. Upvote 2. Downvote Reply reply\",\"url\":\"https://www.reddit.com/r/macapps/comments/sat03p/orion_is_a_web_browser_based_on_safari_that/\"}]}}"
-  "A test response for debugging purposes.")
-
-(defcustom kagi-debug nil
-  "Enable debugging statements."
-  :type 'boolean
-  :group 'kagi)
-
 (defcustom kagi-api-summarizer-url "https://kagi.com/api/v0/summarize"
   "The Kagi Summarizer API entry point."
   :type '(choice string function)
@@ -148,26 +140,18 @@ https://kagi.com/settings?p=api"
 
   Returns the JSON response as a string. See
   https://help.kagi.com/kagi/api/fastgpt.html for the
-  interpretation.
-
-  If `kagi-debug' is non-nil, it will return the value of
-  `kagi--canned-response', no remote call will be made. This is useful
-  for development purposes as API calls require a charge your API
-  credit at Kagi."
-  (if kagi-debug
-      kagi--canned-response
-
-    (with-temp-buffer
-      (insert (json-encode `((query . ,prompt))))
-      (let* ((call-process-flags '(nil nil "curl" t t nil))
-             (curl-flags (kagi--curl-flags))
-             (all-flags (append call-process-flags
-                                curl-flags
-                                (list kagi-api-fastgpt-url)))
-             (return (apply #'call-process-region all-flags)))
-        (if (eql return 0)
-            (buffer-string)
-          (error "Call to FastGPT API returned with status %s" return))))))
+  interpretation."
+  (with-temp-buffer
+    (insert (json-encode `((query . ,prompt))))
+    (let* ((call-process-flags '(nil nil "curl" t t nil))
+           (curl-flags (kagi--curl-flags))
+           (all-flags (append call-process-flags
+                              curl-flags
+                              (list kagi-api-fastgpt-url)))
+           (return (apply #'call-process-region all-flags)))
+      (if (eql return 0)
+          (buffer-string)
+        (error "Call to FastGPT API returned with status %s" return)))))
 
 (defun kagi--call-summarizer (obj)
   "Submit the given TEXT to the Summarizer API.