view release on metacpan or  search on metacpan

sketch/hatena_compatible.pl  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dumper;
sub p ($) { warn Dumper shift }

use Perl6::Say;

use lib glob 'modules/*/lib';
use lib 'lib';


use Text::Xatena;


my $thx = Text::Xatena->new;
no warnings "once", "redefine";
local $Text::Xatena::Node::Section::BEGINNING = "";
local $Text::Xatena::Node::Section::ENDOFNODE = "";
local *Text::Xatena::Node::as_html_paragraph = sub {
	my ($self, $text, %opts) = @_;
	$text =~ s{^\n}{}g;
	if ($opts{stopp}) {
		$text;
	} else {
		"<p>" . join("</p>\n<p><br /></p>\n<p>", map { join("</p>\n<p>", split /\n+/) } split(/\n\n\n/, $text)) . "</p>\n";
	}
};

say $thx->format(q{
* foo
aaa
bbb


ccc

** baz
bbb
});