summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/keyboarddrake
blob: d2177b45982e9c232f3406be9a105e931420adf2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
#!/usr/bin/perl

use lib qw(/usr/lib/libDrakX);


use interactive;
use keyboard;
use Xconfigurator_consts;
use common qw(:system);
use c;

local $_ = join '', @ARGV;

/-h/ and die "usage: keyboarddrake [--expert]\n";

$::expert = /-expert/;
$::isStandalone = 1;

my $in = vnew interactive('su');

my $keyboard = keyboard::text2keyboard(
      $in->ask_from_list_(_("Keyboard"),
			  _("What is your keyboard layout?"),
			  [ keyboard::list() ],
			  keyboard::keyboard2text(keyboard::read(''))));

my $isNotDelete = $::expert && !$in->ask_yesorno("BackSpace", "Do you want the BackSpace to return Delete in console?", 1);

my $kmap = keyboard::keyboard2kmap($keyboard);
`loadkeys $kmap`;

my $xkb = keyboard::keyboard2xkb($keyboard);
`setxkbmap $xkb`;

my $f = "/etc/X11/XF86Config";
substInFile {
    if (/^Section "Keyboard"/ .. /^EndSection/) {
	s|^(\s*XkbLayout\s+).*|$1"$xkb"| 
	  and $_ .= join '', map { "    $_\n" } @{$xkb_options{$xkb} || []};
	s,^(\s*(XkbVariant|XkbOptions)\s+).*,,; # remove existing one
    }
} $f if -e $f && !$::testing;

keyboard::write('', $keyboard, $isNotDelete);

$in->exit(0);