summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r--perl-install/lang.pm18
1 files changed, 18 insertions, 0 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 6e8c233b0..8264182ee 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -644,6 +644,24 @@ set_default_im('x-unikey', qw(vi_VN vi_VN.TCVN vi_VN.UTF-8 vi_VN.VISCII));
# CJK default input methods:
set_default_im('scim', qw(ja_JP ja_JP.UTF-8 ko_KR ko_KR.UTF-8 zh_CN zh_CN.UTF-8 zh_HK zh_HK.UTF-8 zh_SG zh_SG.UTF-8 zh_TW zh_TW.UTF-8));
+# keep the following list in sync with share/rpmsrate:
+my %IM2packages = (
+ 'scim' => {
+ generic => [ qw(scim scim-tables) ],
+ 'ko' => [ qw(scim-hangul) ],
+ 'zh' => [ qw(scim-chinese scim-tables) ],
+ },
+ 'scim+uim' => { generic => [ qw(scim-uim) ] },
+ 'uim' => { generic => [ qw(uim-applet) ] },
+ );
+
+sub IM2packages {
+ my ($im, $locale) = @_;
+ return if $im eq "None";
+ my $packages = $IM2packages{$im}{$locale} || $IM2packages{$im}{generic};
+ return $packages ? @$packages : $im;
+}
+
#- [0]: console font name
#- [1]: sfm map for console font (if needed)