diff options
| -rw-r--r-- | org-conf.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/org-conf.el b/org-conf.el index c7e4d42..a66a4a0 100644 --- a/org-conf.el +++ b/org-conf.el @@ -863,6 +863,10 @@ The feeds are generated by the function `durand-org-generate-atom-feed'." (with-temp-buffer (insert-file-contents index-file) (goto-char (point-min)) + (cond + ((search-forward "<style>" nil t) + (replace-match "<style type=\"text/css\">"))) + (goto-char (point-min)) (search-forward "Latest updates") (goto-char (line-end-position)) (while (search-forward "<table" nil t) @@ -898,6 +902,10 @@ The feeds are generated by the function `durand-org-generate-atom-feed'." (with-temp-buffer (insert-file-contents publish-sitemap-file) (goto-char (point-min)) + (cond + ((search-forward "<style>" nil t) + (replace-match "<style type=\"text/css\">"))) + (goto-char (point-min)) (search-forward "</colgroup>" nil t) (let ((regexp (rx-to-string '(seq @@ -1040,6 +1048,10 @@ title." (insert-file-contents html-file-name) (goto-char (point-min)) (cond + ((search-forward "<style>" nil t) + (replace-match "<style type=\"text/css\">"))) + (goto-char (point-min)) + (cond ((search-forward "h1 class=\"title\"" nil t) ;; if it does not have a title, we do not add a time info. (search-forward "</h1>" nil) |