とある平文テキストのhtmlへの変換処理を改良した

とある平文テキストのhtmlへの変換処理を emacs で行ってみた - blechmusik2の日記の続きである。

／のあとに <br />を挿入するようにした。

(defun make-table-for-info-of-editorials ()
  ;; make-table-for-info-of-editorials
  (interactive)
  (labels ((make-link (link text)
		      (concat
		       "<a href=\""
		       "/resources/hirayama/editorials/"
		       link
		       "\">"
		       text
		       "</a>")
		      ))
    (save-excursion
      (save-restriction
	(dolist (x `(
		     ;; 明治Y年/YYYY の右側のタブを取り除く
		     ("\t\\{5,\\}" "")
		     ("\t" "</td><td>")

		     ;; /の直後で改行する
		     ("\\(／\\)" "\\1<br />")

		     ;; 各行を <tr></tr> で囲む
		     ("^　</td>\\(.+\\)$"
		      "<tr>\\1</td></tr>")

		     ;; 各年度の項目の見出しを設定する
		     ("<td>\\(和暦\\|西暦\\|月\\|日\\)</td>"
		      "<th>\\1</th>")
		     ("<td>\\(時事・社説・漫言\\|紙面記名\\|全集\\)</td>"
		      "<th>\\1</th>")
		     ("<td>\\(推定起草者\\|推定カテゴリー\\|備考\\)</td>"
		      "<th>\\1</th>")

		     ;; <table> を h3 の前後に追記する
		     ("^\\([^<].+\\)$"
		      ,(concat "</table>"
			       "\n\n"
			       "<h3>\\1</h3>"
			       "\n\n"
			       "<table>"))

		     ;; pdf へのリンクを生成する
		     ("\\(朝鮮国の変乱\\)"
		      ,(make-link "18820309.pdf" "\\1"))
		     ))
	  (goto-char (point-min))
	  (while (re-search-forward (car x) nil t)
	    (replace-match (cadr x))))

	;; バッファのある一行の文字列を取得する - プログラムとかののblog
	;; http://d.hatena.ne.jp/pogin/20120614/1339672095
	(goto-char (point-min))
	(forward-line 1)
	(let ((end-tag-of-table-at-first-line
	       (buffer-substring (point-min) (point))))
	  (delete-region (point-min) (point))
	  (goto-char (point-max))
	  (newline)
	  (insert end-tag-of-table-at-first-line))
	))))