未分類 | 電書魂

‘未分類’ カテゴリーのアーカイブ

PandocのICML出力にでんでんマークダウン記法のルビを対応させる

2017/11/14

　Pandocというプロジェクトがあります（日本語解説はこちらを参照）。これはMarkDown記法などで書かれたドキュメントをHTMLやWord文書、PDFなどに変換して出力できるといったようなものですが、出力対応形式のひとつにICMLが入っています。これはAdobe InCopyの保存形式で、InDesignに配置して流し込むことができます（Pandocは一応EPUBにも変換できるようなのですが、まだEPUB2.0のようなのでまあ・・・）。
　なかなか興味深いのでちょっと調べてみたのですが、残念ながらルビには対応していません。まあMarkDown記法自体にルビの記法がないですし、ルビは（当たり前ですが）日本語版InDesignにしかない機能なので当然と言えば当然です。Pandocは国際プロジェクトなので仕方ないところでしょう。
　でもルビ使えたら便利そうだよねということで、でんでんマークダウンのルビタグ拡張記法に対応する置換処理をPerlで書いてみました。まあPandoc本体はHaskellで書かれているようなのですが、そんなもんは非専業プログラマとしては手が出ないので手を出しません。コードは以下。

#!/usr/bin/perl
use utf8;
use warnings;
use XML::LibXML;
use Encode qw/encode decode/;

#変換するICMLファイルのパスを取得
my $convertIcmlFilePath = $ARGV[0];
$convertIcmlFilePath = decode('UTF-8', $convertIcmlFilePath);

#パース実行
my $parser = XML::LibXML->new();
$parser->no_network(1);
my $dom = $parser->parse_file($convertIcmlFilePath);

######### DOM置換 #########
foreach my $paragraphStyleRange($dom->findnodes('//ParagraphStyleRange')){
  #既定の段落スタイルの値を保存
  my $appliedParagraphStyle = $paragraphStyleRange->findvalue('@AppliedParagraphStyle');
  #最終置き換え用ノード定義
  my $repleceParagraphStyleRangeNode = XML::LibXML::Element->new( "ParagraphStyleRange" );
  $repleceParagraphStyleRangeNode->setAttribute( "AppliedParagraphStyle", $appliedParagraphStyle );
  #子ノードをリストで取得
  my @paragraphStyleRangeChildNodes = $paragraphStyleRange->childNodes;
  #置換後の中身の配列を定義
  my @replacedParagraphStyleRangeChildNodes;
  #CharacterStyleRange処理用サブルーチンに処理を投げる
  foreach $paragraphStyleRangeChildNode (@paragraphStyleRangeChildNodes){
  my $type = $paragraphStyleRangeChildNode->nodeType;
    if ($type == 1){
      my $name = $paragraphStyleRangeChildNode->nodeName;
      #エレメントノードでCharacterStyleRangeノードだった場合サブルーチンに処理を投げて結果を得、順番に配列にPush
      if ($name eq "CharacterStyleRange"){
        my @replacedNodes = & replaceCharacterStyleRangeNodes($paragraphStyleRangeChildNode);
        foreach (@replacedNodes) {push(@replacedParagraphStyleRangeChildNodes,$_)};
      } else {
        #エレメントノードでCharacterStyleRangeノードでなかった場合はそのまま配列にPush
        push (@replacedParagraphStyleRangeChildNodes,$paragraphStyleRangeChildNode);
      }
    } else {
      #エレメントノードでなかった場合はそのまま配列にPush
      push (@replacedParagraphStyleRangeChildNodes,$paragraphStyleRangeChildNode);
    }
  }
  #新たに作った$paragraphStyleRangeノードに子ノード流し込み
  foreach(@replacedParagraphStyleRangeChildNodes){$repleceParagraphStyleRangeNode->appendChild( $_ )}
  #元の$paragraphStyleRangeノードと新しく作ったヤツの置換を実行
  $paragraphStyleRange->replaceNode($repleceParagraphStyleRangeNode);
}

