src/patches/lltjp-geometry.sty

   1 %
   2 % lltjp-geometry.sty
   3 %
   4
   5 \NeedsTeXFormat{LaTeX2e}
   6 \ProvidesPackage{lltjp-geometry}[2014/11/22 Patch to geometry for LuaTeX-ja with vertical writing mode]
   7 \RequirePackage{luatexja}
   8 \RequirePackage{filehook}
   9
  10 \AtEndOfPackageFile{geometry}{%
  11 \ifnum\ltjgetparameter{direction}=3%
  12 \define@key{Gm}{hdivide}{\Gm@parse@divide{#1}{tmargin}{width}{bmargin}}%
  13 \define@key{Gm}{vdivide}{\Gm@parse@divide{#1}{rmargin}{height}{lmargin}}%
  14 \define@key{Gm}{divide}{\Gm@parse@divide{#1}{lmargin}{width}{rmargin}%
  15   \Gm@parse@divide{#1}{rmargin}{height}{lmargin}}%
  16 \define@key{Gm}{hmargin}{\Gm@branch{#1}{tmargin}{bmargin}}%
  17 \define@key{Gm}{vmargin}{\Gm@branch{#1}{rmargin}{lmargin}}%
  18 \define@key{Gm}{margin}{\Gm@branch{#1}{tmargin}{rmargin}%
  19   \Gm@branch{#1}{bmargin}{lmargin}}%
  20 \def\Gm@detall#1#2#3#4{%
  21   \@tempcnta\z@
  22   \if#1h
  23     \let\Gm@mratio\Gm@hmarginratio
  24     \edef\Gm@Dmratio{\if@twoside\Gm@Dhratiotwo\else\Gm@Dhratio\fi}%
  25   \else
  26     \let\Gm@mratio\Gm@vmarginratio
  27     \edef\Gm@Dmratio{\Gm@Dvratio}%
  28   \fi
  29   \if#1h
  30     \ifx\Gm@tmargin\@undefined\else\advance\@tempcnta4\relax\fi
  31     \ifGm@hbody\advance\@tempcnta2\relax\fi
  32     \ifx\Gm@bmargin\@undefined\else\advance\@tempcnta1\relax\fi
  33     \Gm@cnth\@tempcnta
  34   \else
  35     \ifx\Gm@lmargin\@undefined\else\advance\@tempcnta4\relax\fi
  36     \ifGm@vbody\advance\@tempcnta2\relax\fi
  37     \ifx\Gm@rmargin\@undefined\else\advance\@tempcnta1\relax\fi
  38     \Gm@cntv\@tempcnta
  39   \fi
  40   \ifcase\@tempcnta
  41     \if#1h
  42       \Gm@defbylen{width}{\Gm@Dhscale\Gm@layoutwidth}%
  43     \else
  44       \Gm@defbylen{height}{\Gm@Dvscale\Gm@layoutheight}%
  45     \fi
  46     \Gm@detiiandiii{#2}{#3}{#4}%
  47   \or
  48     \ifx\Gm@mratio\@undefined
  49       \if#1h
  50         \Gm@defbylen{width}{\Gm@Dhscale\Gm@layoutwidth}%
  51       \else
  52         \Gm@defbylen{height}{\Gm@Dvscale\Gm@layoutheight}%
  53       \fi
  54       \setlength\@tempdimc{\@nameuse{Gm@#4}}%
  55       \Gm@detiiandiii{#2}{#3}{#4}%
  56       \expandafter\let\csname Gm@#2\endcsname\@undefined
  57       \Gm@defbylen{#4}{\@tempdimc}%
  58     \else
  59       \Gm@setbyratio[f]{#1}{#4}{#3}%
  60     \fi
  61     \Gm@detiv{#2}{#3}{#4}{#2}%
  62   \or\Gm@detiiandiii{#2}{#3}{#4}%
  63   \or\Gm@detiv{#2}{#2}{#4}{#3}%
  64   \or
  65     \ifx\Gm@mratio\@undefined
  66       \if#1h
  67         \Gm@defbylen{width}{\Gm@Dhscale\Gm@layoutwidth}%
  68       \else
  69         \Gm@defbylen{height}{\Gm@Dvscale\Gm@layoutheight}%
  70       \fi
  71       \setlength\@tempdimc{\@nameuse{Gm@#3}}%
  72       \Gm@detiiandiii{#2}{#4}{#3}%
  73       \expandafter\let\csname Gm@#2\endcsname\@undefined
  74       \Gm@defbylen{#3}{\@tempdimc}%
  75     \else
  76       \Gm@setbyratio[b]{#1}{#3}{#4}%
  77     \fi
  78     \Gm@detiv{#2}{#3}{#4}{#2}%
  79   \or\Gm@detiv{#2}{#3}{#4}{#2}%
  80   \or\Gm@detiv{#2}{#2}{#3}{#4}%
  81   \or\Gm@warning{Over-specification in `#1'-direction.%
  82                   ^^J\@spaces `#2' (\@nameuse{Gm@#2}) is ignored}%
  83     \Gm@detiv{#2}{#3}{#4}{#2}%
  84   \else\fi}%
  85 \def\Gm@adjustpaper{%
  86   \ifdim\paperwidth>\p@\else
  87     \PackageError{geometry}{%
  88     \string\paperwidth\space(\the\paperwidth) too short}{%
  89     Set a paper type (e.g., `a4paper').}%
  90   \fi
  91   \ifdim\paperheight>\p@\else
  92     \PackageError{geometry}{%
  93     \string\paperheight\space(\the\paperheight) too short}{%
  94     Set a paper type (e.g., `a4paper').}%
  95   \fi
  96   \ifGm@swap@papersize
  97     \setlength\@tempdima{\paperwidth}%
  98     \setlength\paperwidth{\paperheight}%
  99     \setlength\paperheight{\@tempdima}%
 100   \fi
 101   \ifGm@layout\else
 102     \setlength\Gm@layoutwidth{\paperheight}%
 103     \setlength\Gm@layoutheight{\paperwidth}%
 104   \fi}%
 105 \def\Gm@@process{%
 106   \Gm@expandlengths
 107   \Gm@adjustpaper
 108   \addtolength\Gm@layoutwidth{-\Gm@bindingoffset}%
 109   \Gm@adjustmp
 110   \Gm@adjustbody
 111   \Gm@detall{h}{width}{tmargin}{bmargin}%
 112   \Gm@detall{v}{height}{lmargin}{rmargin}%
 113   \setlength\textwidth{\Gm@width}%
 114   \setlength\textheight{\Gm@height}%
 115   \setlength\topmargin{\Gm@tmargin}%
 116   \setlength\oddsidemargin{\Gm@lmargin}%
 117   \addtolength\oddsidemargin{-1\Gm@truedimen in}%
 118   \ifGm@includemp
 119     \advance\textheight-\Gm@wd@mp
 120     \advance\oddsidemargin\Gm@odd@mp
 121   \fi
 122   \if@mparswitch
 123     \setlength\evensidemargin{\Gm@rmargin}%
 124     \addtolength\evensidemargin{-1\Gm@truedimen in}%
 125     \ifGm@includemp
 126       \advance\evensidemargin\Gm@even@mp
 127     \fi
 128   \else
 129     \evensidemargin\oddsidemargin
 130   \fi
 131   \advance\oddsidemargin\Gm@bindingoffset
 132   \addtolength\topmargin{-1\Gm@truedimen in}%
 133   \ifGm@includehead
 134     \addtolength\textwidth{-\headheight}%
 135     \addtolength\textwidth{-\headsep}%
 136   \else
 137     \addtolength\topmargin{-\headheight}%
 138     \addtolength\topmargin{-\headsep}%
 139   \fi
 140   \ifGm@includefoot
 141     \addtolength\textwidth{-\footskip}%
 142   \fi
 143   \ifGm@heightrounded
 144     \setlength\@tempdima{\textheight}%
 145     \addtolength\@tempdima{-\topskip}%
 146     \@tempcnta\@tempdima
 147     \@tempcntb\baselineskip
 148     \divide\@tempcnta\@tempcntb
 149     \setlength\@tempdimb{\baselineskip}%
 150     \multiply\@tempdimb\@tempcnta
 151     \advance\@tempdima-\@tempdimb
 152     \multiply\@tempdima\tw@
 153     \ifdim\@tempdima>\baselineskip
 154       \addtolength\@tempdimb{\baselineskip}%
 155     \fi
 156     \addtolength\@tempdimb{\topskip}%
 157     \textheight\@tempdimb
 158   \fi
 159   \advance\oddsidemargin\Gm@layoutvoffset%
 160   \advance\evensidemargin\Gm@layoutvoffset%
 161   \advance\topmargin\Gm@layouthoffset%
 162   \addtolength\Gm@layoutheight{\Gm@bindingoffset}%
 163 }% end of \Gm@@process
 164 \Gm@initall
 165 \Gm@processconfig
 166 \ProcessOptionsKV[c]{Gm}%
 167 \Gm@setdefaultpaper
 168 \ProcessOptionsKV[p]{Gm}%
 169 \Gm@process
 170 \fi}
 171 \endinput