  :candidate-filter
  (lambda (input)
    (let ((candidates)
-         (project-files (snails-backend-projectile-files)))
+         (project-files (snails-backend-projectile--files)))
      (when project-files
        (dolist (file project-files)
          (when (or


 :candiate-do
 (lambda (candidate)
   (find-file candidate)))


(provide 'snails-backend-projectile)


;;; Code:


(defun snails-backend-projectile--project-root ()
  "Find projectile root."
  (let ((filename (buffer-file-name snails-start-buffer)))
    (when filename
      (projectile-project-root (file-name-directory filename)))))


(defun snails-backend-projectile--files ()
  "List project files."
  (let ((project-root (snails-backend-projectile--project-root)))
    (when project-root
      (projectile-project-files project-root))))


(snails-create-sync-backend
