[30379] distfiles/yves/remap-bad-apple-keys-1.0.pl

[source_changes at macosforge.org]

Revision: 30379
          http://trac.macosforge.org/projects/macports/changeset/30379
Author:   yves at macports.org
Date:     2007-10-25 20:31:37 -0700 (Thu, 25 Oct 2007)

Log Message:
-----------
remove from yves

Removed Paths:
-------------
    distfiles/yves/remap-bad-apple-keys-1.0.pl

Deleted: distfiles/yves/remap-bad-apple-keys-1.0.pl
===================================================================
--- distfiles/yves/remap-bad-apple-keys-1.0.pl	2007-10-26 03:31:00 UTC (rev 30378)
+++ distfiles/yves/remap-bad-apple-keys-1.0.pl	2007-10-26 03:31:37 UTC (rev 30379)
@@ -1,29 +0,0 @@
-#!/usr/bin/perl
-
-my $VERSION = '1.0';
-
-my @keys = ('Up', 'Down', 'Left', 'Right');
-
-open (XMODMAP, "xmodmap -pk |") or die "couldn't run xmodmap -pk: $!\n";
-
-while (my $line = <XMODMAP>) {
-	chomp($line);
-	$line =~ s/^\s*(.*?)\s*$/$1/;
-	my ($keycode, @values) = split(/[	 ]+/, $line);
-
-	for my $index (0..$#values) {
-		$values[$index] =~ s/^\((.*)\)$/$1/;
-	}
-
-	my @primary = (shift @values, shift @values);
-
-	for my $key (@keys) {
-		if ($primary[1] eq $key) {
-			my @command = ('xmodmap', '-e', "keycode $keycode = $key");
-			print join(', ', @command), "\n" if (@ARGV);
-			system(@command);
-		}
-	}
-
-}
-

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20071025/f79aeec6/attachment.html