sjs/config
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Cmd-Shift-F to find in project like TextMate

Browse source
This commit is contained in:
Sami Samhuri 2010-07-31 02:51:31 -07:00
parent 87f4865da0
commit 8aca01d137
2 changed files with 18 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
emacs
View file

@ -376,6 +376,9 @@
;; can't seem to un-hijack cmd-`, so make it do something useful ;; can't seem to un-hijack cmd-`, so make it do something useful
(global-set-key "\M-`" 'other-window-in-any-frame) (global-set-key "\M-`" 'other-window-in-any-frame)
;; find files like textmate
(global-set-key "\M-F" 'textmate-find-in-project)
;; run the ssa server ;; run the ssa server
(global-set-key [(super s)] 'ssa-run-server) (global-set-key [(super s)] 'ssa-run-server)

15
emacs.d/textmate.el
View file

@ -301,6 +301,21 @@ Symbols matching the text at point are put first in the completion list."
(setq *textmate-project-files* nil) (setq *textmate-project-files* nil)
(message "textmate-mode cache cleared.")) (message "textmate-mode cache cleared."))
(defun textmate-find-regex-in-project (regex)
"Search the project for a regular expression and quickly jump
to matches in a project.
This function just finds the project root and calls `LGREP'."
(interactive "sRegex: ")
(let ((root (textmate-project-root)))
(when (null root)
(error
(concat
"Can't find a suitable project root ("
(string-join " " *textmate-project-roots* )
")")))
(lgrep regex "*" root)))
;;; Utilities ;;; Utilities
(defun textmate-project-files (root) (defun textmate-project-files (root)