Mercurial > geeqie.yaz
view keymap/keymap.pl @ 1089:822d98c18062
Do a gtk_init before the parsing of command line arguments to allow gtk specific options. (See http://library.gnome.org/devel/gtk/2.14/gtk-running.html). Patch by Klaus Ethgen.
author | zas_ |
---|---|
date | Tue, 04 Nov 2008 17:11:53 +0000 |
parents | 113d8329cbd6 |
children |
line wrap: on
line source
#!/usr/bin/perl use strict; my %funcs; open(ACCELS, "<$ENV{HOME}/.geeqie/accels") or die "No accel file"; while (<ACCELS>) { if (/gtk_accel_path "([^"]*)" *"([^"]*)"/) { my $name = $1; my $key = $2; $name =~ s/.*\///; $key =~ s/</</g; $key =~ s/>/>/g; $funcs{uc($key)} = $name; } } close(ACCELS); open(ACCELS, "<hardcoded_keys") or die "No hardcoded_keys file"; while (<ACCELS>) { if (/"([^"]*)" *"([^"]*)"/) { my $name = $1; my $key = $2; $name =~ s/.*\///; $key =~ s/</</g; $key =~ s/>/>/g; $funcs{uc($key)} = $name; } } close(ACCELS); open(IN, "<keymap_template.svg") or die "No svg file"; open(OUT, ">keymap.svg") or die "Can't write output file"; while (<IN>) { if (/>key:([^<]*)</) { my $key = uc($1); my $name = $funcs{$key}; s/>key:([^<]*)</>$name</; delete $funcs{$key}; } print OUT; } close(IN); close(OUT); for my $key (keys %funcs) { if ($key) { print STDERR "not found: '$key'\n"; } }