Yet Another Find File In Project in Emacs

Every other day in reddit /r/emacs there's someone asking for this find-in-project feature that has sublime/textmate/vim(ctrl-p) users so addicted.  Is there anything similar for emacs?

The answer is (as usual), yes, more than one, probably more than needed.

People are suggesting projectile, prelude, helm or fiplr.  The point is that if the only feature you want is to search on a git repo, and you don't want any of the other sugar that projectile/prelude provide (you already know stock emacs), you can write your own in 5 minutes. So I did. Long time ago, when there weren't so many search packages, and I just wanted a fraction of available plugins offered.

It was also a nice exercise when I was learning elisp.

Here it is:

	(defun rgc-find-git-root ()
	"Find git root directory from current directory."
	(interactive)
	(rgc-member-directory default-directory
	"~/"
	(lambda (x)
	(file-exists-p (concat x ".git")))))
	(defun rgc-member-directory (from to fun &optional if-nil)
	"Returns a directory between `from' and `to' for wich `fun'
	returns non nil. The search begins on the child 'from' and goes
	up till 'to', or '/'. If `if-nil' is provided, in case of not
	finding any suitable directory, it returns it instead of `to'"
	(when (not (file-exists-p from))
	(return))
	(if (or (equal (expand-file-name from) (expand-file-name to))
	(equal from "/")) ;how to do it multiplatform?
	(or if-nil to)
	(if (funcall fun from) from
	(rgc-member-directory (expand-file-name (concat from "/../")) ;how to do it multiplatform?
	to
	fun
	if-nil))))
	(defun find-file-in-repo ()
	(interactive)
	(let* ((git-root (rgc-find-git-root))
	(ido-enable-regexp nil)
	(repo-files (split-string
	(with-temp-buffer
	(cd git-root)
	(shell-command "git ls-files" t)
	(buffer-string)))))
	(find-file (concat git-root "/"
	(ido-completing-read "file: " repo-files t t)))))
	(global-set-key (kbd "C-x f") 'find-file-in-repo)

view raw find-file-in-repo.el hosted with ❤ by GitHub

Sorry again to planet emacs readers. The gist isn't showing properly there.... :/