Replace '<' and '>' with "&lt;" and "&gt;" in code block

revealjs-codeblock/revealjs-codeblock.lua
revealjs-codeblock/expected.html

Author: code-in-cpp

revealjs-codeblock/expected.html

@@ -19,25 +19,25 @@ <h1 data-auto-animate="">Even Prettier Animations</h1>
   const [count, setCount] = useState(0);
 
   return (
-    <div>
-      <p>You clicked {count} times</p>
-      <button onClick={() => setCount(count + 1)}>
+    &lt;div&gt;
+      &lt;p&gt;You clicked {count} times&lt;/p&gt;
+      &lt;button onClick={() =&gt; setCount(count + 1)}&gt;
         Click me
-      </button>
-    </div>
+      &lt;/button&gt;
+    &lt;/div&gt;
   );
 }
 
 function SecondExample() {
   const [count, setCount] = useState(0);
 
   return (
-    <div>
-      <p>You clicked {count} times</p>
-      <button onClick={() => setCount(count + 1)}>
+    &lt;div&gt;
+      &lt;p&gt;You clicked {count} times&lt;/p&gt;
+      &lt;button onClick={() =&gt; setCount(count + 1)}&gt;
         Click me
-      </button>
-    </div>
+      &lt;/button&gt;
+    &lt;/div&gt;
   );
 }</code></pre>
 </section>

revealjs-codeblock/revealjs-codeblock.lua

@@ -66,7 +66,7 @@ function CodeBlock(block)
     local html = string.format('<pre %s><code %s>%s</code></pre>',
                                 table.concat(pre_tag_attributes, ' '),
                                 table.concat(code_tag_attributes, ' '),
-                                block.text)
+                                block.text:gsub("<", "&lt;"):gsub(">", "&gt;"))
     return pandoc.RawBlock('html', html)
   end
 end