Lines Matching defs:ruby
3 ;; ruby-electric.el --- electric editing commands for ruby files
9 ;; Frederick Ros at http://rubygarden.org/ruby?EmacsExtensions.
19 ;; 0) copy ruby-electric.el into directory where emacs can find it.
24 ;; (require 'ruby-electric)
28 ;; 2) toggle Ruby Electric Mode on/off with ruby-electric-mode.
47 ;; 2005/Mar/06: now stored inside ruby CVS; customize pages now have
48 ;; ruby as parent; cosmetic fixes.
51 (require 'ruby-mode)
53 (defgroup ruby-electric nil
54 "Minor mode providing electric editing commands for ruby files"
55 :group 'ruby)
57 (defconst ruby-electric-expandable-do-re
60 (defconst ruby-electric-expandable-bar
63 (defvar ruby-electric-matching-delimeter-alist
70 (defcustom ruby-electric-simple-keywords-re
74 :type 'regexp :group 'ruby-electric)
76 (defcustom ruby-electric-expand-delimiters-list '(all)
88 :group 'ruby-electric)
90 (defcustom ruby-electric-newline-before-closing-bracket nil
93 :type 'boolean :group 'ruby-electric)
95 (define-minor-mode ruby-electric-mode
112 ruby-mode-map
113 (ruby-electric-setup-keymap))
115 (defun ruby-electric-setup-keymap()
116 (define-key ruby-mode-map " " 'ruby-electric-space)
117 (define-key ruby-mode-map "{" 'ruby-electric-curlies)
118 (define-key ruby-mode-map "(" 'ruby-electric-matching-char)
119 (define-key ruby-mode-map "[" 'ruby-electric-matching-char)
120 (define-key ruby-mode-map "\"" 'ruby-electric-matching-char)
121 (define-key ruby-mode-map "\'" 'ruby-electric-matching-char)
122 (define-key ruby-mode-map "|" 'ruby-electric-bar))
124 (defun ruby-electric-space (arg)
127 (if (ruby-electric-space-can-be-expanded-p)
129 (ruby-indent-line t)
131 (ruby-insert-end))))
133 (defun ruby-electric-code-at-point-p()
134 (and ruby-electric-mode
139 (defun ruby-electric-string-at-point-p()
140 (and ruby-electric-mode
143 (defun ruby-electric-is-last-command-char-expandable-punct-p()
144 (or (memq 'all ruby-electric-expand-delimiters-list)
145 (memq last-command-event ruby-electric-expand-delimiters-list)))
147 (defun ruby-electric-space-can-be-expanded-p()
148 (if (ruby-electric-code-at-point-p)
149 (let* ((ruby-electric-keywords-re
150 (concat ruby-electric-simple-keywords-re "\\s-$"))
151 (ruby-electric-single-keyword-in-line-re
152 (concat "\\s-*" ruby-electric-keywords-re)))
155 (or (looking-at ruby-electric-expandable-do-re)
156 (and (looking-at ruby-electric-keywords-re)
160 (looking-at ruby-electric-single-keyword-in-line-re))))))))
163 (defun ruby-electric-curlies(arg)
166 (if (ruby-electric-is-last-command-char-expandable-punct-p)
167 (cond ((ruby-electric-code-at-point-p)
170 (if ruby-electric-newline-before-closing-bracket
174 (ruby-indent-line t))
176 ((ruby-electric-string-at-point-p)
185 (defun ruby-electric-matching-char(arg)
188 (and (ruby-electric-is-last-command-char-expandable-punct-p)
189 (ruby-electric-code-at-point-p)
192 ruby-electric-matching-delimeter-alist))))))
194 (defun ruby-electric-bar(arg)
197 (and (ruby-electric-is-last-command-char-expandable-punct-p)
198 (ruby-electric-code-at-point-p)
199 (and (save-excursion (re-search-backward ruby-electric-expandable-bar nil t))
205 (provide 'ruby-electric)