about summary refs log tree commit diff
path: root/web
diff options
context:
space:
mode:
Diffstat (limited to 'web')
-rw-r--r--web/panettone/src/panettone.lisp3
-rw-r--r--web/panettone/test/inline-markdown_test.lisp4
2 files changed, 4 insertions, 3 deletions
diff --git a/web/panettone/src/panettone.lisp b/web/panettone/src/panettone.lisp
index b16171242dde..4c9c7dafee9b 100644
--- a/web/panettone/src/panettone.lisp
+++ b/web/panettone/src/panettone.lisp
@@ -56,7 +56,8 @@
 
 (defvar *title* "Panettone")
 
-(setf (who:html-mode) :html5)
+(eval-when (:compile-toplevel :load-toplevel)
+  (setf (who:html-mode) :html5))
 
 (defun render/nav ()
   (who:with-html-output (*standard-output*)
diff --git a/web/panettone/test/inline-markdown_test.lisp b/web/panettone/test/inline-markdown_test.lisp
index a32464456d48..bb907504368b 100644
--- a/web/panettone/test/inline-markdown_test.lisp
+++ b/web/panettone/test/inline-markdown_test.lisp
@@ -21,7 +21,7 @@
 (inline-markdown-unit-test
   inline-markdown-html-escaping-test
   "<tag>âÀü"
-  "&lt;tag&gt;&#246;&#228;&#252;")
+  "&lt;tag&gt;&#xF6;&#xE4;&#xFC;")
 
 (inline-markdown-unit-test
   inline-markdown-nesting-test
@@ -51,4 +51,4 @@
 (inline-markdown-unit-test
   inline-markdown-unicode-safe
   "Does Unicode πŸ‘¨β€πŸ‘¨β€πŸ‘§β€πŸ‘¦ break \\πŸ‘©πŸΎβ€πŸ¦° tokenization?"
-  "Does Unicode &#128104;&#8205;&#128104;&#8205;&#128103;&#8205;&#128102; break \\&#128105;&#127998;&#8205;&#129456; tokenization?")
+  "Does Unicode &#x1F468;&#x200D;&#x1F468;&#x200D;&#x1F467;&#x200D;&#x1F466; break \\&#x1F469;&#x1F3FE;&#x200D;&#x1F9B0; tokenization?")