.gitignore @@ -249,13 +249,21 @@ (setq *textmate-project-root* nil)))) *textmate-project-root*) +(defun root-match(root names) + (member (car names) (directory-files root))) + +(defun root-matches(root names) + (if (root-match root names) + (root-match root names) + (if (eq (length (cdr names)) 0) + 'nil + (root-matches root (cdr names)) + ))) + (defun textmate-find-project-root (&optional root) (when (null root) (setq root default-directory)) (cond - ((or - (member ".git" (directory-files root)) - (member "Rakefile" (directory-files root)) - (member "Makefile" (directory-files root))) + ((root-matches root '(".git" "Rakefile" "Makefile" "README" "build.xml")) (expand-file-name root)) ((equal (expand-file-name root) "/") nil) (t (textmate-find-project-root (concat (file-name-as-directory root) ".."))))) @@ -290,4 +298,4 @@ A place is considered `tab-width' character columns." (funcall (cadr mode) -1))))) (provide 'textmate) -;;; textmate.el ends here +;;; textmate.el ends here \ No newline at end of file textmate.el 2b34699e5fba3e6aed876afa1fd9df95d950815c irfn mail.urfi@gmail.com http://github.com/defunkt/textmate.el/commit/6ad86eee284af991c0fe0e7369b730fd64c3778f 6ad86eee284af991c0fe0e7369b730fd64c3778f 2009-08-11T10:01:16-07:00 2009-08-11T10:01:16-07:00 Refactor to a nicer way to extend the project roots 84b848e6361c9d9b831c86f7c51552c3bd1951eb irfn mail.urfi@gmail.com