Commit 4e84d13c authored by Antoine Martin's avatar Antoine Martin
Browse files

Insert string as is prevents regex syntax problems

parent 502b2fa3
...@@ -79,12 +79,8 @@ ...@@ -79,12 +79,8 @@
(read-write-file (html-pathname html-text stream) (read-write-file (html-pathname html-text stream)
(write-sequence (write-sequence
(regex-replace (regex-replace
"\\<h2 class=\\\"chapter\\\"\\>1 Introduction\\<\\/h2\\>" "\\<h2 class=\\\"chapter\\\"\\>1 Introduction\\<\\/h2\\>\\n"
html-text html-text
(format nil (list :match
"<h2 class=\"chapter\">1 Introduction</h2>
(file-to-string readme-pathname))) (file-to-string readme-pathname)))
stream))) stream)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment