6 open(ACCELS, "<$ENV{HOME}/.geeqie/accels") or die "No accel file";
9 if (/gtk_accel_path "([^"]*)" *"([^"]*)"/)
16 $funcs{uc($key)} = $name;
22 open(ACCELS, "<hardcoded_keys") or die "No hardcoded_keys file";
25 if (/"([^"]*)" *"([^"]*)"/)
32 $funcs{uc($key)} = $name;
38 open(IN, "<keymap_template.svg") or die "No svg file";
39 open(OUT, ">keymap.svg") or die "Can't write output file";
46 my $name = $funcs{$key};
47 s/>key:([^<]*)</>$name</;
56 for my $key (keys %funcs)
60 print STDERR "not found: '$key'\n";