From 499d4a4dffa7971d2feaa64bd5e8c01e8d8ceeac Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?tr=C3=A9meur?= Date: Sat, 14 May 2022 21:16:29 +0100 Subject: [PATCH] Get rid of html head --- custom/dwpost.el | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/custom/dwpost.el b/custom/dwpost.el index a59c5f8..fb67b69 100644 --- a/custom/dwpost.el +++ b/custom/dwpost.el @@ -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 "\n")) + (delete-region (point-min) delpoint) + (while (re-search-forward "<\\/html>" nil t) + (replace-match "")) (write-file newname))) (defun dwdraft ()