Allow Vim language specification for code block beginning

* lib/Locale/Po4a/VimHelp.pm: Added support for an optional Vim language
specification (">vim" followed by a line end) for the beginning of code
blocks, in addition to the existing ">".
* t/fmt/vimhelp/basic.norm:, t/fmt/vimhelp/basic.po, t/fmt/vimhelp/basic.pot,
t/fmt/vimhelp/basic.trans, t/fmt/vimhelp/basic.txt: Add a test case.

Author: gemmaro

lib/Locale/Po4a/VimHelp.pm

@@ -141,7 +141,7 @@ sub skip_tags {
 sub is_tags {
     my $line = shift;
 
-    $line =~ / \A \s* [*] [^*]+ [*] (?: \s+ [*] [^*]+ [*] )* (\s+ [>])? \Z /xms or return;
+    $line =~ / \A \s* [*] [^*]+ [*] (?: \s+ [*] [^*]+ [*] )* (\s+ [>] (vim)?)? \Z /xms or return;
     my $codeblock = $1;
 
     return { codeblock => $codeblock };
@@ -174,7 +174,7 @@ sub translate_codeblock_with_start_line {
 }
 
 sub is_codeblock_start_line {
-    return shift =~ / \A [>] \Z /xms;
+    return shift =~ / \A [>] (vim)? \Z /xms;
 }
 
 sub translate_paragraph {
@@ -221,7 +221,7 @@ sub translate_paragraph {
 sub parse_paragraph_line {
     my $line = shift;
 
-    $line =~ / \A (.*?) (\s+ [>])? \Z /xms or die "unreachable";
+    $line =~ / \A (.*?) (\s+ [>] (vim)?)? \Z /xms or die "unreachable";
     my $content   = $1;
     my $codeblock = $2;
 

t/fmt/vimhelp/basic.norm

@@ -20,3 +20,7 @@ basic15-90123456789012345678901234567890123456789012345678901234567890123456789
 
 basic17-901234567890123456789012345678901234567890123456789012345678901234567あ
 ---------1---------2---------3---------4---------5---------6---------7---------
+
+basic18-1 >vim
+	basic18-2
+<

t/fmt/vimhelp/basic.po

@@ -85,3 +85,15 @@ msgid ""
 msgstr ""
 "BASIC17-901234567890123456789012345678901234567890123456789012345678901234567あ\n"
 "---------1---------2---------3---------4---------5---------6---------7---------"
+
+#. type: paragraph
+#: basic.txt:24
+#, no-wrap
+msgid "basic18-1"
+msgstr "BASIC18-1"
+
+#. type: codeblock
+#: basic.txt:25
+#, no-wrap
+msgid "basic18-2"
+msgstr "BASIC18-2"

t/fmt/vimhelp/basic.pot

@@ -77,3 +77,15 @@ msgid ""
 "basic17-901234567890123456789012345678901234567890123456789012345678901234567あ\n"
 "---------1---------2---------3---------4---------5---------6---------7---------"
 msgstr ""
+
+#. type: paragraph
+#: basic.txt:24
+#, no-wrap
+msgid "basic18-1"
+msgstr ""
+
+#. type: codeblock
+#: basic.txt:25
+#, no-wrap
+msgid "basic18-2"
+msgstr ""

t/fmt/vimhelp/basic.trans

@@ -20,3 +20,7 @@ BASIC15-90123456789012345678901234567890123456789012345678901234567890123456789
 
 BASIC17-901234567890123456789012345678901234567890123456789012345678901234567あ
 ---------1---------2---------3---------4---------5---------6---------7---------
+
+BASIC18-1 >vim
+	BASIC18-2
+<

t/fmt/vimhelp/basic.txt

@@ -20,3 +20,7 @@ basic15-90123456789012345678901234567890123456789012345678901234567890123456789
 
 basic17-901234567890123456789012345678901234567890123456789012345678901234567あ
 ---------1---------2---------3---------4---------5---------6---------7---------
+
+basic18-1 >vim
+	basic18-2
+<