diff options
Diffstat (limited to 'Master')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPostActions.pm | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLPostActions.pm b/Master/tlpkg/TeXLive/TLPostActions.pm index 9f23c6ed4ba..9d56f21cf31 100644 --- a/Master/tlpkg/TeXLive/TLPostActions.pm +++ b/Master/tlpkg/TeXLive/TLPostActions.pm @@ -261,6 +261,50 @@ $PostInstall{'bin-texlive'} = \&do_install_bin_texlive; $PostRemove{'bin-texlive'} = \&do_remove_bin_texlive; # +# texlive.infra +# ships all the readme.html/readme.XX.html files, and the index of all +# documents +sub do_install_texlive_infra { + my ($texdir) = @_; + if (win32()) { + add_menu_shortcut( + $mainmenu, + 'TeX Live Readme (en)', + '', # default pdf icon + $texdir.'/readme.html/readme.en.html', + '', + '', + ); + # try to also install the national language document + my $lang = TeXLive::TLWinGoo::reg_country(); + if ($lang) { + if (-r "$texdir/readme.html/readme.$lang.html") { + add_menu_shortcut( + $mainmenu, + "TeX Live Readme ($lang)", + '', # without anything default icon + $texdir."/readme.html/readme.$lang.html", + '', + '', + ); + } + } + } +} +sub do_remove_texlive_infra { + my ($texdir) = @_; + if (win32()) { + remove_menu_shortcut($mainmenu,'TeX Live Readme (en)'); + my $lang = TeXLive::TLWinGoo::reg_country(); + if ($lang) { + remove_menu_shortcut($mainmenu,"TeX Live Readme ($lang)"); + } + } +} +$PostInstall{'texlive.infra'} = \&do_install_bin_texlive_infra; +$PostRemove{'texlive.infra'} = \&do_remove_bin_texlive_infra; + +# # texlive-en # sub do_install_texlive_en { |