@@ -625,6 +625,12 @@ If the action is nil, return all views for the controller." (when (search-backward-regexp "^[ ]*def \\([a-z0-9_]+\\)" nil t) (match-string-no-properties 1)))) +(defun rails-core:current-migration-version () + "Return the current migration version" + (let ((name (buffer-file-name))) + (when (string-match "db\\/migrate\\/\\([0-9]+\\)[a-z0-9_]+\.[a-z]+$" name) + (match-string 1 name)))) + ;;;;;;;;;; Determination of buffer type ;;;;;;;;;; (defun rails-core:buffer-file-match (regexp) rails-core.el @@ -94,6 +94,38 @@ (when (< 2 (length versions)) (nth 1 versions))))) +(defun rails-rake:migrate-version (&optional version direction) + "Run the db:migration:(up|down) task" + (interactive) + (if (string-equal "" version) + (setq version (rails-core:current-migration-version))) + (rails-rake:task + (concat + "db:migrate" + (cond ((string-equal direction "up") ":up") + ((string-equal direction "down") ":down")) + (typecase version + (integer (format " VERSION=%.3i" version)) + (string (format " VERSION=%s" version)))))) + +(defun rails-rake:migration-version-up (&optional version) + "Run up migration with VERSION." + (interactive (rails-completing-read "Version of migration" + (rails-core:migration-versions t) + nil + t)) + (when version + (rails-rake:migrate-version version "up"))) + +(defun rails-rake:migration-version-down (&optional version) + "Run up migration with VERSION." + (interactive (rails-completing-read "Version of migration" + (rails-core:migration-versions t) + nil + t)) + (when version + (rails-rake:migrate-version version "down"))) + ;; This function was originally defined anonymously in ui. It was defined here so keys ;; can be added to it dryly (defun rails-rake:clone-development-db-to-test-db () rails-rake.el @@ -288,6 +288,8 @@ ((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 u") 'rails-rake:migration-version-up) + ((rails-key "\C-c d d") 'rails-rake:migration-version-down) ((rails-key "\C-c d t") 'rails-rake:clone-development-db-to-test-db) ;; Tests rails-ui.el 1aa98f24bccb47af167a35b4ccbdfda477ad0c57 crazycode crazycode@gmail.com http://github.com/remvee/emacs-rails/commit/0ad15ce2fc5b507de738c533c8f8e55e4617b949 0ad15ce2fc5b507de738c533c8f8e55e4617b949 2009-06-17T15:55:19-07:00 2009-06-17T15:55:19-07:00 merge migration change from sishen/emacs-rails. 4131c078826505db1b2c0e7d800539ff55a418cf crazycode crazycode@gmail.com