bram/kagi.el
1
0
Fork 0
Code Issues Activity

Factor out the API endpoint from kagi--curl-flags

Browse source
This commit is contained in:
Bram Schoenmakers 2023-12-24 23:25:07 +01:00
parent 11865f92cf
commit 673554813b
Signed by: bram
GPG key ID: 0CCD19DFDC63258F
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
kagi.el
View file

@ -78,16 +78,14 @@ https://kagi.com/settings?p=api"
:group 'kagi)
(defun kagi--curl-flags ()
"Collect flags for a `curl' command to call the Kagi FastGPT API."
"Collect flags for a `curl' command to call the Kagi API."
(let ((token (cond ((functionp kagi-api-token) (funcall kagi-api-token))
((stringp kagi-api-token) kagi-api-token)
(t (error "No API token configured in variable kagi-api-token")))))
`("--silent"
"--header" ,(format "Authorization: Bot %s" token)
"--header" "Content-Type: application/json"
"--data" "@-"
,kagi-api-fastgpt-url
)))
"--data" "@-")))
(defun kagi--html-bold-to-face (string)
"Convert HTML tags inside STRING to faces.
@ -150,7 +148,9 @@ https://kagi.com/settings?p=api"
(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))
(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)