115 lines
No EOL
4.9 KiB
Text
115 lines
No EOL
4.9 KiB
Text
;;; rails-view-minor-mode.el --- minor mode for RubyOnRails views
|
|
|
|
;; Copyright (C) 2006 Dmitry Galinsky <dima dot exe at gmail dot com>
|
|
|
|
;; Authors: Dmitry Galinsky <dima dot exe at gmail dot com>
|
|
|
|
;; Keywords: ruby rails languages oop
|
|
;; $URL$
|
|
;; $Id$
|
|
|
|
;;; 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.
|
|
|
|
;;; Code:
|
|
|
|
(defun rails-view-minor-mode:create-partial-from-selection ()
|
|
"Create a partial from current buffer selection."
|
|
(interactive)
|
|
(if mark-active
|
|
(save-excursion
|
|
(let ((name (read-string "Partial name (without _ and extension)? "))
|
|
(content (buffer-substring-no-properties (region-beginning) (region-end)))
|
|
(modified (buffer-modified-p)))
|
|
(unless (string-not-empty name)
|
|
(progn
|
|
(message "Empty partial name") (return)))
|
|
(kill-region (region-beginning) (region-end))
|
|
(insert (concat "<%= render :partial => \"" name "\" %>"))
|
|
(mmm-parse-region (line-beginning-position) (line-end-position))
|
|
(insert "\n")
|
|
(split-window-vertically)
|
|
(other-window 1)
|
|
(find-file (concat "_" name ".rhtml"))
|
|
(goto-char (point-min))
|
|
(erase-buffer)
|
|
(insert content)
|
|
(save-buffer)
|
|
(fit-window-to-buffer)
|
|
(other-window -1)
|
|
(unless modified (save-buffer))
|
|
(message "type `C-x +` to balance windows")))))
|
|
|
|
(defun rails-view-minor-mode:create-helper-from-block (&optional helper-name)
|
|
"Create a helper function from current ERb block (<% .. %>)."
|
|
(interactive)
|
|
(let ((current-pos (point))
|
|
(file buffer-file-name)
|
|
begin-pos
|
|
end-pos)
|
|
(save-excursion
|
|
(setq begin-pos (search-backward "<%" nil t))
|
|
(setq end-pos (search-forward "%>" nil t)))
|
|
(if (and begin-pos
|
|
end-pos
|
|
(> current-pos begin-pos)
|
|
(< current-pos end-pos))
|
|
(let* ((helper-file (concat (rails-project:root) (rails-core:helper-file (rails-core:current-controller))))
|
|
(content (replace-regexp-in-string "\\(<%=?\\|-?%>\\)" ""
|
|
(buffer-substring-no-properties begin-pos end-pos)))
|
|
(helper-defination (if helper-name helper-name
|
|
(read-string "Type helper function defination (without `def` keyword): "))))
|
|
(if (file-exists-p helper-file)
|
|
(let ((modified (buffer-modified-p))
|
|
(helper-func-def (concat "def " helper-defination)))
|
|
(kill-region begin-pos end-pos)
|
|
(insert (concat "<%= " helper-defination " -%>" ))
|
|
(mmm-parse-region (line-beginning-position) (line-end-position))
|
|
(insert "\n")
|
|
(split-window-vertically)
|
|
(other-window 1)
|
|
(find-file helper-file)
|
|
(goto-char (point-min))
|
|
(search-forward-regexp "module +[a-zA-Z0-9:]+")
|
|
(end-of-line)
|
|
(newline)
|
|
(ruby-indent-command)
|
|
(save-excursion
|
|
(insert (concat helper-func-def "\n" content "\nend\n")))
|
|
(ruby-indent-exp)
|
|
(fit-window-to-buffer)
|
|
(save-buffer)
|
|
(other-window -1)
|
|
(unless modified (save-buffer))
|
|
(message "Type `C-x +` to balance windows"))
|
|
(message "helper not found")))
|
|
(message "block not found"))))
|
|
|
|
(define-minor-mode rails-view-minor-mode
|
|
"Minor mode for RubyOnRails views."
|
|
:lighter " View"
|
|
:keymap (rails-controller-layout:keymap :view)
|
|
(setq rails-primary-switch-func 'rails-controller-layout:toggle-action-view)
|
|
(setq rails-secondary-switch-func 'rails-controller-layout:menu)
|
|
(if (boundp 'mmm-mode-map)
|
|
(progn
|
|
(define-key mmm-mode-map (rails-key "p") 'rails-view-minor-mode:create-partial-from-selection)
|
|
(define-key mmm-mode-map (rails-key "b") 'rails-view-minor-mode:create-helper-from-block))
|
|
(progn
|
|
(local-set-key (rails-key "p") 'rails-view-minor-mode:create-partial-from-selection)
|
|
(local-set-key (rails-key "b") 'rails-view-minor-mode:create-helper-from-block))))
|
|
|
|
(provide 'rails-view-minor-mode) |