                   directory
                   (project--build-find wildcards)
                   project-tags-executable
-                  (concat directory "/" "TAGS"))))
+                  (concat directory "TAGS"))))
     (setq-local history-wildcards wildcards)
+    (message "command %s" command)
     (shell-command command)))
 
 (defun project-grep (wildcards regexp)

        maybe-directory))))

(defun project--is-git ()
  (file-exists-p (concat (project--get-root) "/" ".git")))

(defun project--build-find (wildcards)
  (let* ((find-wildcards

;;; project operation(tags, grep, compile)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar project-tags-executable "etags")
(defvar project-ignore-file "*/.git* */.svn* */elpa* */obj* */build*")

(defun project--get-root (&optional iscurr)
  "Get project root path."
