(defun deadgrep--project-root ()
  "Guess the project root of the given FILE-PATH."
  (let ((root default-directory)
        (project (project-current)))
    (when project
      (-when-let (roots (project-roots project))
        (setq root (car roots))))
    (when root
      (deadgrep--lookup-override root))))