FENCEDCODEを有効にする

perldoc-jp · May 15, 2024 · 8a76fd3 · 8a76fd3
1 parent 558d5b6
commit 8a76fd3
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/lib/PJP/Util.pm b/lib/PJP/Util.pm
@@ -22,7 +22,12 @@ sub slurp {
 sub markdown_to_html {
     my ($markdown) = @_;
 
-    my $html = Text::Markdown::Discount::markdown($markdown);
+    state $flag = Text::Markdown::Discount::MKD_NOHEADER
+                | Text::Markdown::Discount::MKD_NOPANTS
+                | 0x02000000 # MKD_FENCEDCODE
+                ;
+
+    my $html = Text::Markdown::Discount::markdown($markdown, $flag);
 
     # perldoc.jp 用の加工
     $html =~ s{^.*<(?:body)[^>]*>}{}si;