workspace/kcontrol/keys/convertShortcuts.pl

   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 $_
  54         }
  55     }
  56     if(/\[Global Keys\]/) { $keys=1; print $_; }
  57     if(/\[Global Shortcuts\]/) { $keys=1; print $_; }
  58 }