######### 出力処理 #########
#ノードをシリアライズして文字列に
my $documents = $dom->findnodes('//Document');
my $serializedTxt = $$documents[0]->serialize;

#ヘッダ付加
my $mergedTxt = '<?xml version="1.0" encoding="UTF-8" standalone="yes"?>' . "\x0A" . '<?aid style="50" type="snippet" readerVersion="6.0" featureSet="513" product="8.0(370)" ?>' . "\x0A" . '<?aid SnippetType="InCopyInterchange"?>' . "\x0A" . $serializedTxt;

#後処理整形
$mergedTxt =~ s@</CharacterStyleRange><CharacterStyleRange@</CharacterStyleRange>\x0A<CharacterStyleRange@g;
$mergedTxt =~ s@\x0A@\x0D\x0A@g;

#出力実行
$mergedTxt = encode('UTF-8', $mergedTxt);
open(OUT,"> $convertIcmlFilePath");
print OUT $mergedTxt;
close (OUT);

exit;


######### CharacterStyleRange処理サブルーチン #########
sub replaceCharacterStyleRangeNodes {
  #引数の取得
  my $originalCharacterStyleRangeNode = $_[0];
  #既定の文字スタイルの値を保存
  my $appliedCharacterStyle = $originalCharacterStyleRangeNode->findvalue('@AppliedCharacterStyle');
  #子ノードをリストで取得
  my @characterStyleRangeChildNodes = $originalCharacterStyleRangeNode->childNodes;
  #置換後の中身の配列を定義
  my @replacedNodes;
  
  #Content処理用サブルーチンに処理を投げる
  foreach $characterStyleRangeChildNode(@characterStyleRangeChildNodes){
  my $type = $characterStyleRangeChildNode->nodeType;
    if ($type == 1){
      my $name = $characterStyleRangeChildNode->nodeName;
      #エレメントノードでContentノードだった場合中身をsplitしてルビ部分とそうじゃないやつを分けて、順番にCharacterStyleRangeノードでくるんで配列にPush
      if ($name eq "Content"){
        $contentValue = $characterStyleRangeChildNode->textContent;
        my @splitContentsArray = split(/({.*?})/, $contentValue);
        foreach $splitContent (@splitContentsArray){
          #ルビタグブロックだった場合の処理
          if ($splitContent =~ /^{([^\|]+?)\|(.+?)}$/){
            #親字のブロックとルビのブロックに分割して処理
            my $rbBlock = $1;
            my $rtBlock = $2;
            my $rbBlockLength = length($rbBlock);
            my @rtBlockArray = split(/\|/, $rtBlock);
            #親字ブロックの文字数がルビブロックの分割数と一致していたらモノルビとして処理
            if ($rbBlockLength == scalar(@rtBlockArray)){
              my $repleceCharacterStyleRangeNode = XML::LibXML::Element->new( "CharacterStyleRange" );
              $repleceCharacterStyleRangeNode->setAttribute( "AppliedCharacterStyle", $appliedCharacterStyle );
              $repleceCharacterStyleRangeNode->setAttribute( "RubyFlag", "1" );
              my $joinedMonoRubyString = join("　", @rtBlockArray);
              $repleceCharacterStyleRangeNode->setAttribute( "RubyString", $joinedMonoRubyString );
              my $newContentNode = XML::LibXML::Element->new( "Content" );
              $newContentNode->appendTextNode( $rbBlock );
              $repleceCharacterStyleRangeNode->appendTextNode( "\x0A" );
              $repleceCharacterStyleRangeNode->appendChild( $newContentNode );
              $repleceCharacterStyleRangeNode->appendTextNode( "\x0A" );
              push (@replacedNodes,$repleceCharacterStyleRangeNode);
            } else {
            #親字ブロックの文字数がルビブロックの分割数と一致しなければグループルビとして処理
              my $repleceCharacterStyleRangeNode = XML::LibXML::Element->new( "CharacterStyleRange" );
              $repleceCharacterStyleRangeNode->setAttribute( "AppliedCharacterStyle", $appliedCharacterStyle );
              $repleceCharacterStyleRangeNode->setAttribute( "RubyFlag", "1" );
              my $joinedGroupRubyString = join("", @rtBlockArray);
              $repleceCharacterStyleRangeNode->setAttribute( "RubyString", $joinedGroupRubyString );
              $repleceCharacterStyleRangeNode->setAttribute( "RubyType", "GroupRuby" );
              my $newContentNode = XML::LibXML::Element->new( "Content" );
              $newContentNode->appendTextNode( $rbBlock );
              $repleceCharacterStyleRangeNode->appendTextNode( "\x0A" );
              $repleceCharacterStyleRangeNode->appendChild( $newContentNode );
              $repleceCharacterStyleRangeNode->appendTextNode( "\x0A" );
              push (@replacedNodes,$repleceCharacterStyleRangeNode);
            }
          #ルビタグブロックでなかった場合の処理
          } else {
            my $repleceCharacterStyleRangeNode = XML::LibXML::Element->new( "CharacterStyleRange" );
            $repleceCharacterStyleRangeNode->setAttribute( "AppliedCharacterStyle", $appliedCharacterStyle );
            my $newContentNode = XML::LibXML::Element->new( "Content" );
            $newContentNode->appendTextNode( $splitContent );
            $repleceCharacterStyleRangeNode->appendTextNode( "\x0A" );
            $repleceCharacterStyleRangeNode->appendChild( $newContentNode );
            $repleceCharacterStyleRangeNode->appendTextNode( "\x0A" );
            push (@replacedNodes,$repleceCharacterStyleRangeNode);
          }
        }
      } else {
        #エレメントノードでContentノードでなかった場合はそのままCharacterStyleRangeノードでくるんで配列にPush
        my $repleceCharacterStyleRangeNode = XML::LibXML::Element->new( "CharacterStyleRange" );
        $repleceCharacterStyleRangeNode->setAttribute( "AppliedCharacterStyle", $appliedCharacterStyle );
        $repleceCharacterStyleRangeNode->appendTextNode( "\x0A" );
        $repleceCharacterStyleRangeNode->appendChild( $characterStyleRangeChildNode );
        $repleceCharacterStyleRangeNode->appendTextNode( "\x0A" );
        push (@replacedNodes,$characterStyleRangeChildNode);
      }
    } else {
      #エレメントノードでなかった場合はそのまま配列にPush
      push (@replacedNodes,$characterStyleRangeChildNode);
    }
  }
  return @replacedNodes;
}

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

