rails-spec.el @@ -1,3 +1,14 @@ +2007-08-18 Peter Rezikov <crazypit13@gmail.com> + * rails-spec.el: base support for rspec. Function + `rails-spec:run-all', `rails-spec:run-this-file', `rails-spec:run-last', + `rails-spec:run-files'. Variables: `rails-spec:all-files', + `rails-spec:last-files', `rails-spec:runner', + `rails-spec:runner-options'. + * rails-find.el, rails-ui.el: finds for rspec + * rails-project.el: new functions: rails-project:in-root-with-cd, + rails-project:compile-in-root + * rails-lib.el: new macro in-directory + 2007-08-18 Dmitry Galinsky <dima.exe@gmail.com> * rails-scripts.el (rails-script:run-interactive): setup a ChangeLog @@ -51,4 +51,11 @@ (rails-find:gen "migrate" "db/migrate") (rails-find:gen "fixtures" "test/fixtures") +;; Rspec +(rails-find:gen "spec" "spec/") +(rails-find:gen "spec-controllers" "spec/controllers/") +(rails-find:gen "spec-models" "spec/models/") +(rails-find:gen "spec-helpers" "spec/helpers/") +(rails-find:gen "spec-fixtures" "spec/fixtures/") + (provide 'rails-find) \ No newline at end of file rails-find.el @@ -252,6 +252,15 @@ it." "Return the parent directory of a file named FILE-NAME." (replace-regexp-in-string "[^/]*$" "" file-name)) +(defmacro* in-directory ((directory) &rest body) + (let ((before-directory (gensym))) + `(let ((,before-directory default-directory) + (default-directory ,directory)) + (cd ,directory) + ,@body + (cd ,before-directory)))) + + ;; Buffers (defun buffer-string-by-name (buffer-name) rails-lib.el @@ -65,6 +65,15 @@ BODY is executed." (let ((default-dir ,root)) ,@body)))) +(defmacro* rails-project:in-root-with-cd (&rest body) + (let ((root (gensym))) + `(rails-project:with-root (,root) + (in-directory (,root) ,@body)))) + +(defun rails-project:compile-in-root (command) + (rails-project:in-root-with-cd + (compile command))) + (defun rails-project:name () "Return the name of current Rails project." (replace-regexp-in-string "^.*/\\(.*\\)/$" "\\1" rails-project.el @@ -262,12 +262,21 @@ ((rails-key "\C-c f p") 'rails-find:public) ((rails-key "\C-c f f") 'rails-find:fixtures) ((rails-key "\C-c f o") 'rails-find:config) + ;; Spec finds + ((rails-key "\C-c f r s") 'rails-find:spec) + ((rails-key "\C-c f r c") 'rails-find:spec-controllers) + ((rails-key "\C-c f r m") 'rails-find:spec-models) + ((rails-key "\C-c f r h") 'rails-find:spec-helpers) + ((rails-key "\C-c f r v") 'rails-find:spec-views) + ((rails-key "\C-c f r f") 'rails-find:spec-fixtures) ((rails-key "\C-c d m") 'rails-rake:migrate) ((rails-key "\C-c d v") 'rails-rake:migrate-to-version) ((rails-key "\C-c d p") 'rails-rake:migrate-to-prev-version) ((rails-key "\C-c d t") 'rails-rake:clone-development-db-to-test-db) + + ;; Tests ((rails-key "\C-c r") 'rails-rake:task) ((rails-key "\C-c t") 'rails-test:run) rails-ui.el @@ -68,6 +68,7 @@ (require 'rails-model-layout) (require 'rails-controller-layout) (require 'rails-features) +(require 'rails-spec) ;;;;;;;;;; Variable definition ;;;;;;;;;; rails.el cc957370ce836edae6f8d8055df9c8e42a16faa4 crazypit crazypit@cc5033d0-740f-0410-afc7-949910e492f2 http://github.com/tomtt/emacs-rails/commit/8523372f911a1852cc1f32b7d06e8f07c9ed6a0f 8523372f911a1852cc1f32b7d06e8f07c9ed6a0f 2007-08-24T05:57:59-07:00 2007-08-24T05:57:59-07:00 * rails-spec.el: base support for rspec. Function `rails-spec:run-all', `rails-spec:run-this-file', `rails-spec:run-last', `rails-spec:run-files'. Variables: `rails-spec:all-files', `rails-spec:last-files', `rails-spec:runner', `rails-spec:runner-options'. * rails-find.el, rails-ui.el: finds for rspec * rails-project.el: new functions: rails-project:in-root-with-cd, rails-project:compile-in-root * rails-lib.el: new macro in-directory M trunk/rails-lib.el M trunk/rails-project.el M trunk/rails-ui.el M trunk/rails-find.el M trunk/ChangeLog A trunk/rails-spec.el M trunk/rails.el git-svn-id: svn+ssh://rubyforge.org/var/svn/emacs-rails/trunk@213 cc5033d0-740f-0410-afc7-949910e492f2 cc06f9893614238b89cc8d38de1aa71e50de1cf5 crazypit crazypit@cc5033d0-740f-0410-afc7-949910e492f2