[groff] 04/13: [gropdf]: Recognize "com10" paper format.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 948a6966584d79c2a80bc04eaf8003c81f7f9a74
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Tue Apr 26 23:19:02 2022 +1000

    [gropdf]: Recognize "com10" paper format.
    
    * src/devices/gropdf/gropdf.pl (ppsz): Recognize "com10" (U.S.
      commercial envelope) paper format.
    
    Addresses the original issue reported in
    <https://bugs.debian.org/1009248>.  We have however broadened its scope;
    see <https://savannah.gnu.org/bugs/?62344>.
    
    Also tweak code style to ease further expansion of `ppsz` hash.
---
 ChangeLog                    | 9 +++++++++
 src/devices/gropdf/gropdf.pl | 7 +++++--
 2 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index b72bc244..5eabd4f3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2022-04-27  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * src/devices/gropdf/gropdf.pl (ppsz): Recognize "com10" (U.S.
+       commercial envelope) paper format.
+
+       Addresses the original issue reported in
+       <https://bugs.debian.org/1009248>.  We have however broadened
+       its scope; see <https://savannah.gnu.org/bugs/?62344>.
+
 2022-04-27  Dave Kemper <saint.snit@gmail.com>
 
        * src/devices/gropdf/gropdf.pl (ppsz): Recognize ISO B-series
diff --git a/src/devices/gropdf/gropdf.pl b/src/devices/gropdf/gropdf.pl
index 77f3ec16..d3b8e9c8 100644
--- a/src/devices/gropdf/gropdf.pl
+++ b/src/devices/gropdf/gropdf.pl
@@ -143,7 +143,8 @@ my $bgbox='';               # Draw commands for boxes on 
this page
 
 $noslide=1 if exists($ENV{GROPDF_NOSLIDE}) and $ENV{GROPDF_NOSLIDE};
 
-my %ppsz=(     'ledger'=>[1224,792],
+my %ppsz=(
+       'ledger'=>[1224,792],
        'legal'=>[612,1008],
        'letter'=>[612,792],
        'a0'=>[2384,3370],
@@ -170,7 +171,9 @@ my %ppsz=(  'ledger'=>[1224,792],
        'c3'=>[918,1298],
        'c4'=>[649,918],
        'c5'=>[459,649],
-       'c6'=>[323,459] );
+       'c6'=>[323,459],
+       'com10'=>[297,684],
+);
 
 my $ucmap=<<'EOF';
 /CIDInit /ProcSet findresource begin