Re: [jdee-users] jde-open-class-source-with-completion vs anything.el

[Yee K. P. <yk...@gm...>]

Hi,

I am attaching my configuration here if you want to have a look.

1. I have cygwin installed on my windows so I have the access to quick
functions like updatedb and locate, *nix users will have no problem.
2. The only parameter you want to change below is core-rootpath, which
is my project root.
3. It will try to use 'locate' (very fast) and also 'find' (slow) at
the same time, in case the locate can't find a file that is just
added, you can wait for the 'find' results to come back

(require 'anything)

(defun core-anything ()
  (interactive)
  (anything core-anything-sources))

(defun core-anything-source-candidate-transformer (candidates)
  (loop for candidate in candidates
		unless (or (string-match "#" candidate)
				   (string-match "~" candidate)
				   (string-match "\\.class" candidate)
				   (string-match "\\.war" candidate)
				   (string-match "\\.jar" candidate)
				   (string-match "\\.ear" candidate)
				   (file-directory-p candidate))
		collect candidate))

(defun core-updatedb ()
  (interactive)
  (let ((args
		 (format "--localpaths='%s' --output='%s/locatedb'" core-rootpath
core-rootpath)))
	(start-process-shell-command "updatedb-process" " core-updatedb"
"updatedb" args)))

(setq core-anything-sources '(((name . "Buffers")
							   (candidates
								. (lambda ()
									(remove-if (lambda (name)
												 (or (equal name anything-buffer)
													 (eq ?\  (aref name 0))))
											   (mapcar 'buffer-name (buffer-list)))))
							   (type . buffer))
							  ((name . "Local Locatedb")
							   (init . (lambda ()
										 (setq anything-default-directory
											   default-directory)))
							   (candidates
								. (lambda ()
									(let ((args
										   (format "-d locatedb -b -i %s"
												   anything-pattern)))
									  (cd core-rootpath)
									  (start-process-shell-command "locate-search-process" " core-locate"
																   "locate" args))))
							   (candidate-transformer . core-anything-source-candidate-transformer)
							   (type . file)
							   (requires-pattern . 3)
							   (delayed))
							  ((name . "File Search")
							   (init . (lambda ()
										 (setq anything-default-directory
											   default-directory)))
							   (candidates
								. (lambda ()
									(let ((args
										   (format "%s -iname '*%s*' -print"
												   core-rootpath
												   anything-pattern)))
									  (start-process-shell-command "file-search-process" nil
																   "find" args))))
							   (candidate-transformer . core-anything-source-candidate-transformer)
							   (type . file)
							   (requires-pattern . 3)
							   (delayed))))

(global-set-key (kbd "\C-c o") 'core-anything)


-- 
Cheers,
Phuah Yee Keat