texlive[48775] Master/install-tl: allow setting the font in installer

[commits+preining at tug.org]

Revision: 48775
          http://tug.org/svn/texlive?view=revision&revision=48775
Author:   preining
Date:     2018-09-27 17:05:13 +0200 (Thu, 27 Sep 2018)
Log Message:
-----------
allow setting the font in installer

Modified Paths:
--------------
    trunk/Master/install-tl

Modified: trunk/Master/install-tl
===================================================================
--- trunk/Master/install-tl	2018-09-27 15:05:00 UTC (rev 48774)
+++ trunk/Master/install-tl	2018-09-27 15:05:13 UTC (rev 48775)
@@ -189,6 +189,7 @@
 my $opt_scheme = "";
 my $opt_version = 0;
 my $opt_warn_checksums = 1;
+my $opt_font;
 # unusual cases:
 $::opt_select_repository = 0;
 our $opt_in_place = 0;
@@ -277,6 +278,7 @@
            "profile=s"                   => \$opt_profile,
            "scheme=s"                    => \$opt_scheme,
            "select-repository"           => \$::opt_select_repository,
+           "font=s"                      => \$opt_font,
            "tcl",                       # handled by wrapper
            "verify-downloads!"           => \$opt_verify_downloads,
            "version"                     => \$opt_version,
@@ -459,6 +461,13 @@
     tlwarn("  $@\n");
     tlwarn("Continuing in text mode...\n");
     $opt_gui = "text";
+  } else {
+    # try to set up fonts if $opt_gui is given
+    if ($opt_font) {
+      my @a;
+      push @a, "--font", $opt_font;
+      Tk::CmdLine::SetArguments(@a);
+    }
   }
   if ($opt_gui eq "text") {
     # we switched from GUI to non-GUI mode, tell the user and wait a bit