From e08204d423766c29f72e0e224f061ab30fc0340d Mon Sep 17 00:00:00 2001
From: JSDurand <mmemmew@gmail.com>
Date: Tue, 30 Aug 2022 01:16:14 +0800
Subject: org: my blogs are now XHTML 1.0 Strict!

* org-conf.el (durand-org-post-process,
  durand-org-publish-html-advice): After replacing each "<style>" with
  "<style type=\"text/css\">" I can finally say that my blogs all
  conform to XHTML 1.0 Strict now, as can be seen by following the
  "validate" buttons on the blogs.

  Quite happy.  :D
---
 org-conf.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'org-conf.el')

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
@@ -1039,6 +1047,10 @@ title."
   (with-temp-buffer
     (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.
-- 
cgit v1.2.3-18-g5258