Define imalison:projectile-find-file using imalison:prefix-alternatives
This commit is contained in:
parent
50b5ea66e0
commit
afcd5804c0
@ -1591,18 +1591,17 @@ I use helm for almost all emacs completion
|
|||||||
(imalison:prefix-alternatives imalison:do-ag helm-projectile-ag
|
(imalison:prefix-alternatives imalison:do-ag helm-projectile-ag
|
||||||
imalison:do-ag-default-directory helm-do-ag)
|
imalison:do-ag-default-directory helm-do-ag)
|
||||||
|
|
||||||
|
(imalison:prefix-alternatives imalison:projectile-find-file
|
||||||
|
projectile-find-file
|
||||||
|
projectile-find-file-other-window)
|
||||||
|
|
||||||
(defun projectile-make-all-subdirs-projects (directory)
|
(defun projectile-make-all-subdirs-projects (directory)
|
||||||
(cl-loop for file-info in (directory-files-and-attributes directory)
|
(cl-loop for file-info in (directory-files-and-attributes directory)
|
||||||
do (when (nth 1 file-info)
|
do (when (nth 1 file-info)
|
||||||
(write-region "" nil
|
(write-region "" nil
|
||||||
(expand-file-name
|
(expand-file-name
|
||||||
(concat directory "/"
|
(concat directory "/"
|
||||||
(nth 0 file-info) "/.projectile"))))))
|
(nth 0 file-info) "/.projectile")))))))
|
||||||
(defun imalison:projectile-find-file (arg)
|
|
||||||
(interactive "P")
|
|
||||||
(if arg
|
|
||||||
(projectile-find-file-other-window)
|
|
||||||
(projectile-find-file))))
|
|
||||||
:config
|
:config
|
||||||
(progn
|
(progn
|
||||||
(use-package persp-projectile
|
(use-package persp-projectile
|
||||||
|
Loading…
Reference in New Issue
Block a user