InDesign Builderで #62 に対応する

naoya · May 18, 2014 · 81fbada · 81fbada
1 parent 529643a
commit 81fbada
Showing 1 changed file with 7 additions and 5 deletions.
diff --git a/lib/Text/Md2Inao/Builder/InDesign.pm b/lib/Text/Md2Inao/Builder/InDesign.pm
@@ -195,11 +195,13 @@ case strong => sub {
 
 case em => sub {
     my ($c, $h) = @_;
-    my $ret;
-    $ret .= $c->use_special_italic ? '<CharStyle:イタリック（変形斜体）>' : '<CharStyle:イタリック（変形斜体）>';
-    $ret .= $c->parse_element($h);
-    $ret .= '<CharStyle:>';
-    return $ret;
+    my $s = $c->parse_element($h);
+    $s =~ s{( [^[:ascii:]]+ ) | ( [[:ascii:]]+ )}{
+        length($1)
+            ? "<CharStyle:イタリック（変形斜体）>$1<CharStyle:>"
+            : "<CharStyle:イタリック>$2<CharStyle:>";
+    }xmsge;
+    return $s;
 };
 
 case code => sub {