maciej/counsel-projectile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

cp-find-file-dwim: Add

Browse source
This commit is contained in:
Eric Danan 2018-08-15 16:20:29 +02:00
parent 842a105af4
commit ab400743e6
2 changed files with 35 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

30
counsel-projectile.el
View file

@ -368,24 +368,35 @@ on `counsel-find-file-ignore-regexp'."
str))
;;;###autoload
(defun counsel-projectile-find-file (&optional arg)
(defun counsel-projectile-find-file (&optional arg dwim)
"Jump to a file in the current project.
With a prefix ARG, invalidate the cache first."
With a prefix ARG, invalidate the cache first. If DWIM is
non-nil, use completion based on context."
(interactive "P")
(projectile-maybe-invalidate-cache arg)
(ivy-read (projectile-prepend-project-name "Find file: ")
(projectile-current-project-files)
:matcher counsel-projectile-find-file-matcher
:require-match t
:sort counsel-projectile-sort-files
:action counsel-projectile-find-file-action
:caller 'counsel-projectile-find-file))
(let* ((project-files (projectile-current-project-files))
(files (and dwim (projectile-select-files project-files))))
(ivy-read (projectile-prepend-project-name "Find file: ")
(or files project-files)
:matcher counsel-projectile-find-file-matcher
:require-match t
:sort counsel-projectile-sort-files
:action counsel-projectile-find-file-action
:caller 'counsel-projectile-find-file)))
(ivy-set-display-transformer
'counsel-projectile-find-file
'counsel-projectile-find-file-transformer)
;;;###autoload
(defun counsel-projectile-find-file-dwim (&optional arg)
"Jump to a file in the current project using completion based on context.
With a prefix ARG, invalidate the cache first."
(interactive "P")
(counsel-projectile-find-file arg t))
;;;; counsel-projectile-find-dir
(defcustom counsel-projectile-sort-directories nil
@ -1363,6 +1374,7 @@ If not inside a project, call `counsel-projectile-switch-project'."
(defcustom counsel-projectile-key-bindings
'((projectile-find-file . counsel-projectile-find-file)
(projectile-find-file-dwim . counsel-projectile-find-file-dwim)
(projectile-find-dir . counsel-projectile-find-dir)
(projectile-switch-to-buffer . counsel-projectile-switch-to-buffer)
(projectile-grep . counsel-projectile-grep)