dd description for (my/html-paragraphify-buffer).
This commit is contained in:
parent
6a5981d19a
commit
230aef77c2
|
@ -28,9 +28,10 @@
|
||||||
(message "No active region")))
|
(message "No active region")))
|
||||||
|
|
||||||
(defun my/html-paragraphify-buffer ()
|
(defun my/html-paragraphify-buffer ()
|
||||||
|
"Wrap every line not beginning with < or a newline in <p> tags."
|
||||||
(interactive)
|
(interactive)
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(while (re-search-forward "^\\([^<$
|
(while (re-search-forward "^\\([^<
|
||||||
].+\\)$" nil t)
|
].+\\)$" nil t)
|
||||||
(replace-match "<p>\\1</p>"))))
|
(replace-match "<p>\\1</p>"))))
|
||||||
:mode (("\\.[ps]?html?$" . web-mode)
|
:mode (("\\.[ps]?html?$" . web-mode)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user