#!/usr/bin/perl

use utf8;

use warnings;

use XML::LibXML;

use Encode qw/encode decode/;

#変換するICMLファイルのパスを取得

my $convertIcmlFilePath = $ARGV[0];

$convertIcmlFilePath = decode('UTF-8', $convertIcmlFilePath);

#パース実行

my $parser = XML::LibXML->new();

$parser->no_network(1);

my $dom = $parser->parse_file($convertIcmlFilePath);

######### DOM置換 #########

foreach my $paragraphStyleRange($dom->findnodes('//ParagraphStyleRange')){

#既定の段落スタイルの値を保存

my $appliedParagraphStyle = $paragraphStyleRange->findvalue('@AppliedParagraphStyle');

#最終置き換え用ノード定義

my $repleceParagraphStyleRangeNode = XML::LibXML::Element->new( "ParagraphStyleRange" );

$repleceParagraphStyleRangeNode->setAttribute( "AppliedParagraphStyle", $appliedParagraphStyle );

#子ノードをリストで取得

my @paragraphStyleRangeChildNodes = $paragraphStyleRange->childNodes;

#置換後の中身の配列を定義

my @replacedParagraphStyleRangeChildNodes;

#CharacterStyleRange処理用サブルーチンに処理を投げる

foreach $paragraphStyleRangeChildNode (@paragraphStyleRangeChildNodes){

my $type = $paragraphStyleRangeChildNode->nodeType;

if ($type == 1){

my $name = $paragraphStyleRangeChildNode->nodeName;

#エレメントノードでCharacterStyleRangeノードだった場合サブルーチンに処理を投げて結果を得、順番に配列にPush

if ($name eq "CharacterStyleRange"){

my @replacedNodes = & replaceCharacterStyleRangeNodes($paragraphStyleRangeChildNode);

foreach (@replacedNodes) {push(@replacedParagraphStyleRangeChildNodes,$_)};

} else {

#エレメントノードでCharacterStyleRangeノードでなかった場合はそのまま配列にPush

push (@replacedParagraphStyleRangeChildNodes,$paragraphStyleRangeChildNode);

}

} else {

#エレメントノードでなかった場合はそのまま配列にPush

push (@replacedParagraphStyleRangeChildNodes,$paragraphStyleRangeChildNode);

}

#新たに作った$paragraphStyleRangeノードに子ノード流し込み

foreach(@replacedParagraphStyleRangeChildNodes){$repleceParagraphStyleRangeNode->appendChild( $_ )}

#元の$paragraphStyleRangeノードと新しく作ったヤツの置換を実行

$paragraphStyleRange->replaceNode($repleceParagraphStyleRangeNode);

}

######### 出力処理 #########

#ノードをシリアライズして文字列に

my $documents = $dom->findnodes('//Document');

my $serializedTxt = $$documents[0]->serialize;

#ヘッダ付加

my $mergedTxt = '<?xml version="1.0" encoding="UTF-8" standalone="yes"?>' . "\x0A" . '<?aid style="50" type="snippet" readerVersion="6.0" featureSet="513" product="8.0(370)" ?>' . "\x0A" . '<?aid SnippetType="InCopyInterchange"?>' . "\x0A" . $serializedTxt;

#後処理整形

$mergedTxt =~ s@</CharacterStyleRange><CharacterStyleRange@</CharacterStyleRange>\x0A<CharacterStyleRange@g;

$mergedTxt =~ s@\x0A@\x0D\x0A@g;

#出力実行

$mergedTxt = encode('UTF-8', $mergedTxt);

open(OUT,"> $convertIcmlFilePath");

print OUT $mergedTxt;

close (OUT);

exit;

######### CharacterStyleRange処理サブルーチン #########

sub replaceCharacterStyleRangeNodes {

#引数の取得

my $originalCharacterStyleRangeNode = $_[0];

#既定の文字スタイルの値を保存

my $appliedCharacterStyle = $originalCharacterStyleRangeNode->findvalue('@AppliedCharacterStyle');

#子ノードをリストで取得

my @characterStyleRangeChildNodes = $originalCharacterStyleRangeNode->childNodes;

#置換後の中身の配列を定義

my @replacedNodes;

#Content処理用サブルーチンに処理を投げる

foreach $characterStyleRangeChildNode(@characterStyleRangeChildNodes){

my $type = $characterStyleRangeChildNode->nodeType;

if ($type == 1){

my $name = $characterStyleRangeChildNode->nodeName;

#エレメントノードでContentノードだった場合中身をsplitしてルビ部分とそうじゃないやつを分けて、順番にCharacterStyleRangeノードでくるんで配列にPush

if ($name eq "Content"){

$contentValue = $characterStyleRangeChildNode->textContent;

my @splitContentsArray = split(/({.*?})/, $contentValue);

foreach $splitContent (@splitContentsArray){

#ルビタグブロックだった場合の処理

if ($splitContent =~ /^{([^\|]+?)\|(.+?)}$/){

#親字のブロックとルビのブロックに分割して処理

my $rbBlock = $1;

my $rtBlock = $2;

my $rbBlockLength = length($rbBlock);

my @rtBlockArray = split(/\|/, $rtBlock);

#親字ブロックの文字数がルビブロックの分割数と一致していたらモノルビとして処理

if ($rbBlockLength == scalar(@rtBlockArray)){

my $repleceCharacterStyleRangeNode = XML::LibXML::Element->new( "CharacterStyleRange" );

$repleceCharacterStyleRangeNode->setAttribute( "AppliedCharacterStyle", $appliedCharacterStyle );

$repleceCharacterStyleRangeNode->setAttribute( "RubyFlag", "1" );

my $joinedMonoRubyString = join("　", @rtBlockArray);

$repleceCharacterStyleRangeNode->setAttribute( "RubyString", $joinedMonoRubyString );

my $newContentNode = XML::LibXML::Element->new( "Content" );

$newContentNode->appendTextNode( $rbBlock );

$repleceCharacterStyleRangeNode->appendTextNode( "\x0A" );

$repleceCharacterStyleRangeNode->appendChild( $newContentNode );

$repleceCharacterStyleRangeNode->appendTextNode( "\x0A" );

push (@replacedNodes,$repleceCharacterStyleRangeNode);

} else {

#親字ブロックの文字数がルビブロックの分割数と一致しなければグループルビとして処理

my $repleceCharacterStyleRangeNode = XML::LibXML::Element->new( "CharacterStyleRange" );

$repleceCharacterStyleRangeNode->setAttribute( "AppliedCharacterStyle", $appliedCharacterStyle );

$repleceCharacterStyleRangeNode->setAttribute( "RubyFlag", "1" );

my $joinedGroupRubyString = join("", @rtBlockArray);

$repleceCharacterStyleRangeNode->setAttribute( "RubyString", $joinedGroupRubyString );

$repleceCharacterStyleRangeNode->setAttribute( "RubyType", "GroupRuby" );

my $newContentNode = XML::LibXML::Element->new( "Content" );

$newContentNode->appendTextNode( $rbBlock );

$repleceCharacterStyleRangeNode->appendTextNode( "\x0A" );

$repleceCharacterStyleRangeNode->appendChild( $newContentNode );

$repleceCharacterStyleRangeNode->appendTextNode( "\x0A" );

push (@replacedNodes,$repleceCharacterStyleRangeNode);

}

#ルビタグブロックでなかった場合の処理

} else {

my $repleceCharacterStyleRangeNode = XML::LibXML::Element->new( "CharacterStyleRange" );

$repleceCharacterStyleRangeNode->setAttribute( "AppliedCharacterStyle", $appliedCharacterStyle );

my $newContentNode = XML::LibXML::Element->new( "Content" );

$newContentNode->appendTextNode( $splitContent );

$repleceCharacterStyleRangeNode->appendTextNode( "\x0A" );

$repleceCharacterStyleRangeNode->appendChild( $newContentNode );

$repleceCharacterStyleRangeNode->appendTextNode( "\x0A" );

push (@replacedNodes,$repleceCharacterStyleRangeNode);

}

} else {

#エレメントノードでContentノードでなかった場合はそのままCharacterStyleRangeノードでくるんで配列にPush

my $repleceCharacterStyleRangeNode = XML::LibXML::Element->new( "CharacterStyleRange" );

$repleceCharacterStyleRangeNode->setAttribute( "AppliedCharacterStyle", $appliedCharacterStyle );

$repleceCharacterStyleRangeNode->appendTextNode( "\x0A" );

$repleceCharacterStyleRangeNode->appendChild( $characterStyleRangeChildNode );

$repleceCharacterStyleRangeNode->appendTextNode( "\x0A" );

push (@replacedNodes,$characterStyleRangeChildNode);

}

} else {

#エレメントノードでなかった場合はそのまま配列にPush

push (@replacedNodes,$characterStyleRangeChildNode);

}

return @replacedNodes;

}

ターミナルで

perl このコードのファイルパス.pl 変換するPacDocの出力したICMLファイルのパス.icml

のような感じで動作し、元ファイルを上書きします。結果はこの通り。

PandocでMarkDown形式のファイルを.icmlにするのは

pandoc マークダウンファイルのパス.md -s -o 出力先パス.icml

のような感じ。
Pandoc自体のインストールは私はhomebrewでやりましたが、インストーラも存在するようです。

Pacdocを絡めたDTPフローの話はここやここにあります。やはりみんないろいろ試されていますね。

テスト用に使ったマークダウンファイルもこちらに置いておきます。

（2017.11.15）

タグ: ICML, Markdown, Pandoc, Perl, マークダウン, ルビ
カテゴリー: 未分類 | コメントはまだありません »

JLREQとCSS（6）

2017/11/08

　こちらのエントリは、JAGAT XMLパブリッシング準研究会で今期の研究テーマとして、W3C文書「日本語組版処理の要件」（JLREQ）と、これに関連してVivliostyleの村上真雄さんたちが提出したW3Cメンバーサブミッション「Web技術を用いた日本語組版の現状」を取り扱っていることに伴い、会員以外の方の意見を広く求めるとともに、記録を残しておく目的で議事録をベースに補足したものを公開するものです。

　間違い、補足などございましたらご意見いただければ幸いです。なお、当ブログはコメント許可制を取っているため、反映に時間がかかります。あらかじめご理解ください。
　方針としましてはW3C文書「日本語組版処理の要件」（JLREQ）を先頭から読んでいき、各要素に対応するCSSが存在するのか、存在するとして実用段階なのか、InDesignなどの組版ソフトではどういった形で機能を実現しているのか（いないのか）、などについて見ています。なお全体に対しての包括的な説明の部分に関しては、細かな部分は次回以降にその部分の説明が出てきた時に掘り下げる、としてスルーしている箇所があります。

　なお、こちらで取り上げております各CSSプロパティはまだドラフト仕様の段階のものも多いため、今現在すぐに使えるものばかりではありません。Webブラウザで使用出来るかどうかはこちらなどでご確認ください。また、電子書籍のRSで使用出来るかどうかは、現在広範に調査した資料がありません。いずれ当研究会の活動として調査を行いたく考えていますが、しばらく時間はかかるかと思います。

JLREQ 3.5 段落整形，そろえ及び段落末尾処理

　JLREQ内の表記で段落の定義がちょっと整理されていない感がある（木枝さん）との感想があった。
　横組みで採用されていることがあるという説明文の図版の例は縦組みだったりもするようだ。
　なお、ちょっと気がついたのだが、段落先頭にカギ類が来た際の挙動の説明がここにはない。3.1.5で説明済みだからというのはわかるのだが、JLREQが海外の規格策定／ソフトウェア実装担当者の間で辞書的な使われ方をしている実態がある以上、参照リンク程度の配慮はあってもよいのではないかと思う。全部を読み通さないと全体像が見えないというのはこうした文書の性格上よくないと考える。

CSS：ぶら下がりインデント
CSS Text Module Level3 9.1. First Line Indentation: the text-indent property
CSS Text Module Level3でプロパティが多少変わっている。具体的にはhangingというプロパティが追加されており、従来はpaddingとtext-indentを組み合わせることでぶら下がりインデントのレイアウトを再現していたが、text-indent単独で出来るようになっている。また、each-lineは<br/>で強制改行をした後の処理の指定。each-lineを付けておくと<br/>改行の後もtext-indentの処理が行われる。
※試してみたところ、Chromeでは問題なく使えるものの、Firefox、Safariでダメ。まだまだ実際に使うのは難しい模様。

CSS Lists Module Level3
CSS Lists and Counter ModuleからエディターズドラフトでListsのみ分岐。
3.5. Positioning Markers: The list-style-position property
リストのマーカーをどこに置くかの指定。デフォルト（従来のリストの挙動）はoutsideで、ぶら下がりインデント的な組版になる。insideを指定すると普通に行の先頭にマーカーが配置される。insideを指定した上でぶら下がりインデントにするには別途text-indent等で指定が必要になる。

JLREQ 3.5.2 字下げと字上げ

　段落単位の字下げ、字上げについての解説。InDesignでは段落パレットで設定する部分。
※引用文を本文と区別するために字下げする例の解説がある。これは今日ではよりバリエーション豊かな表現が気軽に行えるようになったため、引用部分のフォントを変えるなどといった処理と併せて行われることが多いと思われる。

JLREQ 3.5.3 そろえの処理

　中央そろえ、行頭そろえ、行末そろえ、均等割りなど各行揃え指定の解説。

CSS：行揃え
CSS Text Module Level 3 7.1. Text Alignment: the text-align shorthand
行揃えはCSSではtext-alignで指定する。CSS Text Module Level 3からtext-alignはshorthand（略式プロパティ）となり、個別プロパティとしてtext-align-allとtext-align-lastが策定された。text-align-allが段落全体の行揃えの挙動、text-align-lastが段落最終行の挙動。JLREQの図157の右下のような組版例（均等割り）はtext-align-last:justifyの指定で実現できるはず。この指定でChromeでは全行の均等配置の再現が確認できた。規格としてはtext-align:justify-allでも本来は同じ挙動になるはずだが、まだこれは実装されていない模様。
なおtext-alignのstart、end指定は日本語ではleft、rightと同じ挙動。アラビア語などで位置が入れ替わったりはする。justifyは最後の行以外が均等配置になる。

また、7.4. Justification Method: the text-justify propertyではjusify時にどこを空けて調整するかの指定ができる。日本語は通常わかち書きを行わないため、文字間を均等に空けてjusifyの挙動を実現することになる。これがinter-character。inter-wordは英語などで行われる語間スペース調整によるjusifyの挙動の指定。noneを指定するとjusifyを行わないことになるため、text-align:left指定と同様の組版になるはず。デフォルト値はautoで、言語によって適切と思われるjusifyの処理を行う。

JLREQ 3.5.4 段落末尾処理

　「段落の最終行の文字数が，ある文字数未満になることを避けるための処理のことである．ウィドウ（widow）処理ともいう．」
※「オーファン」という語もある。「参照：ウィドウは一行はみ出ること。オーファンは頭の1行目で改ページ（もしくは改段）になること」。

CSS：ウィドウ・オーファンの処理
CSS Fragmentation Module Level 3 3.3. Breaks Between Lines: orphans, widows
「［ orphans／widows ］プロパティは、ブロックコンテナ内の分断において，その［前／後］に［断片内に残さなければならない最小の行ボックス数］を指定する。後述にて、これらを利用して分断を制御する例を与える。」
widows:2;
orphans:3;
のように指定する。
デフォルト値は2。

JLREQ 3.6 タブ処理

　タブはそもそもかなりの部分が表組みと共通する。もともとの技術的な起源が違うために項目が分かれているだけではないか。
　ただ、いわゆる目次でのリーダー後の同一行ノンブル文末揃えのような組版はタブを使わないと実現できない。これはCSS Generated Content Module Level 3 2.5.1 The leader() functionでできるようになるはず。リーダーを入れず、空白にすることもできる。
　また、タブは項目内での複数行配置を想定しておらず、1次元の配列が折り返していくところが表とは違うのではないかという意見も出た（村上さん）。
　なお図160の図はタブの例としてあまり良くないのではないかという意見もあった。もっと通常の表組みでは実現できない例が欲しい。

JLREQ 3.6.2 タブ処理で指定する配置位置にそろえる形式

　タブの揃え位置のバリエーション解説。左（上）そろえタブ、右（下）そろえタブ、中央そろえタブ、指定文字そろえタブ（小数点など）。InDesignのタブ揃えの実装もこれと同様のオプションがある。

CSS：テーブルの中での小数点揃え
CSS Text Module Level 4 9. Alignment and Justification
9.1. Character-based Alignment in a Table ColumnのExample8にあるように、
text-align: "." center;
のような指定でピリオド揃えのセンタリングができるようになる。
text-align: "." right;
なら右揃えで小数点の桁数が揃ってなくても揃えてくれるようになるはず。

JLREQ 3.7 その他の行組版処理

　添え字処理、振分け処理、字取り処理、等号類と演算記号の処理についてそれぞれ解説している。

JLREQ 3.7.1 添え字処理

　添え字処理。まずHTMLのタグとして<sup><sub>がある。いわゆる上付き下付き文字指定。
　複雑なものに関しては数式組版で対応することになる。MathMLなどへの対応が必要か。それでも数字などの細かい位置決めは難しい。Webでの数式組版は現状MathJaxを利用するのが一般的なようだが、これはJavaScriptを用いているため現状EPUB等ではほぼ使えない（電子ペーパー端末でのJavaScriptを用いたインタラクティブ表現の表示再現性の問題や、セキュリティの観点からJavaScriptを禁止しているビューアもある）。

CSS：上付き／下付き
CSS Inline Layout Level3 2.2. Transverse Box Alignment: the vertical-align property
行中での文字の表示位置指定。この項目はvertical-alignがshorthand扱いとなっており、個別プロパティとしてbaseline-shiftとalignment-baselineが設定されてはいるが、実際にはshorthandのvertical-alignを使うことという注意書きがある。全体での整合性を取るためにこういった仕様にしたようだ。

alignment-baselineはどのベースラインを基準として上付き下付きにするかの指定。text-topとtop、text-bottomとbottomの挙動の違いはこちらを参照。text-topでは親要素へのline-height指定を継承するので、一見topが下に来たりbottomが上に来たりする挙動になったりするが、ベースラインシフトさせたい部分の文字のline-heightを適切に指定してやればきちんと字義どおりの挙動になるはず。

baseline-shiftはsub、superなどの指定で上付き下付きを指定できるほか、ベースラインシフトの量を絶対値や文字のシフト量をpxの数値やline-heightに対するパーセンテージで指定することができる（これはもうできる）。

今後Level3が勧告の段階に移れば、ベースラインの基準値（alignment-baseline）としてalphabetic、ideographic、central、mathematical、center が指定できるようになるほか、「vertical-align: top 10px」といった形で双方の値を組み合わせて指定できるようになる模様。

なお、化学記号などで上付き／下付きの文字を使う場合には親文字との分離禁止が課題になるが、文字の分離禁止にはいくつかの方法がある。現状無難なのは分割禁止部分をspanでくくってwhite-space:nowrap指定を行う方法。いずれwrap-after:avoid,wrap-before:avoidなどが実装されればそちらでもできるようになるはず（spanで括る必要がなくなる）。また、分割禁止文字を挿入する方法としてU+2060（WORD JOINER）を入れることでも同様の挙動になるはずだが、現状まだChromeではこれは動作しない。

今回はここまで。次回はJLREQ 3.7.2から。

（2017.11.9）

タグ: CSS, JAGAT, JLREQ, W3C, Web技術を用いた日本語組版の現状, 日本語組版, 日本語組版処理の要件
カテゴリー: 未分類 | コメントはまだありません »

Xojoで実行中のアプリを最前面にする（Mac）

2017/10/23

　Xojoでアプリを作っていて、「実行中のアプリを最前面に移動」っていう割と簡単にやれそうなとこで沼にハマりかけたのでメモとして上げておきます。まあそこはOSレベルの処理なんですよね。
　最初普通にXojoでMe.Activateとかそういう指定はないのか？　と探したのですがどうもないらしく、英語の掲示板にそれっぽい記事見つけたので試してみるもNG。Declare Functionとかやったらヤバげなエラーが出る。
　で、macoslibとか見つけてこれで行けるかもしかして？　と堀りかけたのですが、考えてみればMacでOSに処理投げるのならAppleScript呼び出しちゃうのが一番手っ取り早いんじゃないの、と思いついて試したらあっさりクリアできました。ということで

on run {}
	activate
end run

on run {}

activate

end run

これだけのシンプルなコードをAppleScriptで書いてmeActivate.scptとして保存して

XojoのウィンドウにAppleScriptのファイルをドラッグ＆ドロップしてエイリアス出して

サブルーチンとして実行すればOK。簡単。

でそれはそれとしてmacoslib面白そうですね。

（2017.10.23）

タグ: Xojo AppleScript
カテゴリー: 未分類 | コメントはまだありません »