Emacs 中的 minibuffer 如何实现类似Google实时补全的效果?

elisp

#1

我想要在Emacs输入候选项时,获得AJAX API提供的实时补全选项,从中选取。好像Helm有 个插件有类似的功能,忘记是啥了。不知道有没有人知道怎么怎么实现?

插件中如下代码

    (defun kiwix-ping-server ()
      "Ping Kiwix server to set `kiwix-server-available?' global state variable."
      (request kiwix-server-url
               :type "GET"
               :sync t
               :parser (lambda () (libxml-parse-html-region (point-min) (point-max)))
               :success (function* (lambda (&key data &allow-other-keys)
                                     (setq kiwix-server-available? t)))
               :error (function* (lambda (&rest args &key error-thrown &allow-other-keys)
                                   (setq kiwix-server-available? nil)))))

    (defun kiwix-ajax-search-hints (input)
      "Instantly AJAX request to get available Kiwix entry keywords
    list and return a list result."
      (let* ((ajax-api "http://127.0.0.1:8089/suggest?content=wikipedia_zh_all_2015-11&term=")
             (ajax-url (concat ajax-api input))
             (data (request-response-data
                    (request ajax-url
                             :type "GET"
                             :sync t
                             :headers '(("Content-Type" . "application/json"))
                             :parser #'json-read
                             :success (function*
                                       (lambda (&key data &allow-other-keys)
                                         (print data)))))))
        (if (vectorp data)
            (mapcar 'cdar data))))

    ;;;###autoload
    (defun kiwix-at-point (&optional interactively)
      "Search for the symbol at point with `kiwix-query'.

    Or When prefix argument `INTERACTIVELY' specified, then prompt
    for query string and library interactively."
      (interactive "P")
      (kiwix-ping-server)
      (if kiwix-server-available?
          (let* ((library (if (or kiwix-search-interactively interactively)
                              (kiwix-select-library)
                            (kiwix--get-library-name kiwix-default-library)))
                 (query (completing-read ; 如何实现实时搜索补全显示结果?
                         "Kiwix related entries: "
                         (kiwix-ajax-search-hints
                          (if interactively
                              (read-string "Kiwix Search: "
                                           (if mark-active
                                               (buffer-substring (region-beginning) (region-end))
                                             (thing-at-point 'symbol)))
                            (progn (if mark-active
                                       (buffer-substring (region-beginning) (region-end))
                                     (thing-at-point 'symbol))))))))
            (message (format "library: %s, query: %s" library query))
            (if (or (null library)
                    (string-empty-p library)
                    (null query)
                    (string-empty-p query))
                (error "Your query is invalid")
              (kiwix-query query library)))
        (warn "kiwix-serve is not available, please start it at first."))
      (setq kiwix-server-available? nil))

在 “; 如何实现实时搜索补全显示结果?” 位置,这个要怎么实现呢?需要用到 Ivy 和 Helm 么? completing-read 需要的第二个参数是 COLLECTION. 怎么样让他变成函数 呢?这样就可以使用 kiwix-ajax-search-hints 了。


[Release] kiwix.el 一个Emacs中实时搜索浏览Kiwix离线维基百科的插件
#2

其实就是拉取列表以后补全,可以参考yaoddmuse的代码


#3

我用 kiwix-ajax-search-hints 拉取列表了。但是里面麻烦的是 read-string 在内部。不知道要怎么处理。补全在外部 completing-read.

— UPDATE

reading yaoddmue and helm-yaoddmuse code on GitHub.


#4

现有的补全框架都没法很好的处理这种异步操作的补全候选项,ivy和helm的异步补全只支持异步子进程的补全, 没有通用的异步API(接受一个promise/async stream, 制造补全列表),而且他们实现都很hack


#5

这样啊,那这异步补全是挺麻烦的。


#6

你知道 helm 关于异步补全的部分是哪里么?我去看下。


#7

helm默认只支持async process补全,在helm-get-candidates 里设置了子进程的process filter(子进程向父进程发送数据时调用的callback)具体是函数helm-output-filter-1。filter用helm-insert-match手动插入补全选项。


#8

COLLECTION 可以是函数,印象中有机会每次用户按 TAB 的时候重新计算补全项目。


同步的方法或许是可行的,尤其在获取补全很快的情况下,用 Helm 或 Ivy 提供的工具,可以做到看起来是「实时」的效果。


#9

helm的volatile和ivy的dynamic-collection。设置为t的话他们每次都会重新计算候选项


#10

这个是个好问题


#11

C-h f deferred:$

我觉得这个应该能行


#12

json文件的内容

{“hello”:“hello”,“world”:“world”}

(defvar zxc nil "")

(deferred:$
   (deferred:url-get "http://192.168.1.101:8000/index.json")
   (deferred:nextc it
     (lambda (buf)
       (with-current-buffer buf
         (goto-char 1)
         (setq zxc (json-read))
         )))
   (deferred:nextc it
     (lambda (buf)
       (ivy-read "zxc: " zxc)
       )))

#13

现在我把函数简化成这样。貌似还是不行,是不是我方式写错了?

(completing-read "Kiwix related entries: "
                 (kiwix-ajax-search-hints (read-string "Kiwix Search: ")))

#14

这个deferred我也本来想到了,看了看,觉得还是有点问题。那就是Kiwix 的搜索请求API 是需要输入值的。也就是说当前的输入需要实时发送给这个API。不知道用你上面的形式怎 么嵌入。我尝试了一下:

(defvar kiwix-search-hints nil "")

(deferred:$
  (deferred:url-get (concat "http://127.0.0.1:8089/suggest?content=wikipedia_zh_all_2015-11&term=" (read-string "Query word: ")))
  (deferred:nextc it
    (lambda (buf)
      (with-current-buffer buf
        (goto-char 1)
        (setq zxc (json-read))
        )))
  (deferred:nextc it
    (lambda (buf)
      (ivy-read "Kiwix Search: " kiwix-search-hints))))

#15

Helm 我还在看,对我来说有点难。:slight_smile:


#16

zxc 你没有替换完欧

所以你得到的应该是个空表


#17

json read出来的是什么

ivy里能用吗

你这个本地的ajax 有我能用的版本吗


#18

昨晚在测试deferred函数的时候,弹出Ivy的错误stacktrace,发现 ivy-read 的调用参 数里包含 :dynamic-collection想到这是 @cireu 提到过的,哈哈,感谢。于是测试了一下用例。结果实现了。 就是这个实现目前还有点粗糙,但是至少实现了。睡觉都舒服了哈哈。实现后的diff如下:

另外还有一点问题是: request 抓取的JSON结果会显示在 minibuffer也就是 echo area, 这个会破坏原有的Ivy补全项显示。怎么silent结果呢?我a可能了 request 函数 的参数,好像没有这个选项。Emacs下搜索也没找到含有silent的函数,但是之前我记得在 哪里看到过一个可以silent结果的。另外打算在Ivy的更新函数里尝试下 deferred 异步。 不知道会不会效果更好点。


#19

你把 (print data) 变成 data 就行了


#20

另外 有人尝试过读取