 ;;
 ;; Project search
 ;;
+
+(defun +helm-ag-search-args (all-files-p recursive-p)
+  (list "ag -S"
+        (if IS-WINDOWS "--vimgrep" "--nocolor --nogroup")
+        (if all-files-p "-z -a")
+        (unless recursive-p "--depth 1")))
+
+(defun +helm-rg-search-args (all-files-p recursive-p)
+  (list "rg -S --no-heading --line-number --color never"
+        (when all-files-p "-z -uu")
+        (unless recursive-p "--maxdepth 1")))
+
+(defun +helm-pt-search-args (all-files-p recursive-p)
+  (list "pt -S --nocolor --nogroup -e"
+        (if all-files-p "-z -a")
+        (unless recursive-p "--depth 1")))
+
+;;
+(defun +helm--grep-source ()
+  (helm-build-async-source (capitalize (helm-grep-command t))
+    :header-name (lambda (_name) "Helm Projectile Grep (C-c ? Help)")
+    :candidates-process #'helm-grep-collect-candidates
+    :filter-one-by-one #'helm-grep-filter-one-by-one
+    :candidate-number-limit 9999
+    :nohighlight t
+    :keymap helm-grep-map
+    :history 'helm-grep-history
+    :action (apply #'helm-make-actions helm-projectile-grep-or-ack-actions)
+    :persistent-action 'helm-grep-persistent-action
+    :persistent-help "Jump to line (`C-u' Record in mark ring)"
+    :requires-pattern 2))
+
+(defun +helm--grep-search (directory query prompt &optional all-files-p recursive-p)
+  (let* ((default-directory directory)
+         (helm-ff-default-directory directory)
+         (helm-grep-in-recurse recursive-p)
+         (helm-grep-ignored-files
+          (unless all-files-p
+            (cl-union (projectile-ignored-files-rel) grep-find-ignored-files)))
+         (helm-grep-ignored-directories
+          (unless all-files-p
+            (cl-union (mapcar 'directory-file-name (projectile-ignored-directories-rel))
+                      grep-find-ignored-directories)))
+         (helm-grep-default-command
+          (if (and nil (eq (projectile-project-vcs) 'git))
+              (format "git --no-pager grep --no-color -n%%c -e %%p %s -- %%f"
+                      (if recursive-p "" "--max-depth 1 "))
+            (format "grep -si -a%s %%e -n%%cH -e %%p %%f %s"
+                    (if recursive-p " -R" "")
+                    (if recursive-p "." "./*"))))
+         (helm-grep-default-recurse-command helm-grep-default-command))
+    (setq helm-source-grep (+helm--grep-source))
+    (helm :sources 'helm-source-grep
+          :input query
+          :prompt prompt
+          :buffer "*helm grep*"
+          :default-directory directory
+          :keymap helm-grep-map
+          :history 'helm-grep-history
+          :truncate-lines helm-grep-truncate-lines)))
 
 ;;;###autoload
 (cl-defun +helm-file-search (engine &key query in all-files (recursive t))

         (helm-ag--default-directory directory)
         (helm-ag--default-target (list directory))
         (engine (or engine
                     (cl-loop for tool in +helm-project-search-engines
                              if (executable-find (symbol-name tool))
                              return tool)
                     (and (or (executable-find "grep")
                              (executable-find "git"))
                          'grep)
                     (error "No search engine specified (is ag, rg, pt or git installed?)")))
         (query (or query
                    (when (use-region-p)
                      (let ((beg (or (bound-and-true-p evil-visual-beginning) (region-beginning)))

            :keymap helm-ag-map
            :history 'helm-ag--helm-history))))

(defun +helm--get-command (format)
  (cl-loop for tool in (cl-remove-duplicates +helm-project-search-engines :from-end t)
           if (executable-find (symbol-name tool))
           return (intern (format format tool))))

;;;###autoload
(defun +helm/project-search (&optional all-files-p)
  "Performs a project search from the project root.

Uses the first available search backend from `+helm-project-search-engines'. If
ALL-FILES-P (universal argument), include all files, even hidden or compressed
ones, in the search."
  (interactive "P")
  (call-interactively
   (or (+helm--get-command "+helm/%s")
       #'+helm/grep)))

;;;###autoload
(defun +helm/project-search-from-cwd (&optional all-files-p)
  "Performs a project search recursively from the current directory.

Uses the first available search backend from `+helm-project-search-engines'. If
ALL-FILES-P (universal argument), include all files, even hidden or compressed
ones."
  (interactive "P")
  (call-interactively
   (or (+helm--get-command "+helm/%s-from-cwd")
       #'+helm/grep-from-cwd)))


;; Relative to project root
;;;###autoload (autoload '+helm/rg "completion/helm/autoload/helm")
;;;###autoload (autoload '+helm/rg-from-cwd "completion/helm/autoload/helm")
;;;###autoload (autoload '+helm/ag "completion/helm/autoload/helm")
;;;###autoload (autoload '+helm/ag-from-cwd "completion/helm/autoload/helm")
;;;###autoload (autoload '+helm/pt "completion/helm/autoload/helm")
;;;###autoload (autoload '+helm/pt-from-cwd "completion/helm/autoload/helm")
;;;###autoload (autoload '+helm/grep "completion/helm/autoload/helm")
;;;###autoload (autoload '+helm/grep-from-cwd "completion/helm/autoload/helm")

(dolist (engine (cl-remove-duplicates +helm-project-search-engines :from-end t))
  (defalias (intern (format "+helm/%s" engine))
    (lambda (all-files-p &optional query directory)
      (interactive "P")
      (+helm-file-search engine :query query :in directory :all-files all-files-p))
    "TODO")
  (defalias (intern (format "+helm/%s-from-cwd" engine))
    (lambda (all-files-p &optional query directory)
      (interactive "P")
      (+helm-file-search engine :query query :in default-directory :all-files all-files-p))
    "TODO"))
