emacs shell：用ido更改目录
我越来越多地使用emacs shell模式，并且有一些我希望可以改进的地方：改变目录时的完成。 我很乐意使用ido或者projectile-find-dir 。
我的工作流程
截至今天我尽我所能的Emacs的外壳之外，尽可能多使用emacs的力量尽可能（访问文件与IDO，查找文件的项目， projectile ，探索里面dired，...树）。
我不经常光顾。 当我在另一个项目中工作时，我打开另一个shell缓冲区。 但是当我必须的时候，我真的很想念ido或fasd shell实用程序（它可以工作，但是没有它的完成界面，这对zsh很有用，而且不像ido的使用可以是https：// github那样强大。 COM / clvv / FASD）。
如何在elisp中连线？
我知道我们可以给ido-completing-read列表;
在shell中，输入cd ../<TAB>打开一个新的* Completions *缓冲区。 它使用comint-dynamic-completion ，但是如何在elisp列表中获取该列表，而不是在缓冲区中？
谢谢 ！
编辑 ：这是另一个很好的方式来cd到最近访问的目录，与fasd实用程序和ido完成：https：//gitlab.com/emacs-stuff/fasd-shell/blob/master/README.org
看另一个SO问题。
ps：eshell在某些shell脚本中运行不正常，我想保持shell模式。
试试这个，它是一个快速和肮脏的黑客攻击，可能在某些情况下失败，但应该一般工作。 也请原谅我的elisp
(require 'ido)
(require 'cl-lib)
(require 'shell)
(defvar my-dir-selected nil "Flag to indicate that user has selected the directory")
(defun my-filter-cd-input (current-input)
"Takes current user input for `cd' the a list
whose car is the 'maximum possible directory path'
and cdr is remaining string.
Examples:
'~/.emacs.d/in => ('~./emacs.d/' 'in')
'/home/gue' => ('/home/' 'gue')
'~/../' => ('~/../' '')"
(let* ((unquoted-input (shell-unquote-argument current-input))
(components (split-string unquoted-input "/"))
(directory-parts (butlast components))
(possible-prefix (car (last components))))
(list (if (string= possible-prefix "")
unquoted-input
(concat (mapconcat 'identity directory-parts "/")
(when directory-parts "/")))
possible-prefix)))
(defun my-complete-directory-name (directory current-input)
"Prompts user for directories in `directory', `current-input'
is the string entered by the user till now"
(let* ((filtered-input (my-filter-cd-input current-input))
(directory-path (car filtered-input))
(partial-input (cadr filtered-input))
(directory-choices (mapcar 'file-name-nondirectory
(condition-case nil
(cl-remove-if-not 'file-directory-p
(directory-files (concat directory directory-path) t))
('file-error (list)))))
(selected-name (ido-completing-read "Directory: "
directory-choices
nil nil partial-input)))
(comint-delete-input)
(insert (concat "cd "
(shell-quote-argument (concat directory-path selected-name "/"))))))
(defun my-prompt-for-dir-or-fallback ()
"If current shell command is `cd' prompt for directory
using ido otherwise fallback to normal completion"
(interactive)
(let* ((user-input (buffer-substring-no-properties (comint-line-beginning-position)
(point-max))))
(if (and (>= (length user-input) 3)
(string= (substring user-input 0 3) "cd "))
(progn
(setq my-dir-selected nil)
(while (not my-dir-selected)
(my-complete-directory-name default-directory
(buffer-substring-no-properties (+ (comint-line-beginning-position) 3)
(point-max))))
(comint-send-input))
(call-interactively 'completion-at-point))))
(define-key shell-mode-map (kbd "<tab>") 'my-prompt-for-dir-or-fallback)
(add-hook 'ido-setup-hook 'ido-my-keys)
(defun ido-my-keys ()
"Add my keybindings for ido."
(define-key ido-completion-map (kbd "<C-return>") (lambda ()
(interactive)
(setq my-dir-selected t)
(ido-exit-minibuffer))))
如果当前输入的命令是cd ，则在shell中按<tab>将会提示使用ido可用的目录，否则它将回退到默认完成状态，退出按C-RET