有什么办法知道一个交互的函数运行后是处于什么 keymap ？或者让然他处于某个 keymap？

Nasy · 2019 年4 月 20 日 15:07

可能标题有点不清楚，说一说想做什么吧…

我用着 ivy.

在一个不属于 git 的文件夹中运行 M-x magit-status 的时候，会调用 (magit-read-repository)，然后 magit-read-repository 里面，会运行 read-directory-name "Git repository:" xxxx

这个时候就会跳出交互的 directory 选择框…

那么问题来了，我该如何设置 <left>/<right> 跳到上/下一层文件夹，同时不影响 ivy 相关的其他东西的正常运作？

这个时候，虽然在 ivy-minibuffer-map 里面设置 <right> 为 ivy-alt-done ， <left> 为 ivy-backward-delete-char 是有效的，但是这样设置之后，又会导致有些时候，需要用 <right>/<left> 在其他的 ivy 相关的里面，做其他事情的时候，只能用 C-f/C-n 来替代方向键。

（ps: 虽然不用方向键也行，但能用的时候，还是不想放弃😁️

xuchunyang · 2019 年4 月 20 日 15:56

应该可以专门写个 Ivy 命令，使用单独的 Keymap。

jixiuf · 2019 年4 月 21 日 02:25

github.com

jixiuf/ivy-dired-history/blob/master/ivy-dired-history.el#L150


      
          
          
;; integrating dired history feature into commands like
          ;; dired-do-copy and dired-do-rename.
          ;;see https://github.com/jixiuf/ivy-dired-history/issues/6
          (defadvice dired-mark-read-file-name(around ivy-dired-history activate)
            "Wrapper ‘read-file-name’ with idv-dired-history-read-file-name."
            (cl-letf (((symbol-function 'read-file-name)
                       #'ivy-dired-history--read-file-name))
              ad-do-it))
          
          
(defadvice dired-read-dir-and-switches(around ivy-dired-history activate)
            "Wrapper ‘read-file-name’ with idv-dired-history-read-file-name."
            (ivy-dired-history--update (expand-file-name default-directory))
            (let ((default-directory default-directory))
              ;; (unless (next-read-file-uses-dialog-p) (setq default-directory "/"))
              (cl-letf (((symbol-function 'read-file-name)
                         #'ivy-dired-history--read-file-name))
                ad-do-it)))
          
          
(defadvice dired-do-compress-to(around ivy-dired-history activate)
            "Wrapper ‘read-file-name’ with idv-dired-history-read-file-name."

看看这种对你有没有帮助

这种是在dired-do-compress-to 内将对read-file-name的调用替换为ivy-dired-history–read-file-name，你的需求感觉应该是把keymap替换成一个临时的，可以用let就可以做到吧，但不知你为什么你要把事情搞那么复杂。

Nasy · 2019 年4 月 21 日 03:02

啊，原来如此！感谢w 我去试试看w

Nasy · 2019 年4 月 21 日 03:06

嗯，感谢w 结合 advice 感觉应该没问题

Nasy · 2019 年4 月 21 日 03:20

啊，对了，我发现我的这个问题原来有个 issue 了

github.com/abo-abo/swiper

counsel-find-file-map not used in read-directory-name

opened 12:39AM - 01 Jul 18 UTC

isker

Hi. When I use magit-status with a prefix argument, it calls read-directory-nam…e to get the directory in which to display the magit status buffer. But this file-finding minibuffer does not use counsel-find-file-map, so the keybindings are different than if I just invoked counsel-find-file myself. Do you consider this a bug? If not, can you recommend the most specific place to bind keys such that they apply only to minibuffers of this kind? My specific problem is that I want C-l to invoke counsel-up-directory but only in this context; otherwise I'd like the default recenter-top-bottom. Thanks!