Emacs Find File in Project Updated Plus defun toggle-test

I've updated my fork of the Emacs Find File in Project with caching and storage of the file list in a map instead of an alist. Both of these should improve the performance with the latter possibly being a bit of an overkill for anything but very large projects.

I also put together a little function to toggle back and forth between class and test case for Java code per the directory layout we use at work. If the corresponding toggle file does not exist you will be prompted to create it:

	(global-set-key "\C-ct" 'toggle-test)
	(defun toggle-test ()
	(interactive)
	(let* ((file-name (buffer-file-name))
	(toggle-file-name
	(cond ((string-match "\\(.*\\)/javatests/\\(.*\\)\\(/[^/]*\\)Test.java$" file-name)
	(concat (match-string 1 file-name)
	"/java/"
	(match-string 2 file-name)
	(match-string 3 file-name)
	".java"))
	((string-match "\\(.*\\)/java/\\(.*\\)\\(/[^/]*\\).java$" file-name)
	(concat (match-string 1 file-name)
	"/javatests/"
	(match-string 2 file-name)
	(match-string 3 file-name)
	"Test.java")))))
	(if toggle-file-name
	(find-file toggle-file-name)
	(message "Unable to determine the toggle-test file."))))

view raw gistfile1.sls hosted with ❤ by GitHub

Emacs rules with its quick customizations.