Answers:
最直接的方法是
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。给行加上'*',active org-mode
和run 前缀org-html-export-to-html
。
org-mode
然后激活,然后导出为HTML),那很好,但是我认为责怪人们要“快而脏”是没有道理的HTML生成。