            return (intern (format format tool))))
 
 ;;;###autoload
-(defun +helm/project-search (&optional all-files-p)
+(defun +helm/project-search (&optional arg)
   "Performs a project search from the project root.
 
 Uses the first available search backend from `+helm-project-search-engines'. If

                                (string-join (delq nil (cdr command)) " ")
                                (abbreviate-file-name directory))
                  helm-source-do-ag)
    (cl-letf ((+helm-global-prompt prompt)
              ((symbol-function 'helm-do-ag--helm)
               (lambda () (helm :sources '(helm-source-do-ag)
                           :buffer "*helm-ag*"
                           :keymap helm-do-ag-map
                           :input query

  (interactive "P")
  (funcall (or (+helm--get-command "+helm/%s")
               #'+helm/grep)
           arg))

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

Uses the first available search backend from `+helm-project-search-engines'. If
