src/ltj-plain.sty

   1 %
   2 % ltj-plain.sty
   3 %
   4
   5 %! これは外から読まれない
   6 %% Avoid multiple loading.
   7 \csname luatexjaplainLoaded\endcsname
   8 \edef\ltj@plain@AtEnd{%
   9 \endlinechar=\the\endlinechar
  10 \relax}
  11 \endlinechar=-1 %
  12 \def\luatexjaplainLoaded{\endinput}
  13
  14 \ifltj@in@latex                 %<*LaTeX>
  15   \NeedsTeXFormat{LaTeX2e}
  16   \ProvidesPackage{ltj-plain}[2012/04/21 v0.2]
  17 \fi                             %</LaTeX>
  18
  19 %%------------------
  20
  21 \endlinechar=13
  22 %! ↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
  23 % LuaTeX-ja macros against plain TeX
  24
  25 \jfont\tenmin=psft:Ryumin-Light:jfm=ujis at 9.62216pt
  26 \jfont\sevenmin=psft:Ryumin-Light:jfm=ujis at 6.73551pt
  27 \jfont\fivemin=psft:Ryumin-Light:jfm=ujis at 4.81108pt
  28 \jfont\tengt=psft:GothicBBB-Medium:jfm=ujis at 9.62216pt
  29 \jfont\sevengt=psft:GothicBBB-Medium:jfm=ujis at 6.73551pt
  30 \jfont\fivegt=psft:GothicBBB-Medium:jfm=ujis at 4.81108pt
  31
  32 \let\mc=\tenmin
  33 \let\gt=\tengt
  34 \mc
  35
  36 \directlua{
  37   luatexja.stack.charprop_stack_table[0]
  38     = dofile(assert(kpse.find_file('ltj-kinsoku.lua', 'tex'),
  39       "File `ltj-kinsoku.lua' not found"))
  40 }
  41
  42 \ltjsetparameter{kanjiskip=0pt plus 0.4pt minus 0.4pt,
  43   xkanjiskip=.25\zw plus 1pt minus 1pt,
  44   autospacing, autoxspacing, jacharrange={-1},
  45   yalbaselineshift=0pt, yjabaselineshift=0pt,
  46   jcharwidowpenalty=500, differentjfm=paverage
  47 }
  48
  49 \ltjdefcharrange{1}{"80-"36F, "1E00-"1EFF}
  50 \ltjdefcharrange{2}{"370-"4FF, "1F00-"1FFF}
  51 \ltjdefcharrange{3}{%
  52   "2000-"243F, "2500-"27BF, "2900-"29FF, "2B00-"2BFF, "E000-"F8FF}
  53 \ltjdefcharrange{4}{%
  54    "500-"10FF, "1200-"1DFF, "2440-"245F, "27C0-"28FF, "2A00-"2AFF,
  55   "2C00-"2E7F, "4DC0-"4DFF, "A4D0-"A82F, "A840-"ABFF, "FB50-"FE0F,
  56   "FE20-"FE2F, "FE70-"FEFF, "FB00-"FB4F, "10000-"1FFFF} % non-Japanese
  57 \ltjdefcharrange{5}{"D800-"DFFF, "E0000-"10FFFF}
  58 \ltjdefcharrange{6}{%
  59   "2460-"24FF, "2E80-"2EFF, "3000-"30FF, "3190-"319F, "31F0-"4DBF,
  60   "4E00-"9FFF, "F900-"FAFF, "FE10-"FE6F, "20000-"2FFFF}
  61 \ltjdefcharrange{7}{
  62   "1100-"11FF, "2F00-"2FFF, "3100-"31EF, "A000-"A4CF, "A830-"A83F,
  63   "AC00-"D7FF}
  64 \ltjdefcharrange{8}{"B4, "A8, "B1, "D7, "F7, "B0, "A7, "B6}
  65 \ltjsetparameter{jacharrange={-1, +2, +3, -4, -5, +6, +7, +8}}
  66
  67 \directlua{for x=128,255 do luatexja.math.is_math_letters[x] = true end}
  68
  69 %%------------------ all done
  70 \ltj@plain@AtEnd
  71 \endinput
  72 %% EOF