回答:
これを行う最も直接的な方法は、
M-%
(query-replace
)を押すC-q C-j RET </li> C-q C-j <li> RET
(C-q C-j
引用符で囲まれた改行文字を挿入)!
とすべての出現箇所を置き換えます次のようなものの使用も検討してください。
(defun wrap-html-tag (tagName)
"Add a tag to beginning and ending of current word or text selection."
(interactive "sEnter tag name: ")
(let (p1 p2 inputText)
(if (use-region-p)
(progn
(setq p1 (region-beginning) )
(setq p2 (region-end) )
)
(let ((bds (bounds-of-thing-at-point 'symbol)))
(setq p1 (car bds) )
(setq p2 (cdr bds) ) ) )
(goto-char p2)
(insert "</" tagName ">")
(goto-char p1)
(insert "<" tagName ">")
))
フル機能のソリューションについては、テキストを組織モードのリストに変換し、HTMLにエクスポートします。行の前に「*」、アクティブorg-mode
、実行を付けorg-html-export-to-html
ます。
org-mode
からHTMLにエクスポートします)、それで問題ありませんが、「迅速かつ汚い」ことを求めて人々を叱るのは理に適っていないと思いますHTML生成。