summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/pdfmanagement-testphase/pdflscape-ltx.sty
blob: fdfe7b4279d66f1f2418dbfc8c0cec3dfbd1e167 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
%%
%% This is file `pdflscape-ltx.sty',
%%
%% Copyright (C) 2021 The LaTeX Project
%%
%% This work may be distributed and/or modified under the
%% conditions of the LaTeX Project Public License, either
%% version 1.3c of this license or (at your option) any later
%% version. This version of this license is in
%%    https://www.latex-project.org/lppl/lppl-1-3c.txt
%% and the latest version of this license is in
%%    https://www.latex-project.org/lppl.txt
%% and version 1.3 or later is part of all distributions of
%% LaTeX version 2005/12/01 or later.
%%
%% This work has the LPPL maintenance status "maintained".
%%
%% The Current Maintainers of this work are
%% The LaTeX Project
%%
%%
%% This work consists of the main source file pdflscape-ltx.sty
%%
\NeedsTeXFormat{LaTeX2e}
\ProvidesExplPackage{pdflscape-ltx}{2021-07-31}{0.95h}
 {Display of landscape pages in PDF - adaption of pdflscape to the PDFmanagement bundle (testphase)}

\DeclareOption*{\PassOptionsToPackage\CurrentOption{graphics}}
\ProcessOptions
\RequirePackage{lscape}
% this always turns in the same direction as pdflscape does too.
% left and right would need
% \pdfmanagement_add:nnn{ThisPage}{Rotate}{..}
% on every page (e.g. in a shipout hook) and some option to control the wanted
% orientation.

\tl_new:N\g__pdflscape_saverotate_tl
\hook_gput_code:nnn {env/landscape/begin}{pdflscape}
  {
    \pdfmanagement_get:nnN {Page}{Rotate}\l_tmpa_tl
    \tl_gset_eq:NN\g__pdflscape_saverotate_tl\l_tmpa_tl
    \clearpage
    \pdfmanagement_add:nnn{Page}{Rotate}{90}
  }
\hook_gput_code:nnn {env/landscape/after}{pdflscape}
 {
  \quark_if_no_value:NTF\g__pdflscape_saverotate_tl
   {\pdfmanagement_remove:nn{Page}{Rotate}}
   {\pdfmanagement_add:nnx{Page}{Rotate}{\g__pdflscape_saverotate_tl}}
 }

\endinput
%%
%% End of file `pdflscape-ltx.sty'.