Url + json 需要帮助

Emacs-Lisp
1

有哪位同学熟悉 url 和 json, 麻烦帮忙优化一下下面这段代码，我不太熟悉 url 库，写出来的代码感觉有点 low.

(defun pyim-cloudpinyin-baidu (string)
  "使用 baidu 搜索 STRING, 获取词条列表。"
  (with-current-buffer (url-retrieve-synchronously
                        (format "https://olime.baidu.com/py?py=%s" string)
                        t nil 1)
    (goto-char (point-min))
    (search-forward "\n\n" nil t)
    (delete-region (point-min) (point))
    (let ((data (json-parse-buffer)))
      (list (elt (elt (elt (gethash "0" data) 0) 0) 0)))))
2

url-retrieve-synchronously好像是同步调用啊，不会卡吗？

3

我在pyim中已经用了 timer 机制，再用异步后，感觉结果不好处理，我准备用 timeout 限制一下

4

http返回结果有些变量可以直接用，不用自己 search-forward

比如(goto-char url-http-end-of-headers)

这些变量在url-http.el里声明，没找到文档