07/05/10 00:19:50
>>197
はいよー
(defun ruby-string-expand-expression ()
"Rubyの文字列中にカーソルがあれば#{}を挿入する。リージョンがあればそこを#{}で括る"
(interactive)
(let ((parens (if (eq 'font-lock-string-face (get-char-property (point) 'face))
'("#{" "}")
'("¥"" "¥""))))
(if mark-active
(progn
(if (> (point) (mark))
(exchange-point-and-mark))
(insert (car parens))
(exchange-point-and-mark)
(insert (cadr parens)))
(progn (insert (concat (car parens) (cadr parens)))
(backward-char)))))