gergely/my-emacs-d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Make slash complete directory names in helm-find-file

Browse Source
This commit is contained in:
Gergely Polonkai 2017-04-04 22:08:32 +02:00
parent 2191b1ac64
commit d162a66b94
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
init.el
View File

@ -77,7 +77,9 @@
(("M-x" . helm-M-x) (("M-x" . helm-M-x)
:map ctl-x-map :map ctl-x-map
("C-f" . helm-find-files) ("C-f" . helm-find-files)
("b" . helm-mini))) ("b" . helm-mini)
:map helm-map
("/" . gpolonkai/helm-ff-slash-dir-complete)))
(use-package helm-swoop (use-package helm-swoop
:ensure t :ensure t
@ -1195,3 +1197,11 @@
(abbreviate-file-name (abbreviate-file-name
(buffer-file-name)) (buffer-file-name))
"%b"))))) "%b")))))
(defun gpolonkai/helm-ff-slash-dir-complete ()
(interactive)
(if (and (equal "Find Files" (assoc-default 'name (helm-get-current-source)))
(stringp (helm-get-selection))
(file-directory-p (helm-get-selection)))
(helm-execute-persistent-action)
(insert "/")))