diff options
Diffstat (limited to 'lib/keyboard.pm')
| -rw-r--r-- | lib/keyboard.pm | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/lib/keyboard.pm b/lib/keyboard.pm index 5065611..2fe829d 100644 --- a/lib/keyboard.pm +++ b/lib/keyboard.pm @@ -597,28 +597,28 @@ sub write { setVarsInSh("$::prefix/etc/sysconfig/keyboard", $keyboard); - if ($keyboard->{'KEYTABLE'}) { - my $h2 = { 'KEYMAP' => $keyboard->{'KEYTABLE'} }; + if ($keyboard->{KEYTABLE}) { + my $h2 = { 'KEYMAP' => $keyboard->{KEYTABLE} }; addVarsInShMode("$::prefix/etc/vconsole.conf", 0644, $h2); } my $xorgconf = "# Read and parsed by systemd-localed. It's probably wise not to edit this file\n" . "# manually too freely.\n" . - "Section \"InputClass\"\n" . - " Identifier \"system-keyboard\"\n" . - " MatchIsKeyboard \"on\"\n"; - my $isus = $keyboard->{'XkbLayout'} && $keyboard->{'XkbLayout'} eq "us"; - if ($keyboard->{'XkbLayout'} && !$isus) { - $xorgconf .= " Option \"XkbLayout\" \"" . $keyboard->{'XkbLayout'} . "\"\n"; + q(Section "InputClass"\n) . + qq( Identifier "system-keyboard"\n) . + q( MatchIsKeyboard "on"\n); + my $isus = $keyboard->{XkbLayout} && $keyboard->{XkbLayout} eq "us"; + if ($keyboard->{XkbLayout} && !$isus) { + $xorgconf .= " Option \"XkbLayout\" \"" . $keyboard->{XkbLayout} . "\"\n"; } - if ($keyboard->{'XkbModel'} && (!$isus || $keyboard->{'XkbModel'} ne "pc105")) { - $xorgconf .= " Option \"XkbModel\" \"" . $keyboard->{'XkbModel'} . "\"\n"; + if ($keyboard->{XkbModel} && (!$isus || $keyboard->{XkbModel} ne "pc105")) { + $xorgconf .= " Option \"XkbModel\" \"" . $keyboard->{XkbModel} . "\"\n"; } - if ($keyboard->{'XkbVariant'}) { - $xorgconf .= " Option \"XkbVariant\" \"" . $keyboard->{'XkbVariant'} . "\"\n"; + if ($keyboard->{XkbVariant}) { + $xorgconf .= " Option \"XkbVariant\" \"" . $keyboard->{XkbVariant} . "\"\n"; } - if ($keyboard->{'XkbOptions'}) { - $xorgconf .= " Option \"XkbOptions\" \"" . $keyboard->{'XkbOptions'} . "\"\n"; + if ($keyboard->{XkbOptions}) { + $xorgconf .= " Option \"XkbOptions\" \"" . $keyboard->{XkbOptions} . "\"\n"; } $xorgconf .= "EndSection\n"; output_p("$::prefix/etc/X11/xorg.conf.d/00-keyboard.conf", $xorgconf); |