[groff] 21/31: tmac/papersize.tmac: Slightly refactor.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 32c258c2424782b85cdf58c0179c7bce1ade41bc
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Mon Jan 31 02:57:15 2022 +1100

    tmac/papersize.tmac: Slightly refactor.
    
    * tmac/papersize.tmac: Use new `stringdown` request instead of a
      combination of `tr`, `di`, `asciify`, and `chop`.
---
 ChangeLog           |  6 ++++++
 tmac/papersize.tmac | 14 ++------------
 2 files changed, 8 insertions(+), 12 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index b62b623d..7db3edd7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2022-01-31  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * tmac/papersize.tmac: Slightly refactor.  Use new `stringdown`
+       request instead of a combination of `tr`, `di`, `asciify`, and
+       `chop`.
+
 2022-01-27  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        [man]: Slightly refactor.
diff --git a/tmac/papersize.tmac b/tmac/papersize.tmac
index 0a3b9183..fc0058ac 100644
--- a/tmac/papersize.tmac
+++ b/tmac/papersize.tmac
@@ -108,18 +108,8 @@
 .
 .  \" Save the input parameter for a later diagnostic.
 .  ds paper-arg \*[paper]\"
-.  \" We assume that letters a-z and A-Z aren't mapped during start-up.
-.  tr AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz
-.  di lowercase
-.    nop \*[paper]
-.    br
-.  di
-.  asciify lowercase
-.  chop lowercase
-.  tr AABBCCDDEEFFGGHHIIJJKKLLMMNNOOPPQQRRSSTTUUVVWWXXYYZZ
-.  ds paper \*[lowercase]
-.  rm lowercase
-.
+.  ds paper \*[paper-arg]\"
+.  stringdown paper
 .  ds paper-p \*[paper]
 .  ds paper-l \*[paper]
 .  length paper-n \*[paper]