54 lines
No EOL
2.2 KiB
EmacsLisp
54 lines
No EOL
2.2 KiB
EmacsLisp
;;; rails-find.el ---
|
|
|
|
;; Copyright (C) 2006 Dmitry Galinsky <dima dot exe at gmail dot com>
|
|
|
|
;; Authors: Dmitry Galinsky <dima dot exe at gmail dot com>,
|
|
;; Rezikov Peter <crazypit13 (at) gmail.com>
|
|
|
|
;; Keywords: ruby rails languages oop
|
|
;; $URL: svn+ssh://rubyforge/var/svn/emacs-rails/trunk/rails-navigation.el $
|
|
;; $Id: rails-navigation.el 111 2007-03-24 22:28:12Z dimaexe $
|
|
|
|
;;; License
|
|
|
|
;; This program is free software; you can redistribute it and/or
|
|
;; modify it under the terms of the GNU General Public License
|
|
;; as published by the Free Software Foundation; either version 2
|
|
;; of the License, or (at your option) any later version.
|
|
|
|
;; This program is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with this program; if not, write to the Free Software
|
|
;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
|
|
(defmacro rails-find:gen (name dir)
|
|
"Define new rails-find function"
|
|
(let ((dir (concat dir "/")))
|
|
`(defun ,(intern (concat "rails-find:" name)) ()
|
|
,(format "Run find-file in Rails \"%s\" dir" dir)
|
|
(interactive)
|
|
(let ((default-directory (rails-core:file ,dir)))
|
|
(call-interactively ',(if (fboundp 'ido-find-file)
|
|
'ido-find-file
|
|
'find-file))))))
|
|
|
|
(rails-find:gen "controller" "app/controllers")
|
|
(rails-find:gen "view" "app/views")
|
|
(rails-find:gen "layout" "app/views/layouts")
|
|
(rails-find:gen "db" "db")
|
|
(rails-find:gen "public" "public")
|
|
(rails-find:gen "helpers" "app/helpers")
|
|
(rails-find:gen "models" "app/models")
|
|
(rails-find:gen "config" "config")
|
|
(rails-find:gen "lib" "lib")
|
|
(rails-find:gen "tasks" "lib/tasks")
|
|
(rails-find:gen "stylesheets" "public/stylesheets")
|
|
(rails-find:gen "javascripts" "public/javascripts")
|
|
(rails-find:gen "migrate" "db/migrate")
|
|
(rails-find:gen "fixtures" "test/fixtures")
|
|
|
|
(provide 'rails-find) |