X-Git-Url: http://git.osdn.jp/view?a=blobdiff_plain;f=src%2Faddons%2Fluatexja-adjust.sty;h=a9262106618075b3e410091b176d95e9bff94a82;hb=71b90c7904b04549fca6522f9bcef1c59f9f0e0f;hp=397dede22d7274aa4be8c0b02c0a055b18595a1b;hpb=4a6671843cfa3c55146fd48f76d8f1332ca9cfd0;p=luatex-ja%2Fluatexja.git diff --git a/src/addons/luatexja-adjust.sty b/src/addons/luatexja-adjust.sty index 397dede..a926210 100644 --- a/src/addons/luatexja-adjust.sty +++ b/src/addons/luatexja-adjust.sty @@ -64,13 +64,13 @@ \expandafter\let\csname ifltj@in@latex\expandafter\endcsname \csname iftrue\endcsname \NeedsTeXFormat{LaTeX2e} - \ProvidesPackage{luatexja-adjust}[2012/10/01 v0.1] + \ProvidesPackage{luatexja-adjust}[2013/05/14] \fi % % Load core module if not yet. \ifx\luatexjacoreLoaded\@undefined \ifltj@in@latex %<*LaTeX> - \RequirePackage{luatexja}[2012/04/20] + \RequirePackage{luatexja}[2013/05/14] \else %<*!LaTeX> \input luatexja.sty % \fi % @@ -82,12 +82,36 @@ \expandafter\endinput\fi\relax %%------------------ +\RequirePackage{expl3} %! Main part of luatexja-adjust \RequireLuaTeXjaSubmodule{adjust} +% enable/disable ``advanced'' line adjustment \protected\def\ltjdisableadjust{\directlua{luatexja.adjust.disable_cb()}} \protected\def\ltjenableadjust{\directlua{luatexja.adjust.enable_cb()}} \ltjenableadjust +% there is also a key for \ltjsetparameter, for same effect +\define@boolkey[ltj]{japaram}{adjust}[true]{% + \ifltj@japaram@adjust\ltjenableadjust\else\ltjdisableadjust\fi +} + +\ExplSyntaxOn +\cs_new:Nn \ltj_adjust_inittable: { + % To be filled... +} +\cs_new:Nn \ltj_adjust_appendtable:n { + % To be filled +} + +\clist_new:N \l_ltj_adjust_priority +\define@key[ltj]{japaram}{adjustpriority}{% COMMA LIST + \clist_set:Nx \l_ltj_adjust_priority {#1} + \ltj_adjust_inittable: + \clist_map_function:NN \l_ltj_adjust_priority \ltj_adjust_appendtable:n +} + +\ExplSyntaxOff + %%------------------ all done \ltj@adjust@AtEnd