summaryrefslogtreecommitdiffstats
path: root/perl-install/keyboard.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-03-23 10:07:12 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-03-23 10:07:12 +0000
commitc9f86c7e305b54214444ad538fef1dbd98648f5a (patch)
tree9487b369bc48b81e9dd53483c5dd57944256afd1 /perl-install/keyboard.pm
parentb4f641721706292a9f7d46783089a22b5db438f5 (diff)
downloaddrakx-c9f86c7e305b54214444ad538fef1dbd98648f5a.tar
drakx-c9f86c7e305b54214444ad538fef1dbd98648f5a.tar.gz
drakx-c9f86c7e305b54214444ad538fef1dbd98648f5a.tar.bz2
drakx-c9f86c7e305b54214444ad538fef1dbd98648f5a.tar.xz
drakx-c9f86c7e305b54214444ad538fef1dbd98648f5a.zip
- az, tr and tr_f needs XkbOptions 'caps:shift'
- cleanup
Diffstat (limited to 'perl-install/keyboard.pm')
-rw-r--r--perl-install/keyboard.pm17
1 files changed, 9 insertions, 8 deletions
diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index 181877d39..7f3d90edd 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -414,22 +414,23 @@ sub load {
sub keyboard2full_xkb {
my ($keyboard) = @_;
- my $XkbLayout = keyboard2xkb($keyboard);
+ my $XkbLayout = keyboard2xkb($keyboard) or return { XkbDisable => '' };
my $XkbModel =
arch() =~ /sparc/ ? 'sun' :
$XkbLayout eq 'jp' ? 'jp106' :
$XkbLayout eq 'br' ? 'abnt2' : 'pc105';
- $XkbLayout ? {
+ {
XkbLayout => join(',', if_($keyboard->{GRP_TOGGLE}, 'us'), $XkbLayout),
XkbModel => $XkbModel,
- XkbOptions => $keyboard->{GRP_TOGGLE} ?
- join(',',
- if_($keyboard->{GRP_TOGGLE} eq 'rwin_toggle', 'compose:rwin'),
- "grp:$keyboard->{GRP_TOGGLE}",
- 'grp_led:scroll') : '',
- } : { XkbDisable => '' };
+ XkbOptions => join(',',
+ if_($keyboard->{GRP_TOGGLE},
+ if_($keyboard->{GRP_TOGGLE} eq 'rwin_toggle', 'compose:rwin'),
+ "grp:$keyboard->{GRP_TOGGLE}",
+ 'grp_led:scroll'),
+ if_(member($XkbLayout, 'az', 'tr', 'tr_f'), 'caps:shift')),
+ };
}
sub xmodmap_file {