emacs - 如何通过完成读取返回值而不是键

Question

(completing-read
 "Complete a foo: "
 '(("foobar1" "~/foobar1/") ("barfoo" "/usr/barfoo/") ("foobaz" "/hello/")))

如上所示，我想提示输入 "foobar1"、"barfoo" 和 "foobaz" 但得到配对目录作为返回。

此外，如果我有这样的哈希表

(cl-defstruct person ID name)
(setq person-object (make-person :ID 123 :name "foo"))
(setq person-table (make-hash-table))
(pushash (person-ID person-object) person-object person-table)

我怎样才能提示输入人名但得到一个人 ID 作为返回？

Answer 1

没有办法让 completing-read 返回值而不是键，所以你必须自己做查找:

(let ((completions '(("foobar1" "~/foobar1/") ("barfoo" "/usr/barfoo/") ("foobaz" "/hello/"))))
  (cadr (assoc (completing-read "Complete a foo: " completions) completions)))

至于哈希表，由于名称不是键，因此需要遍历哈希表中的每个对象才能找到它，使用maphash。由于在找到所需内容后继续迭代会很浪费，因此可以使用 catch 和 throw，如下所示:

(catch 'found-it
  (maphash
   (lambda (key value)
     (when (equal (person-name value) desired-name)
       (throw 'found-it key)))
   person-table))

这将返回人员 ID，如果没有名称等于 desired-name 的人员，则返回 nil。