test/test17-priority.tex

   1 %#!lualatex
   2
   3 \documentclass{article}
   4 \usepackage{luatexja,luacode,xcolor}
   5 \RequireLuaTeXjaSubmodule{adjust}
   6
   7 \def\sq{%
   8   \hbox to 1\zw{\hss\fboxsep=-.5\fboxrule\fbox{%
   9   　\hskip\dimexpr-.5\zw-.2pt\vrule width.4pt height.08\zw depth.12\zw%
  10   \hskip\dimexpr.5\zw-.2pt\relax}\hss}}
  11 \def\sb{\hbox to 1\zw{\hss\fboxsep=-.5\fboxrule\fbox{%
  12   ■\hskip\dimexpr-.5\zw-.2pt\vrule width.4pt height.08\zw depth.12\zw%
  13   \hskip\dimexpr.5\zw-.2pt\relax}\hss}}
  14 \newbox\gridbox
  15 \setbox\gridbox=\hbox to 20\zw{\sq\sq\sq\sq\sb\sq\sq\sq\sq\sb\sq\sq\sq\sq\sb\sq\sq\sq\sq\sb}
  16 \def\outbox#1{%
  17   \leavevmode\hbox to 2em{\tt #1\hss}\vrule
  18   \textcolor{cyan!50!white}{\copy\gridbox}\hskip-20\zw\copy0\vrule\par
  19 }
  20
  21 \def\DisableCB{\directlua{luatexbase.remove_from_callback('post_linebreak_filter', 'Adjust width')}}
  22 \def\EnableCB{\directlua{luatexbase.add_to_callback('post_linebreak_filter', luatexja.adjust.adjust_width, 'Adjust width', 100)}}
  23
  24 \long\def\testbox#1{%
  25   \EnableCB\setbox0=\vbox{\hsize=20\zw\parfillskip0pt#1}\outbox{ON}\par
  26   \DisableCB\setbox0=\vbox{\hsize=20\zw\parfillskip0pt#1}\outbox{OFF}\par
  27 }
  28
  29 \parindent0pt
  30 \begin{document}
  31 {\tt kanjiskip: \ltjgetparameter{kanjiskip}
  32
  33 \ltjsetparameter{xkanjiskip=.25\zw plus .25\zw minus .125\zw}
  34 xkanjiskip: \ltjgetparameter{xkanjiskip}}
  35
  36 \testbox{%
  37 ◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆
  38 %あいうえおかきくけこさしすせそたちつてと
  39 }
  40
  41 \testbox{%
  42 あいうえおかきくけこ「「さしすせそたちつて
  43 }
  44
  45 \testbox{%
  46 あいうえおかきA B C Dこさ\texttt{DO i=1,10}『
  47 }
  48
  49 \testbox{%
  50 「\texttt{\textbackslash expandafter}ユーザの集い」が開催された
  51 }
  52
  53 \testbox{%
  54 あいうえおきくけこ「」さ123456そたちつて
  55 }
  56
  57 \def\pTeX{p\kern-.2em\TeX}
  58 \testbox{%
  59 日本では\pTeX，p\LaTeX がよく使われている。
  60 }
  61
  62 中点類の空き詰めは括弧類より優先
  63
  64 \testbox{%
  65 あいうえおかきくけ・こさしすせそたち「「あ
  66 }
  67 \end{document}