add more spacing
[personal-kdebase.git] / workspace / kcontrol / keys / convertShortcuts.pl
blob9dc216ac6d0cf76d9c520c64f104e545b7ec7dd9
1 #!/usr/bin/perl
2 $keys=0;
3 foreach (<>) {
4 if(/^\[.*\]/) { $keys=0; }
5 if($keys==1) {
6 ($oldkey) = ($_ =~ /([^=]*)=.*/);
7 s/^Execute Command/Run Command/;
8 s/^Execute command/Run Command/;
9 s/^Lock screen/Lock Session/;
10 s/^Lock Screen/Lock Session/;
11 s/^Mouse emulation/Mouse Emulation/;
12 s/^Next keyboard layout/Switch to Next Keyboard Layout/;
13 s/Switch To Next Keyboard Layout/Switch to Next Keyboard Layout/;
14 s/^Screenshot of desktop/Desktop Screenshot/;
15 s/^Pop-up window operations menu/Window Operations Menu/;
16 s/^toggle-clipboard-actions/Enable\/Disable Clipboard Actions/;
17 s/^Screenshot of active window/Window Screenshot/;
18 s/^Show taskmanager/Show Taskmanager/;
19 s/^Show window list/Show Window List/;
20 s/^show-klipper-popupmenu/Show Klipper Popup-Menu/;
21 s/^Switch desktop left/Switch One Desktop to the Left/;
22 s/^Switch desktop right/Switch One Desktop to the Right/;
23 s/^Switch desktop down/Switch One Desktop Down/;
24 s/^Switch desktop up/Switch One Desktop Up/;
25 s/^Switch to desktop /Switch to Desktop /;
26 s/^Switch desktop next/Switch to Next Desktop/;
27 s/^Switch desktop previous/Switch to Previous Desktop/;
28 s/^Toggle Show Desktop/Toggle Showing Desktop/;
29 s/^Toggle raise and lower/Toggle Window Raise\/Lower/;
30 s/^Walk back through desktop list/Walk Through Desktop List \(Reverse\)/;
31 s/^Walk back through desktops/Walk Through Desktops \(Reverse\)/;
32 s/^Walk back through windows/Walk Through Windows \(Reverse\)/;
33 s/^Walk through desktop list/Walk Through Desktop List/;
34 s/^Walk through desktops/Walk Through Desktops/;
35 s/^Walk through windows/Walk Through Windows/;
36 s/^Window close/Window Close/;
37 s/^Window iconify/Window Iconify/;
38 s/^Window lower/Window Lower/;
39 s/^Window maximize/Window Maximize/;
40 s/^Window maximize horizontal/Window Maximize Horizontal/;
41 s/^Window maximize vertical/Window Maximize Vertical/;
42 s/^Window move/Window Move/;
43 s/^Window raise/Window Raise/;
44 s/^Window resize/Window Resize/;
45 s/^Window shade/Window Shade/;
46 s/^Window to Desktop /Window to Desktop /;
47 s/^Window to next desktop/Window to Next Desktop/;
48 s/^Window to previous desktop/Window to Previous Desktop/;
49 s/^repeat-last-klipper-action/Show Klipper Popup-Menu/;
50 ($newkey) = ($_ =~ /([^=]*)=.*/);
51 if ($oldkey ne $newkey) {
52 print "# DELETE " . $oldkey . "\n";
53 print $_
56 if(/\[Global Keys\]/) { $keys=1; print $_; }
57 if(/\[Global Shortcuts\]/) { $keys=1; print $_; }