From 8a76fd3bdb391434a5fb423ed31f15c60af71130 Mon Sep 17 00:00:00 2001
From: kobaken <kentafly88@gmail.com>
Date: Thu, 16 May 2024 08:40:56 +0900
Subject: [PATCH] =?UTF-8?q?FENCEDCODE=E3=82=92=E6=9C=89=E5=8A=B9=E3=81=AB?=
 =?UTF-8?q?=E3=81=99=E3=82=8B?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lib/PJP/Util.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lib/PJP/Util.pm b/lib/PJP/Util.pm
index 1c90310..8bc0467 100644
--- 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;