summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPostActions.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-07-31 19:53:12 +0000
committerNorbert Preining <preining@logic.at>2008-07-31 19:53:12 +0000
commitc2375d88efff9d5758f32f1e22bff14faa575b01 (patch)
treecc106606f3b1ee48073d0b2f045a27828b7b6468 /Master/tlpkg/TeXLive/TLPostActions.pm
parent5a57b804e08ff83dbcafca27e4249dc2b898b55e (diff)
TLPostActions: install links to readme.html/ stuff into the win32 menu
git-svn-id: svn://tug.org/texlive/trunk@9953 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPostActions.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPostActions.pm44
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 {