コードのPrettify

kfly8 · kfly8 · commit 506060943b8c · 2020-01-27T09:41:02.000+09:00
diff --git a/lib/PerlUsersJP/Builder.pm b/lib/PerlUsersJP/Builder.pm
@@ -284,6 +284,8 @@ sub format_text {
         return Text::Markdown::markdown($text);
     }
     elsif ($format eq 'hatena') {
+        no warnings qw(once);
+        local $Text::Xatena::Node::SuperPre::SUPERPRE_CLASS_NAME = 'code prettyprint';
         state $xatena = Text::Xatena->new;
         my $inline    = Text::Xatena::Inline->new;
         my $html = $xatena->format( $text, inline => $inline );

Original file line number	Diff line number	Diff line change
`@@ -284,6 +284,8 @@ sub format_text {`
`284`	`284`	`return Text::Markdown::markdown($text);`
`285`	`285`	`}`
`286`	`286`	`elsif ($format eq 'hatena') {`
	`287`	`+ no warnings qw(once);`
	`288`	`+ local $Text::Xatena::Node::SuperPre::SUPERPRE_CLASS_NAME = 'code prettyprint';`
`287`	`289`	`state $xatena = Text::Xatena->new;`
`288`	`290`	`my $inline = Text::Xatena::Inline->new;`
`289`	`291`	`my $html = $xatena->format( $text, inline => $inline );`