Find file
Fetching contributors…
Cannot retrieve contributors at this time
74 lines (57 sloc) 2.57 KB
;;; rails-rake.el --- emacs-rails integraions with rake tasks.
;; Copyright (C) 2006 Dmitry Galinsky <dima dot exe at gmail dot com>
;; Authors: Dmitry Galinsky <dima dot exe at gmail dot com>,
;; Peter Rezikov <crazypit13 at gmail dot com>
;; Keywords: ruby rails languages oop
;; $URL: svn+ssh://rubyforge/var/svn/emacs-rails/trunk/rails-spec.el $
;; $Id: rails-spec.el 117 2007-03-25 23:37:37Z 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
;; 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.
(defvar rails-spec:all-files "./spec"
"All spec files/directories in project")
(defvar rails-spec:last-files rails-spec:all-files
"Last files that run with spec. In this variable memorized each spec coommand.")
(defvar rails-spec:runner "./script/spec"
"Command, that run specs.")
(defvar rails-spec:runner-options ""
"Options to spec command.")
(defun rails-spec:run-files (files)
"Run spec for files"
(interactive "Mspec files: ")
(setf rails-spec:last-files files)
(let ((default-process-coding-system '(utf-8 . utf-8)))
(concat rails-spec:runner " "
rails-spec:runner-options " "
(defun rails-spec:run-this-file ()
"Run spec for current file"
(rails-spec:run-files (buffer-file-name (current-buffer))))
(defun rails-spec:run-all ()
"Run spec for all files in project (rails-spec:all-files variable)"
(rails-spec:run-files rails-spec:all-files))
(defun rails-spec:run-last ()
"Run last runned spec command"
(rails-spec:run-files rails-spec:last-files))
(defun rails-spec:run-this-spec ()
"Run spec where the point is"
(let ((default-process-coding-system '(utf-8 . utf-8)))
(concat rails-spec:runner " "
rails-spec:runner-options (concat " --line " (substring (what-line) 5) " ")
(buffer-file-name (current-buffer))))))
(provide 'rails-spec)