process Blog tag text as Markdown

It's much nicer to be able to introduce a tag with some rich Markdown or
HTML. This also fixes the spurious `<p>` tag if we happened to use
Markdown in our tag text.

Fixes #397

share/theme/bootstrap/blog/index.html.ep

@@ -5,7 +5,7 @@
         <main>
 
             % if ( my $tag_text = $self->data->{ tag_text } ) {
-            <p><%= $tag_text %></p>
+            <%= markdown $tag_text %>
             % }
 
             % for my $page ( @$pages ) {

share/theme/default/blog/index.html.ep

@@ -5,7 +5,7 @@
         <main>
 
             % if ( my $tag_text = $self->data->{ tag_text } ) {
-            <p><%= $tag_text %></p>
+            <%= markdown $tag_text %>
             % }
 
             % for my $page ( @$pages ) {

t/theme/check.t

@@ -43,6 +43,13 @@ my @documents = (
 my $blog = Statocles::App::Blog->new(
     url_root => '/blog',
     store => '.',
+    tag_text => {
+        foo => <<ENDMARKDOWN,
+# Foo!
+
+Bar, baz, and fuzz!
+ENDMARKDOWN
+    },
 );
 
 my $site = Statocles::Site->new(
@@ -80,6 +87,9 @@ $page{ list } = Statocles::Page::List->new(
     pages => [ $page{ document } ],
     next => 'page-0.html',
     prev => 'page-1.html',
+    data => {
+        tag_text => $blog->tag_text->{ foo },
+    },
 );
 
 $page{ feed } = Statocles::Page::List->new(
@@ -220,6 +230,20 @@ my %content_tests = (
         };
 
     },
+
+    'blog/index.html.ep' => sub {
+        my ( $content ) = @_;
+        my $dom = Mojo::DOM->new( $content );
+
+        subtest 'tag text exists and is processed as Markdown' => sub {
+            if ( ok my $h1 = $dom->at( 'main > h1' ), 'tag text h1 exists' ) {
+                is $h1->text, 'Foo!', 'h1 text is correct';
+            }
+            if ( ok my $p = $dom->at( 'main > p' ), 'tag text p exists' ) {
+                is $p->text, 'Bar, baz, and fuzz!', 'p text is correct';
+            }
+        };
+    },
 );