From 1454300413c112dc83751faafd015f172725dd69 Mon Sep 17 00:00:00 2001 From: laserchicken Date: Wed, 22 Jan 2014 11:27:30 +0100 Subject: [PATCH] added excerpts correction (convert character entities back to regular text html comments for future processing) --- org-octopress.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/org-octopress.el b/org-octopress.el index d489d8e..9791a09 100644 --- a/org-octopress.el +++ b/org-octopress.el @@ -1928,6 +1928,10 @@ PUB-DIR is set, use this as the publishing directory." ;; Remove empty lines at the beginning of the file. (goto-char (point-min)) (when (looking-at "\\s-+\n") (replace-match "")) + ;; correct excerpts + (goto-char (point-min)) + (while (re-search-forward "<!–\\s-*more\\s-*–>" nil t) + (replace-match "")) ;; Remove display properties (remove-text-properties (point-min) (point-max) '(display t)) ;; Run the hook