[groff] 01/01: Place pdf in presentation mode if new commands used.

[Deri James]

deri pushed a commit to branch master
in repository groff.

commit ea2251991d7a80b271b284d5599ec8b06456863e
Author: Deri James <address@hidden>
Date:   Tue Mar 6 11:31:45 2018 +0000

    Place pdf in presentation mode if new commands used.
    
    * src/devices/gropdf/gropdf: The new commands which
    control page transitions should result in the pdf being
    opened in presentation mode.
---
 ChangeLog                    | 8 ++++++++
 src/devices/gropdf/gropdf.pl | 8 ++++++--
 2 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 25b6629..4dd7a6e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2018-03-01  Deri James  <address@hidden>
+
+       Place pdf in presentation mode if new commands used.
+
+       * src/devices/gropdf/gropdf: The new commands which
+       control page transitions should result in the pdf being
+       opened in presentation mode.
+
 2018-03-02  Werner LEMBERG  <address@hidden>
 
        Hyphenation exceptions in pattern files now obey `.hy' (#53196).
diff --git a/src/devices/gropdf/gropdf.pl b/src/devices/gropdf/gropdf.pl
index 8a4b4b6..a111fd9 100644
--- a/src/devices/gropdf/gropdf.pl
+++ b/src/devices/gropdf/gropdf.pl
@@ -136,6 +136,7 @@ my $noslide=0;
 my $transition={PAGE => {Type => '/Trans', S => '', D => 1, Dm => '/H', M => 
'/I', Di => 0, SS => 1.0, B => 0},
                BLOCK => {Type => '/Trans', S => '', D => 1, Dm => '/H', M => 
'/I', Di => 0, SS => 1.0, B => 0}};
 my $firstpause=0;
+my $present=0;
 
 $noslide=1 if exists($ENV{GROPDF_NOSLIDE}) and $ENV{GROPDF_NOSLIDE};
 
@@ -366,6 +367,7 @@ if ($cpageno > 0)
        OutStream($cpageno+1);
 }
 
+$cat->{PageMode}='/FullScreen' if $present;
 
 PutOutlines(address@hidden);
 
@@ -797,7 +799,7 @@ sub do_x
                }
                MakeXO();
                NewPage($trans);
-               $cat->{PageMode}='/FullScreen';
+               $present=1;
            }
            elsif ($par=~m/exec %%%%BEGINONCE/)
            {
@@ -816,7 +818,7 @@ sub do_x
                    }
                    MakeXO();
                    NewPage($trans);
-                   $cat->{PageMode}='/FullScreen';
+                   $present=1;
                }
            }
            elsif ($par=~m/exec %%%%ENDONCE/)
@@ -1219,6 +1221,8 @@ sub do_x
                    $transition->{BLOCK}->{SS}=$xprm[8] if $xprm[8] and 
$xprm[8] ne '.';
                    $transition->{BLOCK}->{B}=$xprm[9] if $xprm[9] and $xprm[9] 
ne '.';
                }
+
+               $present=1;
            }
        }
        elsif (lc(substr($xprm[0],0,9)) eq 'papersize')