tre/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Get rid of html head

Browse source
This commit is contained in:
trémeur 2022-05-14 21:16:29 +01:00
parent bd7155ba59
commit 499d4a4dff
1 changed files with 5 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

11
custom/dwpost.el
View file

@ -22,12 +22,11 @@
(setq newname (concat (file-name-base) ".html"))
(find-file-noselect newname)
(with-current-buffer newname
(goto-line 1)
(delete-region (line-beginning-position) (line-end-position))
(goto-line 2)
(delete-region (line-beginning-position) (line-end-position))
(goto-line 3)
(delete-region (line-beginning-position) (line-end-position))
(goto-char (point-min))
(setq delpoint (search-forward "</head>\n"))
(delete-region (point-min) delpoint)
(while (re-search-forward "<\\/html>" nil t)
(replace-match ""))
(write-file newname)))
(defun dwdraft ()