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