[ruby-list:33185] rd-mode: rd-intelligent-newline

　白井といいます。

　yahtml.el というHTML編集支援用のemacs-lispがあるのですが、これには
yahtml-intelligent-newline という機能があって、<ol>〜</ol>などのリスト要素
内で M-RET (Alt+Enter)を押して改行すると自動的に行頭に <li> を付けてくれま
す。

　rd-mode にも ListItem の intelligent-newline が欲しくて、
rd-intelligent-newline を作ってみました。カーソルが ListItem 上にある場合
、M-RET で次行を補間してくれます。

;--------------------------------
(require 'rd-mode)

(defun rd-intelligent-newline ()
  (interactive)
  (save-excursion
    (beginning-of-line)
    (setq linenum (count-lines (point-min) (point)))
    (setq linenum (1+ linenum))
    (setq matched
     (re-search-forward "^[ \t]*\\(\\*\\|([0-9])\\)[ \t]*" nil t)
     )
    )

  (if matched
      (if (eq linenum (count-lines (point-min) matched))
	  (progn
	    (newline)
	    (insert-string (match-string 0))
	    )	  
	)
    )
)

(define-key rd-mode-map "\M-\C-m" 'rd-intelligent-newline)
;--------------------------------

　emacs-lisp を書くのは初めてです。もし、問題がある箇所があれば教えて下さ
い。

-- 
[e-mail]

Shirai,Kaoru
  PlusOne Co.,Ltd