1 |
package Xconfig::default; # $Id: default.pm 266062 2010-02-09 18:55:05Z anssi $ |
2 |
|
3 |
use diagnostics; |
4 |
use strict; |
5 |
|
6 |
use Xconfig::xfree; |
7 |
use keyboard; |
8 |
use common; |
9 |
use mouse; |
10 |
use modules::any_conf; |
11 |
|
12 |
|
13 |
sub configure { |
14 |
my ($do_pkgs, $o_keyboard, $o_mouse) = @_; |
15 |
|
16 |
my $keyboard = $o_keyboard || keyboard::read_or_default(); |
17 |
my $mouse = $o_mouse || do { |
18 |
my $mouse = mouse::read(); |
19 |
add2hash($mouse, mouse::detect(modules::any_conf->read)) if !$::noauto; |
20 |
$mouse; |
21 |
}; |
22 |
|
23 |
my $raw_X = Xconfig::xfree->empty_config; |
24 |
|
25 |
$raw_X->add_load_module('v4l'); |
26 |
|
27 |
config_mouse($raw_X, $do_pkgs, $mouse); |
28 |
|
29 |
$raw_X; |
30 |
} |
31 |
|
32 |
sub config_mouse { |
33 |
my ($raw_X, $do_pkgs, $mouse) = @_; |
34 |
mouse::set_xfree_conf($mouse, $raw_X); |
35 |
mouse::various_xfree_conf($do_pkgs, $mouse); |
36 |
} |
37 |
|
38 |
1; |
39 |
|