如何优雅地让 ivy-completing-read preselect 上一次的选项

Emacs-general
1

我有一个常用于摘抄笔记时包裹代码的函数:

(defconst mp-org/src-code-types
  '("emacs-lisp" "python" "c" "shell" "java" "js2" "clojure" "c++" "css" "go" "rust" "sh" "sass" "sql" "awk" "haskell" "latex" "lisp" "matlab" "org" "perl" "ruby" "scheme" "sqlite" "yaml"))

(defun mp-org/org-insert-src-code-block (src-code-type)
  "Insert a `SRC-CODE-TYPE' type source code block in org-mode.
Go files should disable fly-check."
  (interactive (list (ivy-completing-read "Source code type: " mp-org/src-code-types)))
  (progn
    (newline-and-indent)
    (insert (format "#+BEGIN_SRC %s\n" src-code-type))
    (newline-and-indent)
    (insert "#+END_SRC\n")
    (previous-line 2)
    (org-edit-src-code)))

它先通过 ivy-completion-read 获取用户包裹的代码的类型，然后插入orgmode src注释。最近我发现一篇文章中的代码常常是同一类型的，每次调用这个函数都需要选择，过于麻烦。希望能简化它。

我当前是在该函数中保存选择到全局变量，然后用另一个函数直接使用该全局变量去执行。

现在，我想尝试直接让 ivy-completing-read 自己预先选择，求实现方式。

2

用history?

HISTORY is a list of previously selected inputs.

Minibuffer里M-n/p滚动历史

3

我希望的是，在我调用这个函数时，ivy-completing-read 已经帮我预填充了上一次调用的选项。

因为访问历史数据仍旧需要多按几个键。

4

可以看一下evil-ex-search的实现，我先睡了，明天继续说。

5

把做过的选择都保存起来，然后初始输入设置为最近的，下面用的是 Emacs 默认的补全，估计你用的有类似功能

(defvar mp-org/org-insert-src-code-block-history nil)
(completing-read "Source code type: "
                 mp-org/src-code-types nil nil
                 (car mp-org/org-insert-src-code-block-history)
                 'mp-org/org-insert-src-code-block-history)