summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--org-conf.el12
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)