.emacs.d.git - Gitblit

Chizi123

2018-11-18 c655eea759be1db69c5e6b45c228139d8390122a

commit \| author \| age
5cb5f7	1	;;; helm-projectile.el --- Helm integration for Projectile -- lexical-binding: t; --
C	2
	3	;; Copyright (C) 2011-2016 Bozhidar Batsov
	4
	5	;; Author: Bozhidar Batsov
	6	;; URL: https://github.com/bbatsov/helm-projectile
	7	;; Package-Version: 20180815.1514
	8	;; Created: 2011-31-07
	9	;; Keywords: project, convenience
	10	;; Version: 0.14.0
	11	;; Package-Requires: ((helm "1.9.9") (projectile "0.14.0") (cl-lib "0.3"))
	12
	13	;; This file is NOT part of GNU Emacs.
	14
	15	;;; License:
	16
	17	;; This program is free software; you can redistribute it and/or modify
	18	;; it under the terms of the GNU General Public License as published by
	19	;; the Free Software Foundation; either version 3, or (at your option)
	20	;; any later version.
	21	;;
	22	;; This program is distributed in the hope that it will be useful,
	23	;; but WITHOUT ANY WARRANTY; without even the implied warranty of
	24	;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	25	;; GNU General Public License for more details.
	26	;;
	27	;; You should have received a copy of the GNU General Public License
	28	;; along with GNU Emacs; see the file COPYING. If not, write to the
	29	;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
	30	;; Boston, MA 02110-1301, USA.
	31
	32	;;; Commentary:
	33	;;
	34	;; This library provides easy project management and navigation. The
	35	;; concept of a project is pretty basic - just a folder containing
	36	;; special file. Currently git, mercurial and bazaar repos are
	37	;; considered projects by default. If you want to mark a folder
	38	;; manually as a project just create an empty .projectile file in
	39	;; it. See the README for more details.
	40	;;
	41	;;; Code:
	42
	43	(require 'subr-x)
	44	(require 'projectile)
	45	(require 'cl-lib)
	46	(require 'grep)
	47	(require 'helm)
	48	(require 'helm-types)
	49	(require 'helm-locate)
	50	(require 'helm-buffers)
	51	(require 'helm-files)
	52
	53	(declare-function eshell "eshell")
	54	(declare-function helm-do-ag "helm-ag")
	55	(declare-function dired-get-filename "dired")
	56	(defvar helm-ag-base-command)
	57
	58	(defvar grep-find-ignored-directories)
	59	(defvar grep-find-ignored-files)
	60
	61	(defgroup helm-projectile nil
	62	"Helm support for projectile."
	63	:prefix "helm-projectile-"
	64	:group 'projectile
	65	:group 'helm
	66	:link `(url-link :tag "GitHub" "https://github.com/bbatsov/helm-projectile"))
	67
	68	(defvar helm-projectile-current-project-root)
	69
	70	(defcustom helm-projectile-truncate-lines nil
	71	"Truncate lines in helm projectile commands when non--nil.
	72
	73	Some `helm-projectile' commands have similar behavior with existing
	74	Helms. In these cases their respective custom var for truncation
	75	of lines will be honored. E.g. `helm-buffers-truncate-lines'
	76	dictates the truncation in `helm-projectile-switch-to-buffer'."
	77	:group 'helm-projectile
	78	:type 'boolean)
	79
	80	;;;###autoload
	81	(defcustom helm-projectile-fuzzy-match t
	82	"Enable fuzzy matching for Helm Projectile commands.
	83	This needs to be set before loading helm-projectile.el."
	84	:group 'helm-projectile
	85	:type 'boolean)
	86
	87	(defmacro helm-projectile-define-key (keymap key def &rest bindings)
	88	"In KEYMAP, define KEY - DEF sequence KEY1 as DEF1, KEY2 as DEF2 ..."
	89	(declare (indent defun))
	90	(let ((ret '(progn)))
	91	(while key
	92	(push
	93	`(define-key ,keymap ,key
	94	(lambda ()
	95	(interactive)
	96	(helm-exit-and-execute-action ,def)))
	97	ret)
	98	(setq key (pop bindings)
	99	def (pop bindings)))
	100	(reverse ret)))
	101
	102	(defun helm-projectile-hack-actions (actions &rest prescription)
	103	"Given a Helm action list and a prescription, return a hacked Helm action list, after applying the PRESCRIPTION.
	104
	105	The Helm action list ACTIONS is of the form:
	106
	107	\(\(DESCRIPTION1 . FUNCTION1\)
	108	\(DESCRIPTION2 . FUNCTION2\)
	109	...
	110	\(DESCRIPTIONn . FUNCTIONn\)\)
	111
	112	PRESCRIPTION is in the form:
	113
	114	\(INSTRUCTION1 INSTRUCTION2 ... INSTRUCTIONn\)
	115
	116	If an INSTRUCTION is a symbol, the action with function name
	117	INSTRUCTION is deleted.
	118
	119	If an INSTRUCTION is of the form \(FUNCTION1 . FUNCTION2\), the
	120	action with function name FUNCTION1 will change it's function to
	121	FUNCTION2.
	122
	123	If an INSTRUCTION is of the form \(FUNCTION . DESCRIPTION\), and
	124	if an action with function name FUNCTION exists in the original
	125	Helm action list, the action in the Helm action list, with
	126	function name FUNCTION will change it's description to
	127	DESCRIPTION. Otherwise, (FUNCTION . DESCRIPTION) will be added to
	128	the action list.
	129
	130	Please check out how `helm-projectile-file-actions' is defined
	131	for an example of how this function is being used."
	132	(let* ((to-delete (cl-remove-if (lambda (entry) (listp entry)) prescription))
	133	(actions (cl-delete-if (lambda (action) (memq (cdr action) to-delete))
	134	(copy-alist actions)))
	135	new)
	136	(cl-dolist (action actions)
	137	(when (setq new (cdr (assq (cdr action) prescription)))
	138	(if (stringp new)
	139	(setcar action new)
	140	(setcdr action new))))
	141	;; Add new actions from PRESCRIPTION
	142	(setq new nil)
	143	(cl-dolist (instruction prescription)
	144	(when (and (listp instruction)
	145	(null (rassq (car instruction) actions))
	146	(symbolp (car instruction)) (stringp (cdr instruction)))
	147	(push (cons (cdr instruction) (car instruction)) new)))
	148	(append actions (nreverse new))))
	149
	150	(defun helm-projectile-vc (dir)
	151	"A Helm action for jumping to project root using `vc-dir' or Magit.
	152	DIR is a directory to be switched"
	153	(let ((projectile-require-project-root nil))
	154	(projectile-vc dir)))
	155
	156	(defun helm-projectile-compile-project (dir)
	157	"A Helm action for compile a project.
	158	DIR is the project root."
	159	(let ((helm--reading-passwd-or-string t)
	160	(default-directory dir))
	161	(projectile-compile-project helm-current-prefix-arg)))
	162
	163	(defun helm-projectile-test-project (dir)
	164	"A Helm action for test a project.
	165	DIR is the project root."
	166	(let ((helm--reading-passwd-or-string t)
	167	(default-directory dir))
	168	(projectile-test-project helm-current-prefix-arg)))
	169
	170	(defun helm-projectile-run-project (dir)
	171	"A Helm action for run a project.
	172	DIR is the project root."
	173	(let ((helm--reading-passwd-or-string t)
	174	(default-directory dir))
	175	(projectile-run-project helm-current-prefix-arg)))
	176
	177	(defun helm-projectile-remove-known-project (_ignore)
	178	"Remove selected projects from projectile project list.
	179	_IGNORE means the argument does not matter.
	180	It is there because Helm requires it."
	181	(let* ((projects (helm-marked-candidates :with-wildcard t))
	182	(len (length projects)))
	183	(with-helm-display-marked-candidates
	184	helm-marked-buffer-name
	185	projects
	186	(if (not (y-or-n-p (format "Remove *%s projects(s)? " len)))
	187	(message "(No removal performed)")
	188	(progn
	189	(mapc (lambda (p)
	190	(delete p projectile-known-projects))
	191	projects)
	192	(projectile-save-known-projects))
	193	(message "%s projects(s) removed" len)))))
	194
	195	(defvar helm-projectile-projects-map
	196	(let ((map (make-sparse-keymap)))
	197	(set-keymap-parent map helm-map)
	198	(helm-projectile-define-key map
	199	(kbd "C-d") #'dired
	200	(kbd "M-g") #'helm-projectile-vc
	201	(kbd "M-e") #'helm-projectile-switch-to-eshell
	202	(kbd "C-s") #'helm-projectile-grep
	203	(kbd "M-c") #'helm-projectile-compile-project
	204	(kbd "M-t") #'helm-projectile-test-project
	205	(kbd "M-r") #'helm-projectile-run-project
	206	(kbd "M-D") #'helm-projectile-remove-known-project)
	207	map)
	208	"Mapping for known projectile projects.")
	209
	210	(defcustom helm-source-projectile-projects-actions
	211	(helm-make-actions
	212	"Switch to project" (lambda (project)
	213	(let ((projectile-completion-system 'helm))
	214	(projectile-switch-project-by-name project)))
	215	"Open Dired in project's directory `C-d'" #'dired
	216	"Open project root in vc-dir or magit `M-g'" #'helm-projectile-vc
	217	"Switch to Eshell `M-e'" #'helm-projectile-switch-to-eshell
	218	"Grep in projects `C-s'" #'helm-projectile-grep
	219	"Compile project `M-c'. With C-u, new compile command" #'helm-projectile-compile-project
	220	"Remove project(s) from project list `M-D'" #'helm-projectile-remove-known-project)
	221	"Actions for `helm-source-projectile-projects'."
	222	:group 'helm-projectile
	223	:type '(alist :key-type string :value-type function))
	224
	225	(defvar helm-source-projectile-projects
	226	(helm-build-sync-source "Projectile projects"
	227	:candidates (lambda () (with-helm-current-buffer projectile-known-projects))
	228	:fuzzy-match helm-projectile-fuzzy-match
	229	:keymap helm-projectile-projects-map
	230	:mode-line helm-read-file-name-mode-line-string
	231	:action 'helm-source-projectile-projects-actions)
	232	"Helm source for known projectile projects.")
	233
	234	(defvar helm-projectile-dirty-projects-map
	235	(let ((map (make-sparse-keymap)))
	236	(set-keymap-parent map helm-map)
	237	(helm-projectile-define-key map
	238	(kbd "C-d") #'dired
	239	(kbd "M-o") #'(lambda (project)
	240	(let ((projectile-completion-system 'helm))
	241	(projectile-switch-project-by-name project)))
	242	(kbd "M-e") #'helm-projectile-switch-to-eshell
	243	(kbd "C-s") #'helm-projectile-grep
	244	(kbd "M-c") #'helm-projectile-compile-project
	245	(kbd "M-t") #'helm-projectile-test-project
	246	(kbd "M-r") #'helm-projectile-run-project
	247	(kbd "M-D") #'helm-projectile-remove-known-project)
	248	map)
	249	"Mapping for dirty projectile projects.")
	250
	251	(defvar helm-source-projectile-dirty-projects
	252	(helm-build-sync-source "Projectile dirty projects"
	253	:candidates (lambda () (with-helm-current-buffer (helm-projectile-get-dirty-projects)))
	254	:fuzzy-match helm-projectile-fuzzy-match
	255	:keymap helm-projectile-dirty-projects-map
	256	:mode-line helm-read-file-name-mode-line-string
	257	:action '(("Open project root in vc-dir or magit" . helm-projectile-vc)
	258	("Switch to project `M-o'" .
	259	(lambda (project)
	260	(let ((projectile-completion-system 'helm))
	261	(projectile-switch-project-by-name project))))
	262	("Open Dired in project's directory `C-d'" . dired)
	263	("Switch to Eshell `M-e'" . helm-projectile-switch-to-eshell)
	264	("Grep in projects `C-s'" . helm-projectile-grep)
	265	("Compile project `M-c'. With C-u, new compile command"
	266	. helm-projectile-compile-project)))
	267	"Helm source for dirty version controlled projectile projects.")
	268
	269	(defun helm-projectile-get-dirty-projects ()
	270	"Return dirty version controlled known projects as an alist to
	271	have a nice display in Helm."
	272	(message "Checking for dirty known projects...")
	273	(let* ((status (projectile-check-vcs-status-of-known-projects))
	274	(proj-dir (cl-loop for stat in status
	275	collect (car stat)))
	276	(status-display (cl-loop for stat in status collect
	277	(propertize (format "[%s]" (mapconcat 'identity (car (cdr stat)) ", ")) 'face 'helm-match)))
	278	(max-status-display-length (cl-loop for sd in status-display
	279	maximize (length sd)))
	280	(status-display (cl-loop for sd in status-display collect
	281	(format "%s%s " sd (make-string (- max-status-display-length (length sd)) ? ))))
	282	(full-display (cl-mapcar 'concat status-display proj-dir))
	283	(helm-list (cl-pairlis full-display proj-dir)))
	284	helm-list))
	285
	286	(define-key helm-etags-map (kbd "C-c p f")
	287	(lambda ()
	288	(interactive)
	289	(helm-run-after-exit 'helm-projectile-find-file nil)))
	290
	291	(defun helm-projectile-file-persistent-action (candidate)
	292	"Persistent action for file-related functionality.
	293
	294	Previews the contents of a file in a temporary buffer."
	295	(let ((buf (get-buffer-create " helm-projectile persistent")))
	296	(cl-flet ((preview (candidate)
	297	(switch-to-buffer buf)
	298	(setq inhibit-read-only t)
	299	(erase-buffer)
	300	(insert-file-contents candidate)
	301	(let ((buffer-file-name candidate))
	302	(set-auto-mode))
	303	(font-lock-ensure)
	304	(setq inhibit-read-only nil)))
	305	(if (and (helm-attr 'previewp)
	306	(string= candidate (helm-attr 'current-candidate)))
	307	(progn
	308	(kill-buffer buf)
	309	(helm-attrset 'previewp nil))
	310	(preview candidate)
	311	(helm-attrset 'previewp t)))
	312	(helm-attrset 'current-candidate candidate)))
	313
	314	(defun helm-projectile-find-files-eshell-command-on-file-action (candidate)
	315	(interactive)
	316	(let* ((helm-ff-default-directory (file-name-directory candidate)))
	317	(helm-find-files-eshell-command-on-file candidate)))
	318
	319	(defun helm-projectile-ff-etags-select-action (candidate)
	320	(interactive)
	321	(let* ((helm-ff-default-directory (file-name-directory candidate)))
	322	(helm-ff-etags-select candidate)))
	323
	324	(defun helm-projectile-switch-to-eshell (dir)
	325	(interactive)
	326	(let* ((projectile-require-project-root nil)
	327	(helm-ff-default-directory (file-name-directory (projectile-expand-root dir))))
	328	(helm-ff-switch-to-eshell dir)))
	329
	330	(defun helm-projectile-files-in-current-dired-buffer ()
	331	"Return a list of files (only) in the current dired buffer."
	332	(let (flist)
	333	(cl-flet ((fpush (fname) (push fname flist)))
	334	(save-excursion
	335	(let (file buffer-read-only)
	336	(goto-char (point-min))
	337	(while (not (eobp))
	338	(save-excursion
	339	(and (not (eolp))
	340	(setq file (dired-get-filename t t)) ; nil on non-file
	341	(progn (end-of-line)
	342	(funcall #'fpush file))))
	343	(forward-line 1)))))
	344	(mapcar 'file-truename (nreverse flist))))
	345
	346	(defun helm-projectile-all-dired-buffers ()
	347	"Get all current Dired buffers."
	348	(mapcar (lambda (b)
	349	(with-current-buffer b (buffer-name)))
	350	(cl-remove-if-not
	351	(lambda (b)
	352	(with-current-buffer b
	353	(and (eq major-mode 'dired-mode)
	354	(buffer-name))))
	355	(buffer-list))))
	356
	357	(defvar helm-projectile-virtual-dired-remote-enable nil
	358	"Enable virtual Dired manager on remote host.
	359	Disabled by default.")
	360
	361	(defun helm-projectile-dired-files-new-action (candidate)
	362	"Create a Dired buffer from chosen files.
	363	CANDIDATE is the selected file, but choose the marked files if available."
	364	(if (and (file-remote-p (projectile-project-root))
	365	(not helm-projectile-virtual-dired-remote-enable))
	366	(message "Virtual Dired manager is disabled in remote host. Enable with %s."
	367	(propertize "helm-projectile-virtual-dired-remote-enable" 'face 'font-lock-keyword-face))
	368	(let ((files (cl-remove-if-not
	369	(lambda (f)
	370	(not (string= f "")))
	371	(mapcar (lambda (file)
	372	(replace-regexp-in-string (projectile-project-root) "" file))
	373	(helm-marked-candidates :with-wildcard t))))
	374	(new-name (completing-read "Select or enter a new buffer name: "
	375	(helm-projectile-all-dired-buffers)))
	376	(helm--reading-passwd-or-string t)
	377	(default-directory (projectile-project-root)))
	378	;; create a unique buffer that is unique to any directory in default-directory
	379	;; or opened buffer; when Dired is passed with a non-existence directory name,
	380	;; it only creates a buffer and insert everything. If a new name user supplied
	381	;; exists as default-directory, Dired throws error when insert anything that
	382	;; does not exist in current directory.
	383	(with-current-buffer (dired (cons (make-temp-name new-name)
	384	(if files
	385	files
	386	(list candidate))))
	387	(when (get-buffer new-name)
	388	(kill-buffer new-name))
	389	(rename-buffer new-name)))))
	390
	391	(defun helm-projectile-dired-files-add-action (candidate)
	392	"Add files to a Dired buffer.
	393	CANDIDATE is the selected file. Used when no file is explicitly marked."
	394	(if (and (file-remote-p (projectile-project-root))
	395	(not helm-projectile-virtual-dired-remote-enable))
	396	(message "Virtual Dired manager is disabled in remote host. Enable with %s."
	397	(propertize "helm-projectile-virtual-dired-remote-enable" 'face 'font-lock-keyword-face))
	398	(if (eq (with-helm-current-buffer major-mode) 'dired-mode)
	399	(let* ((marked-files (helm-marked-candidates :with-wildcard t))
	400	(helm--reading-passwd-or-string t)
	401	(root (projectile-project-root)) ; store root for later use
	402	(dired-buffer-name (or (and (eq major-mode 'dired-mode) (buffer-name))
	403	(completing-read "Select a Dired buffer:"
	404	(helm-projectile-all-dired-buffers))))
	405	(dired-files (with-current-buffer dired-buffer-name
	406	(helm-projectile-files-in-current-dired-buffer)))
	407	(files (sort (mapcar (lambda (file)
	408	(replace-regexp-in-string (projectile-project-root) "" file))
	409	(cl-nunion (if marked-files
	410	marked-files
	411	(list candidate))
	412	dired-files
	413	:test #'string-equal))
	414	'string-lessp)))
	415	(kill-buffer dired-buffer-name)
	416	;; Rebind default-directory because after killing a buffer, we
	417	;; could be in any buffer and default-directory is set to that
	418	;; random buffer
	419	;;
	420	;; Also use saved root directory, because after killing a buffer,
	421	;; we could be outside of current project
	422	(let ((default-directory root))
	423	(with-current-buffer (dired (cons (make-temp-name dired-buffer-name)
	424	(if files
	425	(mapcar (lambda (file)
	426	(replace-regexp-in-string root "" file))
	427	files)
	428	(list candidate))))
	429	(rename-buffer dired-buffer-name))))
	430	(error "You're not in a Dired buffer to add"))))
	431
	432	(defun helm-projectile-dired-files-delete-action (candidate)
	433	"Delete selected entries from a Dired buffer.
	434	CANDIDATE is the selected file. Used when no file is explicitly marked."
	435	(if (and (file-remote-p (projectile-project-root))
	436	(not helm-projectile-virtual-dired-remote-enable))
	437	(message "Virtual Dired manager is disabled in remote host. Enable with %s."
	438	(propertize "helm-projectile-virtual-dired-remote-enable" 'face 'font-lock-keyword-face))
	439	(let* ((helm--reading-passwd-or-string t)
	440	(root (projectile-project-root))
	441	(dired-buffer-name (with-helm-current-buffer (buffer-name)))
	442	(dired-files (with-current-buffer dired-buffer-name
	443	(helm-projectile-files-in-current-dired-buffer)))
	444	(files (sort (cl-set-exclusive-or (helm-marked-candidates :with-wildcard t)
	445	dired-files
	446	:test #'string-equal) #'string-lessp)))
	447	(kill-buffer dired-buffer-name)
	448	;; similar reason to `helm-projectile-dired-files-add-action'
	449	(let ((default-directory root))
	450	(with-current-buffer (dired (cons (make-temp-name dired-buffer-name)
	451	(if files
	452	(mapcar (lambda (file)
	453	(replace-regexp-in-string root "" file))
	454	files)
	455	(list candidate))))
	456	(rename-buffer dired-buffer-name))))))
	457
	458	(defun helm-projectile-run-projectile-hooks-after-find-file (_orig-fun &rest _args)
	459	"Run `projectile-find-file-hook' if using projectile."
	460	(when (and projectile-mode (projectile-project-p))
	461	(run-hooks 'projectile-find-file-hook)))
	462
	463	(advice-add 'helm-find-file-or-marked
	464	:after #'helm-projectile-run-projectile-hooks-after-find-file)
	465
	466	(defvar helm-projectile-find-file-map
	467	(let ((map (copy-keymap helm-find-files-map)))
	468	(helm-projectile-define-key map
	469	(kbd "C-c f") #'helm-projectile-dired-files-new-action
	470	(kbd "C-c a") #'helm-projectile-dired-files-add-action
	471	(kbd "M-e") #'helm-projectile-switch-to-eshell
	472	(kbd "M-.") #'helm-projectile-ff-etags-select-action
	473	(kbd "M-!") #'helm-projectile-find-files-eshell-command-on-file-action)
	474	(define-key map (kbd "<left>") #'helm-previous-source)
	475	(define-key map (kbd "<right>") #'helm-next-source)
	476	(dolist (cmd '(helm-find-files-up-one-level
	477	helm-find-files-down-last-level))
	478	(substitute-key-definition cmd nil map))
	479	map)
	480	"Mapping for file commands in Helm Projectile.")
	481
	482	(defvar helm-projectile-file-actions
	483	(helm-projectile-hack-actions
	484	helm-find-files-actions
	485	;; Delete these actions
	486	'helm-ff-browse-project
	487	'helm-insert-file-name-completion-at-point
	488	'helm-ff-find-sh-command
	489	'helm-ff-cache-add-file
	490	;; Substitute these actions
	491	'(helm-ff-switch-to-eshell . helm-projectile-switch-to-eshell)
	492	'(helm-ff-etags-select . helm-projectile-ff-etags-select-action)
	493	'(helm-find-files-eshell-command-on-file
	494	. helm-projectile-find-files-eshell-command-on-file-action)
	495	;; Change action descriptions
	496	'(helm-find-file-as-root . "Find file as root `C-c r'")
	497	;; New actions
	498	'(helm-projectile-dired-files-new-action
	499	. "Create Dired buffer from files `C-c f'")
	500	'(helm-projectile-dired-files-add-action
	501	. "Add files to Dired buffer `C-c a'"))
	502	"Action for files.")
	503
	504	(defun helm-projectile--move-selection-p (selection)
	505	"Return non-nil if should move Helm selector after SELECTION.
	506
	507	SELECTION should be moved unless it's one of:
	508
	509	- Non-string
	510	- Existing file
	511	- Non-remote file that matches `helm-tramp-file-name-regexp'"
	512	(not (or (not (stringp selection))
	513	(file-exists-p selection)
	514	(and (string-match helm-tramp-file-name-regexp selection)
	515	(not (file-remote-p selection nil t))))))
	516
	517	(defun helm-projectile--move-to-real ()
	518	"Move to first real candidate.
	519
	520	Similar to `helm-ff--move-to-first-real-candidate', but without
	521	unnecessary complexity."
	522	(while (let* ((src (helm-get-current-source))
	523	(selection (and (not (helm-empty-source-p))
	524	(helm-get-selection nil nil src))))
	525	(and (not (helm-end-of-source-p))
	526	(helm-projectile--move-selection-p selection)))
	527	(helm-next-line)))
	528
	529	(defun helm-projectile--remove-move-to-real ()
	530	"Hook function to remove `helm-projectile--move-to-real'.
	531
	532	Meant to be added to `helm-cleanup-hook', from which it removes
	533	itself at the end."
	534	(remove-hook 'helm-after-update-hook #'helm-projectile--move-to-real)
	535	(remove-hook 'helm-cleanup-hook #'helm-projectile--remove-move-to-real))
	536
	537	(defvar helm-source-projectile-files-list
	538	(helm-build-sync-source "Projectile files"
	539	:before-init-hook (lambda ()
	540	(add-hook 'helm-after-update-hook #'helm-projectile--move-to-real)
	541	(add-hook 'helm-cleanup-hook #'helm-projectile--remove-move-to-real))
	542	:candidates (lambda ()
	543	(when (projectile-project-p)
	544	(with-helm-current-buffer
	545	(cl-loop with root = (projectile-project-root)
	546	for display in (projectile-current-project-files)
	547	collect (cons display (expand-file-name display root))))))
	548	:filtered-candidate-transformer
	549	(lambda (files _source)
	550	(with-helm-current-buffer
	551	(let* ((root (projectile-project-root))
	552	(file-at-root (file-relative-name (expand-file-name helm-pattern root))))
	553	(if (or (string-empty-p helm-pattern)
	554	(assoc helm-pattern files))
	555	files
	556	(if (equal helm-pattern file-at-root)
	557	(cl-acons (helm-ff-prefix-filename helm-pattern nil t)
	558	(expand-file-name helm-pattern)
	559	files)
	560	(cl-pairlis (list (helm-ff-prefix-filename helm-pattern nil t)
	561	(helm-ff-prefix-filename file-at-root nil t))
	562	(list (expand-file-name helm-pattern)
	563	(expand-file-name helm-pattern root))
	564	files))))))
	565	:fuzzy-match helm-projectile-fuzzy-match
	566	:keymap helm-projectile-find-file-map
	567	:help-message 'helm-ff-help-message
	568	:mode-line helm-read-file-name-mode-line-string
	569	:action helm-projectile-file-actions
	570	:persistent-action #'helm-projectile-file-persistent-action
	571	:persistent-help "Preview file")
	572	"Helm source definition for Projectile files.")
	573
	574	(defvar helm-source-projectile-files-in-all-projects-list
	575	(helm-build-sync-source "Projectile files in all Projects"
	576	:candidates (lambda ()
	577	(with-helm-current-buffer
	578	(let ((projectile-require-project-root nil))
	579	(projectile-all-project-files))))
	580	:keymap helm-projectile-find-file-map
	581	:help-message 'helm-ff-help-message
	582	:mode-line helm-read-file-name-mode-line-string
	583	:action helm-projectile-file-actions
	584	:persistent-action #'helm-projectile-file-persistent-action
	585	:persistent-help "Preview file")
	586	"Helm source definition for all Projectile files in all projects.")
	587
	588	(defvar helm-projectile-dired-file-actions
	589	(helm-projectile-hack-actions
	590	helm-projectile-file-actions
	591	;; New actions
	592	'(helm-projectile-dired-files-delete-action . "Remove entry(s) from Dired buffer `C-c d'")))
	593
	594	(defvar helm-source-projectile-dired-files-list
	595	(helm-build-in-buffer-source "Projectile files in current Dired buffer"
	596	:data (lambda ()
	597	(if (and (file-remote-p (projectile-project-root))
	598	(not helm-projectile-virtual-dired-remote-enable))
	599	nil
	600	(when (eq major-mode 'dired-mode)
	601	(helm-projectile-files-in-current-dired-buffer))))
	602	:filter-one-by-one (lambda (file)
	603	(let ((helm-ff-transformer-show-only-basename t))
	604	(helm-ff-filter-candidate-one-by-one file)))
	605	:action-transformer 'helm-find-files-action-transformer
	606	:keymap (let ((map (copy-keymap helm-projectile-find-file-map)))
	607	(helm-projectile-define-key map
	608	(kbd "C-c d") 'helm-projectile-dired-files-delete-action)
	609	map)
	610	:help-message 'helm-ff-help-message
	611	:mode-line helm-read-file-name-mode-line-string
	612	:action helm-projectile-dired-file-actions)
	613	"Helm source definition for Projectile delete files.")
	614
	615	(defun helm-projectile-dired-find-dir (dir)
	616	"Jump to a selected directory DIR from `helm-projectile'."
	617	(dired (expand-file-name dir (projectile-project-root)))
	618	(run-hooks 'projectile-find-dir-hook))
	619
	620	(defun helm-projectile-dired-find-dir-other-window (dir)
	621	"Jump to a selected directory DIR from `helm-projectile'."
	622	(dired-other-window (expand-file-name dir (projectile-project-root)))
	623	(run-hooks 'projectile-find-dir-hook))
	624
	625	(defvar helm-source-projectile-directories-list
	626	(helm-build-sync-source "Projectile directories"
	627	:candidates (lambda ()
	628	(when (projectile-project-p)
	629	(with-helm-current-buffer
	630	(let ((dirs (if projectile-find-dir-includes-top-level
	631	(append '("./") (projectile-current-project-dirs))
	632	(projectile-current-project-dirs))))
	633	(helm-projectile--files-display-real dirs (projectile-project-root))))))
	634	:fuzzy-match helm-projectile-fuzzy-match
	635	:action-transformer 'helm-find-files-action-transformer
	636	:keymap (let ((map (make-sparse-keymap)))
	637	(set-keymap-parent map helm-map)
	638	(helm-projectile-define-key map
	639	(kbd "<left>") #'helm-previous-source
	640	(kbd "<right>") #'helm-next-source
	641	(kbd "C-c o") #'helm-projectile-dired-find-dir-other-window
	642	(kbd "M-e") #'helm-projectile-switch-to-eshell
	643	(kbd "C-c f") #'helm-projectile-dired-files-new-action
	644	(kbd "C-c a") #'helm-projectile-dired-files-add-action
	645	(kbd "C-s") #'helm-projectile-grep)
	646	map)
	647	:help-message 'helm-ff-help-message
	648	:mode-line helm-read-file-name-mode-line-string
	649	:action '(("Open Dired" . helm-projectile-dired-find-dir)
	650	("Open Dired in other window `C-c o'" . helm-projectile-dired-find-dir)
	651	("Switch to Eshell `M-e'" . helm-projectile-switch-to-eshell)
	652	("Grep in projects `C-s'" . helm-projectile-grep)
	653	("Create Dired buffer from files `C-c f'" . helm-projectile-dired-files-new-action)
	654	("Add files to Dired buffer `C-c a'" . helm-projectile-dired-files-add-action)))
	655	"Helm source for listing project directories.")
	656
	657	(defvar helm-projectile-buffers-list-cache nil)
	658
	659	(defclass helm-source-projectile-buffer (helm-source-sync helm-type-buffer)
	660	((init :initform (lambda ()
	661	;; Issue #51 Create the list before `helm-buffer' creation.
	662	(setq helm-projectile-buffers-list-cache
	663	(ignore-errors (cdr (projectile-project-buffer-names))))
	664	(let ((result (cl-loop for b in helm-projectile-buffers-list-cache
	665	maximize (length b) into len-buf
	666	maximize (length (with-current-buffer b
	667	(symbol-name major-mode)))
	668	into len-mode
	669	finally return (cons len-buf len-mode))))
	670	(unless helm-buffer-max-length
	671	(setq helm-buffer-max-length (car result)))
	672	(unless helm-buffer-max-len-mode
	673	;; If a new buffer is longer that this value
	674	;; this value will be updated
	675	(setq helm-buffer-max-len-mode (cdr result))))))
	676	(candidates :initform helm-projectile-buffers-list-cache)
	677	(matchplugin :initform nil)
	678	(match :initform 'helm-buffers-match-function)
	679	(persistent-action :initform 'helm-buffers-list-persistent-action)
	680	(keymap :initform helm-buffer-map)
	681	(volatile :initform t)
	682	(persistent-help
	683	:initform
	684	"Show this buffer / C-u \\[helm-execute-persistent-action]: Kill this buffer")))
	685
	686	(defvar helm-source-projectile-buffers-list (helm-make-source "Project buffers" 'helm-source-projectile-buffer))
	687
	688	(defvar helm-source-projectile-recentf-list
	689	(helm-build-sync-source "Projectile recent files"
	690	:candidates (lambda ()
	691	(when (projectile-project-p)
	692	(with-helm-current-buffer
	693	(helm-projectile--files-display-real (projectile-recentf-files)
	694	(projectile-project-root)))))
	695	:fuzzy-match helm-projectile-fuzzy-match
	696	:keymap helm-projectile-find-file-map
	697	:help-message 'helm-ff-help-message
	698	:mode-line helm-read-file-name-mode-line-string
	699	:action helm-projectile-file-actions
	700	:persistent-action #'helm-projectile-file-persistent-action
	701	:persistent-help "Preview file")
	702	"Helm source definition for recent files in current project.")
	703
	704	(defvar helm-source-projectile-files-and-dired-list
	705	'(helm-source-projectile-dired-files-list
	706	helm-source-projectile-files-list))
	707
	708	(defvar helm-source-projectile-directories-and-dired-list
	709	'(helm-source-projectile-dired-files-list
	710	helm-source-projectile-directories-list))
	711
	712	(defcustom helm-projectile-sources-list
	713	'(helm-source-projectile-buffers-list
	714	helm-source-projectile-files-list
	715	helm-source-projectile-projects)
	716	"Default sources for `helm-projectile'."
	717	:type 'list
	718	:group 'helm-projectile)
	719
	720	(defmacro helm-projectile-command (command source prompt &optional not-require-root truncate-lines-var)
	721	"Template for generic `helm-projectile' commands.
	722	COMMAND is a command name to be appended with \"helm-projectile\" prefix.
	723	SOURCE is a Helm source that should be Projectile specific.
	724	PROMPT is a string for displaying as a prompt.
	725	NOT-REQUIRE-ROOT specifies the command doesn't need to be used in a
	726	project root.
	727	TRUNCATE-LINES-VAR is the symbol used dictate truncation of lines.
	728	Defaults is `helm-projectile-truncate-lines'."
	729	(unless truncate-lines-var (setq truncate-lines-var 'helm-projectile-truncate-lines))
	730	`(defun ,(intern (concat "helm-projectile-" command)) (&optional arg)
	731	"Use projectile with Helm for finding files in project
	732
	733	With a prefix ARG invalidates the cache first."
	734	(interactive "P")
	735	(if (projectile-project-p)
	736	(projectile-maybe-invalidate-cache arg)
	737	(unless ,not-require-root
	738	(error "You're not in a project")))
	739	(let ((helm-ff-transformer-show-only-basename nil)
	740	;; for consistency, we should just let Projectile take care of ignored files
	741	(helm-boring-file-regexp-list nil))
	742	(helm :sources ,source
	743	:buffer (concat "helm projectile: " (projectile-project-name) "")
	744	:truncate-lines ,truncate-lines-var
	745	:prompt (projectile-prepend-project-name ,prompt)))))
	746
	747	(helm-projectile-command "switch-project" 'helm-source-projectile-projects "Switch to project: " t)
	748	(helm-projectile-command "find-file" helm-source-projectile-files-and-dired-list "Find file: ")
	749	(helm-projectile-command "find-file-in-known-projects" 'helm-source-projectile-files-in-all-projects-list "Find file in projects: " t)
	750	(helm-projectile-command "find-dir" helm-source-projectile-directories-and-dired-list "Find dir: ")
	751	(helm-projectile-command "recentf" 'helm-source-projectile-recentf-list "Recently visited file: ")
	752	(helm-projectile-command "switch-to-buffer" 'helm-source-projectile-buffers-list "Switch to buffer: " nil helm-buffers-truncate-lines)
	753	(helm-projectile-command "browse-dirty-projects" 'helm-source-projectile-dirty-projects "Select a project: " t)
	754
	755	(defun helm-projectile--files-display-real (files root)
	756	"Create (DISPLAY . REAL) pairs with FILES and ROOT.
	757
	758	DISPLAY is the short file name. REAL is the full path."
	759	(cl-loop for display in files
	760	collect (cons display (expand-file-name display root))))
	761
	762	;;;###autoload
	763	(defun helm-projectile-find-file-dwim ()
	764	"Find file at point based on context."
	765	(interactive)
	766	(let* ((project-root (projectile-project-root))
	767	(project-files (projectile-current-project-files))
	768	(files (projectile-select-files project-files)))
	769	(if (= (length files) 1)
	770	(find-file (expand-file-name (car files) (projectile-project-root)))
	771	(helm :sources (helm-build-sync-source "Projectile files"
	772	:candidates (if (> (length files) 1)
	773	(helm-projectile--files-display-real files project-root)
	774	(helm-projectile--files-display-real project-files project-root))
	775	:fuzzy-match helm-projectile-fuzzy-match
	776	:action-transformer 'helm-find-files-action-transformer
	777	:keymap helm-projectile-find-file-map
	778	:help-message helm-ff-help-message
	779	:mode-line helm-read-file-name-mode-line-string
	780	:action helm-projectile-file-actions
	781	:persistent-action #'helm-projectile-file-persistent-action
	782	:persistent-help "Preview file")
	783	:buffer "helm projectile"
	784	:truncate-lines helm-projectile-truncate-lines
	785	:prompt (projectile-prepend-project-name "Find file: ")))))
	786
	787	;;;###autoload
	788	(defun helm-projectile-find-other-file (&optional flex-matching)
	789	"Switch between files with the same name but different extensions using Helm.
	790	With FLEX-MATCHING, match any file that contains the base name of current file.
	791	Other file extensions can be customized with the variable `projectile-other-file-alist'."
	792	(interactive "P")
	793	(let* ((project-root (projectile-project-root))
	794	(other-files (projectile-get-other-files (buffer-file-name)
	795	(projectile-current-project-files)
	796	flex-matching)))
	797	(if other-files
	798	(if (= (length other-files) 1)
	799	(find-file (expand-file-name (car other-files) project-root))
	800	(progn
	801	(let* ((helm-ff-transformer-show-only-basename nil))
	802	(helm :sources (helm-build-sync-source "Projectile other files"
	803	:candidates (helm-projectile--files-display-real other-files project-root)
	804	:keymap helm-projectile-find-file-map
	805	:help-message helm-ff-help-message
	806	:mode-line helm-read-file-name-mode-line-string
	807	:action helm-projectile-file-actions
	808	:persistent-action #'helm-projectile-file-persistent-action
	809	:persistent-help "Preview file")
	810	:buffer "helm projectile"
	811	:truncate-lines helm-projectile-truncate-lines
	812	:prompt (projectile-prepend-project-name "Find other file: ")))))
	813	(error "No other file found"))))
	814
	815	(defcustom helm-projectile-grep-or-ack-actions
	816	'("Find file" helm-grep-action
	817	"Find file other frame" helm-grep-other-frame
	818	(lambda () (and (locate-library "elscreen")
	819	"Find file in Elscreen"))
	820	helm-grep-jump-elscreen
	821	"Save results in grep buffer" helm-grep-save-results
	822	"Find file other window" helm-grep-other-window)
	823	"Available actions for `helm-projectile-grep-or-ack'.
	824	The contents of this list are passed as the arguments to `helm-make-actions'."
	825	:type 'symbol
	826	:group 'helm-projectile)
	827
	828	(defcustom helm-projectile-set-input-automatically t
	829	"If non-nil, attempt to set search input automatically.
	830	Automatic input selection uses the region (if there is an active
	831	region), otherwise it uses the current symbol at point (if there
	832	is one). Applies to `helm-projectile-grep' and
	833	`helm-projectile-ack' only. If the `helm-ag' package is
	834	installed, then automatic input behavior for `helm-projectile-ag'
	835	can be customized using `helm-ag-insert-at-point'."
	836	:group 'helm-projectile
	837	:type 'boolean)
	838
	839	(defun helm-projectile-grep-or-ack (&optional dir use-ack-p ack-ignored-pattern ack-executable)
	840	"Perform helm-grep at project root.
	841	DIR directory where to search
	842	USE-ACK-P indicates whether to use ack or not.
	843	ACK-IGNORED-PATTERN is a file regex to exclude from searching.
	844	ACK-EXECUTABLE is the actual ack binary name.
	845	It is usually \"ack\" or \"ack-grep\".
	846	If it is nil, or ack/ack-grep not found then use default grep command."
	847	(let* ((default-directory (or dir (projectile-project-root)))
	848	(helm-ff-default-directory default-directory)
	849	(helm-grep-in-recurse t)
	850	(helm-grep-ignored-files (cl-union (projectile-ignored-files-rel) grep-find-ignored-files))
	851	(helm-grep-ignored-directories
	852	(cl-union (mapcar 'directory-file-name (projectile-ignored-directories-rel))
	853	grep-find-ignored-directories))
	854	(helm-grep-default-command (if use-ack-p
	855	(concat ack-executable " -H --no-group --no-color " ack-ignored-pattern " %p %f")
	856	(if (and projectile-use-git-grep (eq (projectile-project-vcs) 'git))
	857	"git --no-pager grep --no-color -n%c -e %p -- %f"
	858	"grep -a -r %e -n%cH -e %p %f .")))
	859	(helm-grep-default-recurse-command helm-grep-default-command))
	860
	861	(setq helm-source-grep
	862	(helm-build-async-source
	863	(capitalize (helm-grep-command t))
	864	:header-name (lambda (_name)
	865	(let ((name (if use-ack-p
	866	"Helm Projectile Ack"
	867	"Helm Projectile Grep")))
	868	(concat name " " "(C-c ? Help)")))
	869	:candidates-process 'helm-grep-collect-candidates
	870	:filter-one-by-one 'helm-grep-filter-one-by-one
	871	:candidate-number-limit 9999
	872	:nohighlight t
	873	;; We need to specify keymap here and as :keymap arg [1]
	874	;; to make it available in further resuming.
	875	:keymap helm-grep-map
	876	:history 'helm-grep-history
	877	:action (apply #'helm-make-actions helm-projectile-grep-or-ack-actions)
	878	:persistent-action 'helm-grep-persistent-action
	879	:persistent-help "Jump to line (`C-u' Record in mark ring)"
	880	:requires-pattern 2))
	881	(helm
	882	:sources 'helm-source-grep
	883	:input (when helm-projectile-set-input-automatically
	884	(if (region-active-p)
	885	(buffer-substring-no-properties (region-beginning) (region-end))
	886	(thing-at-point 'symbol)))
	887	:buffer (format "helm %s" (if use-ack-p
	888	"ack"
	889	"grep"))
	890	:default-directory default-directory
	891	:keymap helm-grep-map
	892	:history 'helm-grep-history
	893	:truncate-lines helm-grep-truncate-lines)))
	894
	895	;;;###autoload
	896	(defun helm-projectile-on ()
	897	"Turn on `helm-projectile' key bindings."
	898	(interactive)
	899	(message "Turn on helm-projectile key bindings")
	900	(helm-projectile-toggle 1))
	901
	902	;;;###autoload
	903	(defun helm-projectile-off ()
	904	"Turn off `helm-projectile' key bindings."
	905	(interactive)
	906	(message "Turn off helm-projectile key bindings")
	907	(helm-projectile-toggle -1))
	908
	909	;;;###autoload
	910	(defun helm-projectile-grep (&optional dir)
	911	"Helm version of `projectile-grep'.
	912	DIR is the project root, if not set then current directory is used"
	913	(interactive)
	914	(let ((project-root (or dir (projectile-project-root) (error "You're not in a project"))))
	915	(funcall 'run-with-timer 0.01 nil
	916	#'helm-projectile-grep-or-ack project-root nil)))
	917
	918	;;;###autoload
	919	(defun helm-projectile-ack (&optional dir)
	920	"Helm version of projectile-ack."
	921	(interactive)
	922	(let ((project-root (or dir (projectile-project-root) (error "You're not in a project"))))
	923	(let ((ack-ignored (mapconcat
	924	'identity
	925	(cl-union (mapcar (lambda (path)
	926	(concat "--ignore-dir=" (file-name-nondirectory (directory-file-name path))))
	927	(projectile-ignored-directories))
	928	(mapcar (lambda (path)
	929	(concat "--ignore-file=match:" (shell-quote-argument path)))
	930	(append (projectile-ignored-files) (projectile-patterns-to-ignore)))) " "))
	931	(helm-ack-grep-executable (cond
	932	((executable-find "ack") "ack")
	933	((executable-find "ack-grep") "ack-grep")
	934	(t (error "ack or ack-grep is not available")))))
	935	(funcall 'run-with-timer 0.01 nil
	936	#'helm-projectile-grep-or-ack project-root t ack-ignored helm-ack-grep-executable))))
	937
	938	;;;###autoload
	939	(defun helm-projectile-ag (&optional options)
	940	"Helm version of `projectile-ag'."
	941	(interactive (if current-prefix-arg (list (helm-read-string "option: " "" 'helm-ag--extra-options-history))))
	942	(if (require 'helm-ag nil t)
	943	(if (projectile-project-p)
	944	(let* ((grep-find-ignored-files (cl-union (projectile-ignored-files-rel) grep-find-ignored-files))
	945	(grep-find-ignored-directories (cl-union (projectile-ignored-directories-rel) grep-find-ignored-directories))
	946	(ignored (mapconcat (lambda (i)
	947	(concat "--ignore " i))
	948	(append grep-find-ignored-files grep-find-ignored-directories (cadr (projectile-parse-dirconfig-file)))
	949	" "))
	950	(helm-ag-base-command (concat helm-ag-base-command " " ignored " " options))
	951	(current-prefix-arg nil))
	952	(helm-do-ag (projectile-project-root) (car (projectile-parse-dirconfig-file))))
	953	(error "You're not in a project"))
	954	(when (yes-or-no-p "`helm-ag' is not installed. Install? ")
	955	(condition-case nil
	956	(progn
	957	(package-install 'helm-ag)
	958	(helm-projectile-ag options))
	959	(error (error "`helm-ag' is not available. Is MELPA in your `package-archives'?"))))))
	960
	961	;; Declare/define these to satisfy the byte compiler
	962	(defvar helm-rg-prepend-file-name-line-at-top-of-matches)
	963	(defvar helm-rg-include-file-on-every-match-line)
	964	(declare-function helm-rg "helm-rg")
	965
	966	(defun helm-projectile-rg--region-selection ()
	967	(when (use-region-p)
	968	(buffer-substring-no-properties (region-beginning) (region-end))))
	969
	970	;;;###autoload
	971	(defun helm-projectile-rg ()
	972	"Projectile version of `helm-rg'."
	973	(interactive)
	974	(if (require 'helm-rg nil t)
	975	(if (projectile-project-p)
	976	(let ((helm-rg-prepend-file-name-line-at-top-of-matches nil)
	977	(helm-rg-include-file-on-every-match-line t))
	978	(helm-rg (or (helm-projectile-rg--region-selection) "") nil (list (projectile-project-root))))
	979	(error "You're not in a project"))
	980	(when (yes-or-no-p "`helm-rg' is not installed. Install? ")
	981	(condition-case nil
	982	(progn
	983	(package-install 'helm-rg)
	984	(helm-projectile-rg))
	985	(error "`helm-rg' is not available. Is MELPA in your `package-archives'?")))))
	986
	987	(defun helm-projectile-commander-bindings ()
	988	(def-projectile-commander-method ?a
	989	"Run ack on project."
	990	(call-interactively 'helm-projectile-ack))
	991
	992	(def-projectile-commander-method ?A
	993	"Find ag on project."
	994	(call-interactively 'helm-projectile-ag))
	995
	996	(def-projectile-commander-method ?f
	997	"Find file in project."
	998	(helm-projectile-find-file))
	999
	1000	(def-projectile-commander-method ?b
	1001	"Switch to project buffer."
	1002	(helm-projectile-switch-to-buffer))
	1003
	1004	(def-projectile-commander-method ?d
	1005	"Find directory in project."
	1006	(helm-projectile-find-dir))
	1007
	1008	(def-projectile-commander-method ?g
	1009	"Run grep on project."
	1010	(helm-projectile-grep))
	1011
	1012	(def-projectile-commander-method ?s
	1013	"Switch project."
	1014	(helm-projectile-switch-project))
	1015
	1016	(def-projectile-commander-method ?e
	1017	"Find recently visited file in project."
	1018	(helm-projectile-recentf))
	1019
	1020	(def-projectile-commander-method ?V
	1021	"Find dirty projects."
	1022	(helm-projectile-browse-dirty-projects)))
	1023
	1024	;;;###autoload
	1025	(defun helm-projectile-toggle (toggle)
	1026	"Toggle Helm version of Projectile commands."
	1027	(if (> toggle 0)
	1028	(progn
	1029	(when (eq projectile-switch-project-action #'projectile-find-file)
	1030	(setq projectile-switch-project-action #'helm-projectile-find-file))
	1031	(define-key projectile-mode-map [remap projectile-find-other-file] #'helm-projectile-find-other-file)
	1032	(define-key projectile-mode-map [remap projectile-find-file] #'helm-projectile-find-file)
	1033	(define-key projectile-mode-map [remap projectile-find-file-in-known-projects] #'helm-projectile-find-file-in-known-projects)
	1034	(define-key projectile-mode-map [remap projectile-find-file-dwim] #'helm-projectile-find-file-dwim)
	1035	(define-key projectile-mode-map [remap projectile-find-dir] #'helm-projectile-find-dir)
	1036	(define-key projectile-mode-map [remap projectile-switch-project] #'helm-projectile-switch-project)
	1037	(define-key projectile-mode-map [remap projectile-recentf] #'helm-projectile-recentf)
	1038	(define-key projectile-mode-map [remap projectile-switch-to-buffer] #'helm-projectile-switch-to-buffer)
	1039	(define-key projectile-mode-map [remap projectile-grep] #'helm-projectile-grep)
	1040	(define-key projectile-mode-map [remap projectile-ack] #'helm-projectile-ack)
	1041	(define-key projectile-mode-map [remap projectile-ag] #'helm-projectile-ag)
	1042	(define-key projectile-mode-map [remap projectile-ripgrep] #'helm-projectile-rg)
	1043	(define-key projectile-mode-map [remap projectile-browse-dirty-projects] #'helm-projectile-browse-dirty-projects)
	1044	(helm-projectile-commander-bindings))
	1045	(progn
	1046	(when (eq projectile-switch-project-action #'helm-projectile-find-file)
	1047	(setq projectile-switch-project-action #'projectile-find-file))
	1048	(define-key projectile-mode-map [remap projectile-find-other-file] nil)
	1049	(define-key projectile-mode-map [remap projectile-find-file] nil)
	1050	(define-key projectile-mode-map [remap projectile-find-file-in-known-projects] nil)
	1051	(define-key projectile-mode-map [remap projectile-find-file-dwim] nil)
	1052	(define-key projectile-mode-map [remap projectile-find-dir] nil)
	1053	(define-key projectile-mode-map [remap projectile-switch-project] nil)
	1054	(define-key projectile-mode-map [remap projectile-recentf] nil)
	1055	(define-key projectile-mode-map [remap projectile-switch-to-buffer] nil)
	1056	(define-key projectile-mode-map [remap projectile-grep] nil)
	1057	(define-key projectile-mode-map [remap projectile-ag] nil)
	1058	(define-key projectile-mode-map [remap projectile-ripgrep] nil)
	1059	(define-key projectile-mode-map [remap projectile-browse-dirty-projects] nil)
	1060	(projectile-commander-bindings))))
	1061
	1062	;;;###autoload
	1063	(defun helm-projectile (&optional arg)
	1064	"Use projectile with Helm instead of ido.
	1065
	1066	With a prefix ARG invalidates the cache first.
	1067	If invoked outside of a project, displays a list of known projects to jump."
	1068	(interactive "P")
	1069	(if (not (projectile-project-p))
	1070	(helm-projectile-switch-project arg)
	1071	(projectile-maybe-invalidate-cache arg)
	1072	(let ((helm-ff-transformer-show-only-basename nil))
	1073	(helm :sources helm-projectile-sources-list
	1074	:buffer "helm projectile"
	1075	:truncate-lines helm-projectile-truncate-lines
	1076	:prompt (projectile-prepend-project-name (if (projectile-project-p)
	1077	"pattern: "
	1078	"Switch to project: "))))))
	1079
	1080	;;;###autoload
	1081	(eval-after-load 'projectile
	1082	'(progn
	1083	(define-key projectile-command-map (kbd "h") #'helm-projectile)))
	1084
	1085	(provide 'helm-projectile)
	1086
	1087	;;; helm-projectile.el ends here