review-retrovert 0.9.7 → 0.9.8

data/testdata/mybook/lib/ruby/review-latexbuilder.rb

@@ -14,13 +14,19 @@ module ReVIEW
 
   class LATEXBuilder
 
+    public :print, :puts
+
+    def target_name
+      "latex"
+    end
+
     ## 章や節や項や目のタイトル
     def headline(level, label, caption)
       with_context(:headline) do
         _, anchor = headline_prefix(level)
         headname = _headline_name(level)     # 'chapter', 'section', 'subsection', ...
         headstar = _headline_star(level)     # '*' or nil
-        blank unless @output.pos == 0
+        blank() unless @output.pos == 0
         with_context(:caption) do
           print macro("#{headname}#{headstar}", compile_inline(caption))
           print "\n" unless level >= 5  # \paragraphと\subpararaphでは改行しない
@@ -31,7 +37,12 @@ module ReVIEW
           puts "\\ifx\\Chapter\\undefined{\\addcontentsline{toc}{#{headname}}{#{compile_inline(caption)}}}\\fi"
         end
         if _headline_chapter?(level)
-          puts macro('label', chapter_label)
+          ## \Chapter直後の\addvspaceが効くように、
+          ## \lastskipをいったん保存し、\labelのあとで復元する。
+          puts "\\keeplastskip{"
+          puts "  \\label{#{chapter_label()}}"
+          puts "  \\par\\nobreak"
+          puts "}"
         elsif level >= 5  # 段(Paragraph)と小段(Subparagraph)では
           nil             # 何もしない、\labelもつけない
         else
@@ -72,7 +83,7 @@ module ReVIEW
     public
 
     def nonum_begin(level, _label, caption)
-      blank unless @output.pos == 0
+      blank() unless @output.pos == 0
       with_context(:headline) do
         with_context(:caption) do
           puts macro(HEADLINE[level] + '*', compile_inline(caption))
@@ -84,7 +95,7 @@ module ReVIEW
     end
 
     def notoc_begin(level, _label, caption)
-      blank unless @output.pos == 0
+      blank() unless @output.pos == 0
       with_context(:headline) do
         with_context(:caption) do
           puts "\\ifx\\Chapter\\undefined"
@@ -96,18 +107,51 @@ module ReVIEW
       end
     end
 
-    ## テーブルヘッダー
-    ## （TODO: 第3引数にpos=htbpを指定）
-    def table_header(id, caption)
-      if caption.present?
+    ## テーブル
+    def table(lines, id=nil, caption=nil, option=nil)
+      super
+    end
+
+    def table_header(id, caption, options)
+      if id.present? || caption.present?
         @table_caption = true
+        pos = options[:pos] || 'h'
         star = id.present? ? '' : '*'
-        s = with_context(:caption) { compile_inline(caption) }
-        puts "\\begin{table}[h]%%#{id}"
+        s = with_context(:caption) { compile_inline(caption || '') }
+        puts "\\begin{table}[#{pos}]%%#{id}"
         puts "\\centering%"
         puts macro("reviewtablecaption#{star}", s)
       end
-      puts macro('label', table_label(id)) if id.present?
+      begin
+        puts macro('label', table_label(id)) if id.present?
+      rescue KeyError
+        error "no such table: #{id}"
+      end
+    end
+
+    alias __original_table_begin table_begin
+
+    def table_begin(ncols, fontsize: nil)
+      if fontsize
+        font = FONTSIZES[fontsize]
+        puts "\\def\\startertablefont{\\#{font}}" if font
+      end
+      __original_table_begin(ncols)
+    end
+
+    ## CSVテーブル
+    def _table_hline()
+      "\\hline"
+    end
+
+    def _table_bottom(hline: false)
+      puts "\\hline" if hline
+    end
+
+    def _table_tr(cells, hline: false)
+      s = "#{cells.join(' & ')} \\\\"
+      s << " \\hline" if hline
+      return s
     end
 
     ## 改行命令「\\」のあとに改行文字「\n」を置かない。
