diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-08-30 12:17:19 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-08-30 12:17:19 +0000 |
| commit | 4edd598855aab2f9cc29c30f3a83342aac384dfe (patch) | |
| tree | e1db63fdbdc0859362e87d6e0585f0a306d70eaa /perl-install/keyboard.pm | |
| parent | 252887bbb4a9bdc2e5ecbb6e5aa760b387abe85d (diff) | |
| download | drakx-4edd598855aab2f9cc29c30f3a83342aac384dfe.tar drakx-4edd598855aab2f9cc29c30f3a83342aac384dfe.tar.gz drakx-4edd598855aab2f9cc29c30f3a83342aac384dfe.tar.bz2 drakx-4edd598855aab2f9cc29c30f3a83342aac384dfe.tar.xz drakx-4edd598855aab2f9cc29c30f3a83342aac384dfe.zip | |
most of the code of Xconfig::default::config_keyboard moved to keyboard::keyboard2full_xkb
Diffstat (limited to 'perl-install/keyboard.pm')
| -rw-r--r-- | perl-install/keyboard.pm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm index 5ede5c53d..b2db204fd 100644 --- a/perl-install/keyboard.pm +++ b/perl-install/keyboard.pm @@ -390,6 +390,23 @@ sub load { #- log::l("loaded $count keymap tables"); } +sub keyboard2full_xkb { + my ($keyboard) = @_; + + my $XkbLayout = keyboard2xkb($keyboard); + + my $XkbModel = + arch() =~ /sparc/ ? 'sun' : + $XkbLayout eq 'jp' ? 'jp106' : + $XkbLayout eq 'br' ? 'abnt2' : 'pc105'; + + $XkbLayout ? { + XkbLayout => $XkbLayout, + XkbModel => $XkbModel, + XkbOptions => $keyboard->{GRP_TOGGLE} ? "grp:$keyboard->{GRP_TOGGLE}" : undef, + } : { XkbDisable => undef }; +} + sub xmodmap_file { my ($keyboard) = @_; my $KEYBOARD = $keyboard->{KEYBOARD}; |