code.delx.au - gnu-emacs/blob - etc/refcards/pdflayout.sty

   1 % Copyright (C) 2007-2015 Free Software Foundation, Inc.
   2
   3 % This file is part of GNU Emacs.
   4
   5 % GNU Emacs is free software: you can redistribute it and/or modify
   6 % it under the terms of the GNU General Public License as published by
   7 % the Free Software Foundation, either version 3 of the License, or
   8 % (at your option) any later version.
   9
  10 % GNU Emacs is distributed in the hope that it will be useful,
  11 % but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 % GNU General Public License for more details.
  14
  15 % You should have received a copy of the GNU General Public License
  16 % along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  17
  18 % This file defines `\pdflayout':
  19 %  - \pdflayout=(0) is A4 portrait,
  20 %  - \pdflayout=(1) is letter (US) portrait,
  21 %  - \pdflayout=(0l) is A4 landscape.
  22 %  - \pdflayout=(1l) is letter (US) landscape,
  23
  24 \input ifpdf.sty
  25
  26 \ifpdf
  27   \def\pdflayout=(#1#2){
  28     \if0#1 % A4
  29       \pdfpagewidth=21cm
  30       \pdfpageheight=29.7cm
  31     \else\if1#1 % Letter
  32       \pdfpagewidth=8.5in
  33       \pdfpageheight=11in
  34     \fi\fi
  35     \if l#2 % Landscape
  36       \edef\oldwidth{\the\pdfpagewidth}
  37       \pdfpagewidth=\pdfpageheight
  38       \pdfpageheight=\oldwidth
  39     \fi
  40   }
  41 \else
  42   \def\pdflayout=(#1#2){}
  43 \fi