@@ -131,18 +175,10 @@ module ReVIEW
       "\\\\[0pt]" # これなら後続行の先頭に1/4空白が入らない
     end
 
+    protected
 
-    ## コードブロック（//program, //terminal）
-
-    def program(lines, id=nil, caption=nil, optionstr=nil)
-      _codeblock('program', lines, id, caption, optionstr)
-    end
-
-    def terminal(lines, id=nil, caption=nil, optionstr=nil)
-      _codeblock('terminal', lines, id, caption, optionstr)
-    end
 
-    protected
+    ## コードブロック（//program, //terminal, //output）
 
     FONTSIZES = {
       "small"    => "small",
@@ -151,125 +187,226 @@ module ReVIEW
       "large"    => "large",
       "x-large"  => "Large",
       "xx-large" => "LARGE",
+      "medium"   => "normalsize",
     }
 
-    ## コードブロック（//program, //terminal）
-    def _codeblock(blockname, lines, id, caption, optionstr)
-      ## ブロックコマンドのオプション引数はCompilerクラスでパースすべき。
-      ## しかしCompilerクラスがそのような設計になってないので、
-      ## 仕方ないのでBuilderクラスでパースする。
-      opts = _parse_codeblock_optionstr(optionstr, blockname)
-      CODEBLOCK_OPTIONS.each {|k, v| opts[k] = v unless opts.key?(k) }
-      #
+    def _codeblock_eolmark()
+      "{\\startereolmark}"
+    end
+
+    def _codeblock_indentmark()
+      "{\\starterindentchar}"
+    end
+
+    LATEX_ESCAPE_TABLE = {
+      '{'  => '\{',
+      '}'  => '\}',
+      '%'  => '\%',
+      '$'  => '\$',
+      '#'  => '\#',
+      '&'  => '\&',
+      '_'  => '\_',
+      '\\' => '{\textbackslash}',
+      '^'  => '{\textasciicircum}',
+      '~'  => '{\textasciitilde}',
+    }
+
+    def _render_codeblock(blockname, lines, id, caption_str, opts)
       if opts['eolmark']
-        lines = lines.map {|line| "#{detab(line)}\\startereolmark{}" }
+        eolmark = _codeblock_eolmark()   # ex: '{\startereolmark}'
       else
-        lines = lines.map {|line| detab(line) }
+        eolmark = nil
       end
       #
