モノルビとグループルビの使い分けに対応した

辟易(へきえき)のような文字単位でルビをふるモノルビと、欠伸(あくび)のような熟語単位でルビをふるグループルビの使い分けに対応しました。従来は一律グループルビにし、モノルビにすべきものは手動で変換していました。
naoya · Oct 23, 2015 · 920f10f · 920f10f
1 parent c38efd3
commit 920f10f
Show file tree

Hide file tree

Showing 3 changed files with 25 additions and 7 deletions.
diff --git a/lib/Text/Md2Inao/Builder/InDesign.pm b/lib/Text/Md2Inao/Builder/InDesign.pm
@@ -244,7 +244,12 @@ case span => sub {
     if ($h->attr('class') eq 'red') {
         return sprintf "<CharStyle:赤字>%s<CharStyle:>", $c->parse_element($h);
     }
-    elsif ($h->attr('class') eq 'ruby') {
+    elsif ($h->attr('class') eq 'monoruby') {
+        my $ruby = $h->as_trimmed_text;
+        $ruby =~ s!(.+)\((.+)\)!<cr:1><crstr:$2><cmojir:1>$1<cr:><crstr:><cmojir:>!;
+        return $ruby;
+    }
+    elsif ($h->attr('class') eq 'groupruby') {
         my $ruby = $h->as_trimmed_text;
         $ruby =~ s!(.+)\((.+)\)!<cr:1><crstr:$2><cmojir:0>$1<cr:><crstr:><cmojir:>!;
         return $ruby;

diff --git a/t/30_indesign_basic_syntax.t b/t/30_indesign_basic_syntax.t
@@ -90,11 +90,17 @@ _a-zA-Z0-9!"#$%&'()-=^@`[]{};+:*<>,./?_
 --- expected
 <ParaStyle:本文>これは<CharStyle:赤字>赤文字<CharStyle:>です
 
-=== ruby
+=== monoruby
 --- in md2inao
-ルビつきの語<span class="ruby">外村(ほかむら)</span>です
+ルビつきの語<span class='monoruby'>辟易(へき えき)</span>です
 --- expected
-<ParaStyle:本文>ルビつきの語<cr:1><crstr:ほかむら><cmojir:0>外村<cr:><crstr:><cmojir:>です
+<ParaStyle:本文>ルビつきの語<cr:1><crstr:へき えき><cmojir:1>辟易<cr:><crstr:><cmojir:>です
+
+=== groupruby
+--- in md2inao
+ルビつきの語<span class='groupruby'>欠伸(あくび)</span>です
+--- expected
+<ParaStyle:本文>ルビつきの語<cr:1><crstr:あくび><cmojir:0>欠伸<cr:><crstr:><cmojir:>です
 
 === blockquote
 --- in md2inao

diff --git a/t/99_rt_ruby_in_footnote.t b/t/99_rt_ruby_in_footnote.t
@@ -6,9 +6,16 @@ plan tests => 1 * blocks;
 run_is in => 'expected';
 
 __END__
-===
+=== monoruby
 --- in md2id
-○○います(注:あいう<span class='ruby'>CRIME(クライム)</span>えお)。
+○○います(注:あいう<span class='monoruby'>辟易(へき えき)</span>えお)。
 --- expected
 <SJIS-MAC>
-<ParaStyle:本文>○○います<cstyle:上付き><fnStart:><pstyle:注釈>あいう<cr:1><crstr:クライム><cmojir:0>CRIME<cr:><crstr:><cmojir:>えお<fnEnd:><cstyle:>。
+<ParaStyle:本文>○○います<cstyle:上付き><fnStart:><pstyle:注釈>あいう<cr:1><crstr:へき えき><cmojir:1>辟易<cr:><crstr:><cmojir:>えお<fnEnd:><cstyle:>。
+
+=== groupruby
+--- in md2id
+○○います(注:あいう<span class='groupruby'>欠伸(あくび)</span>えお)。
+--- expected
+<SJIS-MAC>
+<ParaStyle:本文>○○います<cstyle:上付き><fnStart:><pstyle:注釈>あいう<cr:1><crstr:あくび><cmojir:0>欠伸<cr:><crstr:><cmojir:>えお<fnEnd:><cstyle:>。