(defun open (project) (interactive (list (read-directory-name "Peepopen for project: " "~/code/")))
  (flet ((textmate-project-root () (file-truename project)))
    (peepopen-goto-file-gui)))

(global-set-key [(meta ?o)] 'open)