-      if opts['indentwidth'] && opts['indentwidth'] > 0
-        indent_w   = opts['indentwidth']
-        indent_str = " " * (indent_w - 1) + "{\\starterindentchar}"
-        lines = lines.map {|line|
-          line.sub(/\A( +)/) {
-            m, n = ($1.length - 1).divmod indent_w
-            " " << indent_str * m << " " * n
-          }
+      eol = eolmark ? "#{eolmark}\\par\n" : "\\par\n"
+      lines = lines.map {|line|
+        line = _parse_inline(line) {|text|
+          _convert_and_escape_str(text)
         }
-      end
+        if line =~ /\A\n/
+          "\\mbox{}#{eol}\n"
+        else
+          line.gsub(/(?:\\-)?\n/, eol)
+        end
+      }
       #
-      if id.present? || caption.present?
-        caption_str = _build_caption_str(id, caption)
-      else
-        caption_str = nil
+      indent_width = opts['indent']
+      if indent_width && indent_width > 0
+        lines = _add_indent_mark(lines, indent_width)
       end
       #
+      default_opts = _codeblock_default_options(blockname)
+      opts2 = {}
+      opts.each do |k, v|
+        opts2[k] = v unless v == default_opts[k]
+      end
       fontsize = FONTSIZES[opts['fontsize']]
-      print "\\def\\startercodeblockfontsize{#{fontsize}}\n"
       #
       environ = "starter#{blockname}"
+      puts "\\begingroup"
+      puts "  \\makeatletter" if fontsize
+      puts "  \\def\\starter@#{blockname}@fontsize{#{fontsize}}" if fontsize
+      puts "  \\makeatother"  if fontsize
+      puts "  \\makeatletter" unless opts2.empty?
+      opts2.each do |k, v|
+        x = k.gsub(/[^a-zA-Z]/, '_')
+        v = v == true ? 'Y' : v == false ? '' : v  #escape(v.to_s)
+        puts "  \\edef\\starter@#{blockname}@#{x}{#{v}}"
+        #puts "  \\edef\\starter@codeblock@#{x}{#{v}}"
+      end
+      puts "  \\makeatother"  unless opts2.empty?
       print "\\begin{#{environ}}[#{id}]{#{caption_str}}"
       print "\\startersetfoldmark{}" unless opts['foldmark']
-      if opts['eolmark']
-        print "\\startereolmarkdark{}"  if blockname == 'terminal'
-        print "\\startereolmarklight{}" if blockname != 'terminal'
-      end
       if opts['lineno']
         gen = LineNumberGenerator.new(opts['lineno'])
-        width = opts['linenowidth']
+        width = opts['linenowidth'] || -1
         if width && width >= 0
           if width == 0
             last_lineno = gen.each.take(lines.length).compact.last
             width = last_lineno.to_s.length
           end
           print "\\startersetfoldindentwidth{#{'9'*(width+2)}}"
-          format = "\\textcolor{gray}{%#{width}s:} "
+          format = "\\starterinnerlineno{%#{width}s:} "
         else
-          format = "\\starterlineno{%s}"
+          format = "\\starterouterlineno{%s}"
         end
         buf = []
-        opt_fold = opts['fold']
         lines.zip(gen).each do |x, n|
-          buf << ( opt_fold \
-                   ? "#{format % n.to_s}\\seqsplit{#{x}}" \
-                   : "#{format % n.to_s}#{x}" )
+          buf << "#{(format % n.to_s).gsub(' ', '~')}#{x}"
         end
-        print buf.join("\n")
+        print buf.join()
       else
-        print "\\seqsplit{"       if opts['fold']
-        print lines.join("\n")
-        print "}"                 if opts['fold']
+        print lines.join()
       end
       puts "\\end{#{environ}}"
+      puts "\\endgroup"
       nil
     end
 
+    def _convert_and_escape_str(str)
+      #str.gsub(/[\{\}\\\%\^\_\$\&\~]/, LATEX_ESCAPE_TABLE)
+      rexp = /[\{\}\\\#\%\^\_\$\&\~]/
+      cs = []
+      zenkaku_rexp = ZENKAKU_CHAR_REXP
+      str.each_char do |c|
+        cs << (
+          case c
+          when / /          ; '~'
+          when /\n/         ; "\n"
+          when rexp         ; LATEX_ESCAPE_TABLE[c]
+          when zenkaku_rexp ; "\\ZC{#{c}}"   # 全角文字
+          else              ; c              # 半角文字
+          end
+          )
+      end
+      cs << "" unless cs[-1] == "\n"
+      return cs.join('\\-')
+    end
+
+    ZENKAKU_CHAR_REXP = /\A[^\000-\177]\z/
+
+    def _add_indent_mark(lines, indent_width)
+      space = "~\\-"
+      rexp  = /\A((?:~\\-)+)/
+      #
+      width = indent_width
+      mark  = _codeblock_indentmark()  # ex: '{\starterindentmark}'
+      indent = space * (width - 1) + mark
+      nchar = space.length
+      return lines.map {|line|
+        line.sub(rexp) {
+          m, n = ($1.length / nchar - 1).divmod width
+          "#{space}#{indent * m}#{space * n}"
+        }
+      }
+    end
+
     public
 
     ## ・\caption{} のかわりに \reviewimagecaption{} を使うよう修正
     ## ・「scale=X」に加えて「pos=X」も受け付けるように拡張
-    def image_image(id, caption, option_str)
-      pos = nil; border = nil; arr = []
-      _each_block_option(option_str) do |k, v|
-        case k
-        when 'pos'
-          v =~ /\A[Hhtb]+\z/  or  # H: Here, h: here, t: top, b: bottom
-            raise "//image[][][pos=#{v}]: expected 'pos=H' or 'pos=h'."
-          pos = v     # detect 'pos=H' or 'pos=h'
-        when 'border', 'draft'
-          case v
-          when nil  ; flag = true
-          when 'on' ; flag = true
-          when 'off'; flag = false
-          else
-            raise "//image[][][#{k}=#{v}]: expected '#{k}=on' or '#{k}=off'"
-          end
-          border = flag          if k == 'border'
-          arr << "draft=#{flag}" if k == 'draft'
+    def _render_image(id, image_filepath, caption, opts)
+      width = "\\maxwidth"
+      if opts[:scale]
+        case (scale = opts[:scale])
+        when /\A\d+\z/, /\A\d\.\d*\z/, /\A\.\d+\z/
+        when /\A\d+(\.\d+)?%\z/
+          scale = scale.sub(/%\z/, '').to_f / 100.0
         else
-          arr << (v.nil? ? k : "#{k}=#{v}")
+          error "scale=#{scale}: invalid scale value."
         end
+        width = "#{scale}\\maxwidth"   # not '\textwidth'
       end
       #
-      metrics = parse_metric('latex', arr.join(","))
-      puts "\\begin{reviewimage}[#{pos}]%%#{id}" if pos
-      puts "\\begin{reviewimage}%%#{id}"     unless pos
-      metrics = "width=\\maxwidth" unless metrics.present?
-      puts "\\starterimageframe{%" if border
-      puts "\\includegraphics[#{metrics}]{#{@chapter.image(id).path}}%"
-      puts "}%"                    if border
+      if opts[:width]
+        case opts[:width]
+        when /\A\d+\z/, /\A\d\.\d*\z/, /\A\.\d+\z/
+          width = "#{opts[:width]}\\textwidth"   # not '\maxwidth'
+        when /\A(\d+(\.\d+)?)%\z/
+          width = "#{$1.to_f/100.0}\\textwidth"  # not '\maxwidth'
+        when /\A(\d+(?:\.\d*)?)(mm|cm)\z/
+          width = "#{$1}true#{$2}"  # 'mm'->'truemm', 'cm'->'truecm'
+        else
+          width = opts[:width]
+        end
+      end
+      #
+      metrics = ["width=#{width}"]
+      metrics << "draft=#{opts[:draft]}" if opts[:draft] != nil
+      #
+      pos = opts[:pos] || config_starter()['image_position']
+      puts "\\begin{reviewimage}[#{pos}]%%#{id}"
+      puts "\\starterimageframe{%" if opts[:border]
+      puts "\\includegraphics[#{metrics.join(',')}]{#{image_filepath}}%"
+      puts "}%"                    if opts[:border]
       with_context(:caption) do
         #puts macro('caption', compile_inline(caption)) if caption.present?  # original
-        puts macro('reviewimagecaption', compile_inline(caption)) if caption.present?
+        puts "\\reviewimagecaption{#{compile_inline(caption)}}" if caption.present?
       end
-      puts macro('label', image_label(id))
+      puts "\\label{#{image_label(id)}}"
       puts "\\end{reviewimage}"
     end
 
+    ## //imgtable
+    def imgtable(lines, id, caption=nil, option=nil)
+      super
+    end
+
+    def _render_imgtable(id, caption, opts)
+      pos = opts['pos'] || 'h'
+      puts "\\begin{table}[#{pos}]%%#{id}"
+      puts "\\centering"
+      yield
+      puts "\\end{table}"
+      blank()
+    end
+
+    def _render_imgtable_caption(caption)
+      puts macro('reviewimgtablecaption', compile_inline(caption))
+    end
+
+    def _render_imgtable_label(id)
+      puts macro('label', table_label(id))
+    rescue ReVIEW::KeyError
+      error "no such table: #{id}"
+    end
+
+    def imgtable_image(id, _caption, metric)
+      metrics = parse_metric('latex', metric)
+      # image is always bound here
+      #puts "\\begin{reviewimage}%%#{id}"    #-
+      metrics = "width=\\maxwidth" unless metrics.present?
+      imagefile = @chapter.image(id).path
+      puts "\\includegraphics[#{metrics}]{#{imagefile}}"
+      #puts '\end{reviewimage}'              #-
+    end
+
+    ##
+
     def _build_secref(chap, num, title, parent_title)
       s = ""
       ## 親セクションのタイトルがあれば使う
-      if parent_title && @book.config['starter']['secref_parenttitle']
+      if parent_title && self.config_starter['secref_parenttitle']
         s << "「%s」内の" % parent_title   # TODO: I18n化
       end
       ## 対象セクションへのリンクを作成する
@@ -294,17 +431,17 @@ module ReVIEW
     public
 
     def ul_begin
-      blank
+      blank()
       puts '\begin{starteritemize}'    # instead of 'itemize'
     end
 
     def ul_end
       puts '\end{starteritemize}'      # instead of 'itemize'
-      blank
+      blank()
     end
 
     def ol_begin(start_num=nil)
-      blank
+      blank()
       puts '\begin{starterenumerate}'  # instead of 'enumerate'
       if start_num.nil?
         return true unless @ol_num
@@ -315,7 +452,7 @@ module ReVIEW
 
     def ol_end
       puts '\end{starterenumerate}'    # instead of 'enumerate'
-      blank
+      blank()
     end
 
     def ol_item_begin(lines, num)
@@ -327,10 +464,20 @@ module ReVIEW
     def ol_item_end()
     end
 
+    def dt(str)
+      puts "\\starterdt{#{str}}%"
+    end
+
+    def dl_dd_begin()
+    end
+
+    def dl_dd_end()
+    end
+
     ## コラム
 
     def column_begin(level, label, caption)
-      blank
+      blank()
       @doc_status[:column] = true
       puts "\\begin{reviewcolumn}\n"
       puts "\\phantomsection   % for hyperref"   #+
@@ -367,12 +514,85 @@ module ReVIEW
     ## （導入文 //lead{ ... //} と似ているが、導入文では詩や物語を
     ##   引用するのが普通らしく、概要 (abstract) とは違うみたいなので、
     ##   概要を表すブロックを用意した。）
-    def abstract(lines)
+    def on_abstract_block()
       puts '\begin{starterabstract}'
-      puts lines
+      yield
       puts '\end{starterabstract}'
     end
 
+    ## 章 (Chapter) の著者
+    def on_chapterauthor_block(name)
+      puts "\\starterchapterauthor{#{escape(name)}}"
+    end
+
+    ## 会話リスト
+    def _render_talklist(opts, &b)
+      puts '\begingroup'
+      puts '  \makeatletter' unless opts.empty?
+      opts.each do |k, v|
+        puts "  \\def\\starter@talklist@#{k}{#{v}}"
+      end
+      puts '  \makeatother'  unless opts.empty?
+      puts '\begin{startertalklist}'
+      yield
+      puts '\end{startertalklist}'
+      puts '\endgroup'
+    end
+
+    ## 会話項目
+    def _render_talk(image_filepath=nil, name=nil, &b)
+      s = name ? compile_inline(name) : nil
+      print "\\startertalk{#{image_filepath}}{#{s}}{%"
+      yield
+      @blank_needed = false
+      puts "}"
+    end
+
+    ## キーと説明文のリスト
+    def _render_desclist(opts, &b)
+      bkup = @_desclist_opts
+      @_desclist_opts = opts
+      star = opts[:compact] ? '*' : ''
+      puts "\\begingroup"
+      puts "  \\makeatletter" unless opts.empty?
+      opts.each do |k, v|
+        k_ = k.to_s.gsub('_', '@')
+        v_ = v == true ? 'Y' : v == false ? '' : escape(v.to_s)
+        puts "  \\def\\starter@desclist@#{k_}{#{v_}}"
+      end
+      puts "  \\makeatother"  unless opts.empty?
+      puts "\\begin{starterdesclist}"
+      yield
+      puts "\\end{starterdesclist}"
+      puts "\\endgroup"
+      @_desclist_opts = bkup
+    end
+
+    ## キーと説明文
+    def on_desc_block(key, text=nil, &b)
+      text = "\n" + text if text
+      super(key, text, &b)
+    end
+    def _render_desc(key, &b)
+      opts = @_desclist_opts
+      s = compile_inline(key)
+      #print "\\begin{starterdesc}{#{s}}"
+      #print "\\begin{starterdesc}{#{s}}%"
+      print "\\begin{starterdesc}{#{s}}\\ignorespaces "
+      yield
+      @blank_needed = false
+      puts "\\end{starterdesc}"
+    end
+
+    ## 縦方向の空きを入れる
+    def _render_vspace(size)
+      puts "\\vspace{#{size}}"
+    end
+
+    def _render_addvspace(size)
+      puts "\\addvspace{#{size}}"
+    end
+
     ## 章タイトルを独立したページに
     def makechaptitlepage(option=nil)
       case option
@@ -387,10 +607,8 @@ module ReVIEW
     end
 
     ## 縦方向のスペースがなければ改ページ
-    def needvspace(builder_name, height)
-      if builder_name == 'latex'
-        puts "\\needvspace{#{height}}"
-      end
+    def _render_needvspace(height)
+      puts "\\needvspace{#{height}}"
     end
 
     ## 段(Paragraph)の終わりにスペースを入れる
@@ -428,11 +646,13 @@ module ReVIEW
     ## ノート（//note[caption]{ ... //}）
     ## （入れ子対応なので、中に箇条書きや別のブロックを入れられる）
     def on_note_block(label=nil, caption=nil)
-      caption, label = label, nil if caption.nil?
-      s = compile_inline(caption || "")
-      puts "\\begin{starternote}[#{label}]{#{s}}"
-      yield
-      puts "\\end{starternote}"
+      with_context(:minicolumn) do
+        caption, label = label, nil if caption.nil?
+        s = compile_inline(caption || "")
+        puts "\\begin{starternote}[#{label}]{#{s}}"
+        yield
+        puts "\\end{starternote}"
+      end
     end
     def note(lines, label=nil, caption=nil)
       on_note_block(label, caption) do
@@ -476,7 +696,7 @@ module ReVIEW
       arr = []
       arr << lang if lang
       if lineno_flag
-        first_line_num = line_num
+        first_line_num = line_num()
         arr << "lineno=#{first_line_num}"
         arr << "linenowidth=0"
       end
@@ -484,24 +704,12 @@ module ReVIEW
     end
     private :_codeblock_optstr
 
-
-    ## 入れ子可能なブロック命令
-
-    def on_minicolumn(type, caption, &b)
-      s = with_context(:caption) { compile_inline(caption) }
-      puts "\\begin{starter#{type}}{#{s}}"
-      yield
-      puts "\\end{starter#{type}}\n"
-    end
-    protected :on_minicolumn
-
-    def on_sideimage_block(imagefile, imagewidth, option_str=nil, &b)
-      imagefile, imagewidth, opts = validate_sideimage_args(imagefile, imagewidth, option_str)
-      filepath = find_image_filepath(imagefile)
-      side     = opts['side'] || 'L'
+    ## 画像横に文章
+    def _render_sideimage(filepath, imagewidth, opts, &b)
+      side = opts['side'] || 'L'
       normalize = proc {|s|
-        s =~ /\A(\d+(?:\.\d+)?)(%|mm|cm)\z/
-        if    $2.nil?   ; s
+        rexp = /\A(\d+(?:\.\d+)?)(%|mm|cm)\z/
+        if    s !~ rexp ; s
         elsif $2 == '%' ; "#{$1.to_f/100.0}\\textwidth"
         else            ; "#{$1}true#{$2}"
         end
@@ -517,6 +725,20 @@ module ReVIEW
       puts "}\n"
     end
 
+    ## 入れ子可能なブロック命令
+
+    def on_minicolumn(type, caption=nil, &b)
+      with_context(:minicolumn) do
+        s = caption ? with_context(:caption) { compile_inline(caption) } : nil
+        puts "\\begin{starter#{type}}{#{s}}"
+        yield
+        puts "\\end{starter#{type}}\n"
+      end
+    end
+    protected :on_minicolumn
+
+    ## 数式
+
     def texequation(lines, label=nil, caption=nil)
       blank()
       #
@@ -561,6 +783,11 @@ module ReVIEW
 
     #### インライン命令
 
+    ## 改段落（箇条書き内では空行を入れられないため）
+    def inline_par(arg)
+      "\\starterpar{#{arg}}"
+    end
+
     ## ファイル名
     def inline_file(str)
       on_inline_file { escape(str) }
@@ -574,11 +801,11 @@ module ReVIEW
       on_inline_userinput { escape(str) }
     end
     def on_inline_userinput
-      if within_codeblock?()
-        "{\\starteruserinput{\\seqsplit{#{yield}}}}"
-      else
+      #if within_codeblock?()
+      #  "{\\starteruserinput{\\seqsplit{#{yield}}}}"
+      #else
         "\\starteruserinput{#{yield}}"
-      end
+      #end
     end
 
     ## 引数をそのまま表示
@@ -597,11 +824,11 @@ module ReVIEW
       on_inline_weak { escape(str) }
     end
     def on_inline_weak
-      if within_codeblock?()
-        "{\\starterweak{\\seqsplit{#{yield}}}}"
-      else
+      #if within_codeblock?()
+      #  "{\\starterweak{\\seqsplit{#{yield}}}}"
+      #else
         "\\starterweak{#{yield}}"
-      end
+      #end
     end
 
     ## 文字を小さくする
@@ -672,19 +899,17 @@ module ReVIEW
     def on_inline_balloon(); "{\\reviewballoon{#{yield}}}" ; end
 
     def on_inline_tt()
-      ## LaTeXでは、'\texttt{}' 中の '!?:.' の直後の空白が2文字分で表示される。
-      ## その問題を回避するために、' ' を '\ ' にする。
-      s = yield
-      s = s.gsub(/([!?:.]) /, '\\1\\ ')
-      return "{\\reviewtt{#{s}}}"
+      return "{\\reviewtt{#{yield}}}"
     end
 
     def on_inline_code()
       with_context(:inline_code) {
-        ## LaTeXでは、'\texttt{}' 中の '!?:.' の直後の空白が2文字分で表示される。
-        ## その問題を回避するために、' ' を '\ ' にする。
+        ## 連続した空白が1つの空白として扱われるのを防ぐ
         s = yield
-        s = s.gsub(/([!?:.]) /, '\\1\\ ')
+        s = s.gsub(/ /, '{\\starterspacechar}')
+        ## 連続した「`」や「'」はエスケープする必要がある
+        s = s.gsub(/\'\'/, "{'}{'}")
+        s = s.gsub(/\`\`/, '{`}{`}')
         ## コンテキストによって、背景色をつけないことがある
         if false
         elsif within_context?(:headline)       # 章タイトルや節タイトルでは
@@ -719,35 +944,43 @@ module ReVIEW
       if within_codeblock?()
         #"\\reviewstrike{#{yield}}"    # \seqsplit{} 内でエラーになる
         #"{\\reviewstrike{#{yield}}}"  # \seqsplit{} 内でもエラーにならないが折り返しされない
-        "{\\reviewstrike{\\seqsplit{#{yield}}}}"  # エラーにならないし、折り返しもされる
+        #"{\\reviewstrike{\\seqsplit{#{yield}}}}"  # エラーにならないし、折り返しもされる
+        "{\\reviewstrike{#{yield}}}"
       else
         macro('reviewstrike', yield)
       end
     end
 
     def build_inline_href(url, escaped_label)  # compile_href()をベースに改造
-      flag_footnote = @book.config['starter']['linkurl_footnote']
+      flag_footnote = self.config_starter['linkurl_footnote']
       return _inline_hyperlink(url, escaped_label, flag_footnote)
     end
 
     ## @<href>{} の代わり
     def inline_hlink(str)
       url, label = str.split(/, /, 2)
-      flag_footnote = @book.config['starter']['hyperlink_footnote']
-      return _inline_hyperlink(url, escape(label), flag_footnote)
+      flag_footnote = self.config_starter['hyperlink_footnote']
+      label_ = label.present? ? escape(label) : nil
+      return _inline_hyperlink(url, label_, flag_footnote)
     end
 
     def _inline_hyperlink(url, escaped_label, flag_footnote)
       if /\A[a-z]+:/ !~ url
         "\\ref{#{url}}"
       elsif ! escaped_label.present?
-        "\\url{#{escape_url(url)}}"
+        #"\\url{#{escape_url(url)}}"
+        "\\starterurl{#{escape_url(url)}}{#{escape(url)}}"
       elsif ! flag_footnote
         "\\href{#{escape_url(url)}}{#{escaped_label}}"
       elsif within_context?(:footnote)
-        "#{escaped_label}(\\url{#{escape_url(url)}})"
+        #"#{escaped_label}(\\url{#{escape_url(url)}})"
+        "#{escaped_label}(\\starterurl{#{escape_url(url)}}{#{escape(url)}})"
       else
-        "#{escaped_label}\\footnote{\\url{#{escape_url(url)}}}"
+        #"#{escaped_label}\\footnote{\\url{#{escape_url(url)}}}"
+        #"#{escaped_label}\\footnote{\\starterurl{#{escape_url(url)}}{#{escape(url)}}}"
+        url1 = escape_url(url)
+        url2 = escape(url)
+        "\\href{#{url1}}{#{escaped_label}}\\footnote{\\starterurl{#{url1}}{#{url2}}}"
       end
     end
     private :_inline_hyperlink
@@ -776,6 +1009,56 @@ module ReVIEW
       escape("#{I18n.t('equation')}#{chapter.number}.#{number}")
     end
 
+    public
+
+    ## 数式を $...$ から \(...\) に変更する。
+    ## これで //list の中でも @<m>$...$ が使えるようになる。
+    ## ただし '^' や '_' がエスケープされるので、実用性はイマイチ。
+    def inline_m(str)
+      #" $#{str}$ "     # original
+      "\\(#{str}\\)"
+    end
+
+    ## 「``」と「''」で囲む
+    def on_inline_qq()
+      "``#{yield}''"
+    end
+
+    ## 索引に載せる語句 (@<idx>{}, @<term>{})
+    def inline_idx(str)
+      s1, s2 = _compile_term(str)
+      "#{s1}\\index{#{s2}}"
+    end
+    def inline_hidx(str)
+      _, s2 = _compile_term(str)
+      "\\index{#{s2}}"
+    end
+    def inline_term(str)
+      s1, s2 = _compile_term(str)
+      "\\starterterm{#{s1}}\\index{#{s2}}"
+    end
+    def on_inline_termnoidx()
+      "\\starterterm{#{yield}}"
+    end
+
+    def _compile_term(str)
+      arr = []
+      placeholder = "\\starterindexplaceholder{}"
+      display_str, see = parse_term(str, placeholder) do |term, term_e, yomi|
+        if yomi
+          arr << "#{escape_index(escape_latex(yomi))}@#{term_e}"
+        elsif escape_index(term) != term_e
+          arr << "#{escape_index(term)}@#{term_e}"
+        else
+          arr << term_e
+        end
+      end
+      argstr = arr.join('!')
+      argstr += "|see{#{escape_latex(see)}}" if see
+      return display_str, argstr
+    end
+    private :_compile_term
+
   end