Mercurial > hg > forks > geeqie
view keymap/keymap.pl @ 2890:627bd720b0a1
Merge merge requests 660, 658, 655 and 648
* github/merge-requests/660:
tr.po-update
* github/merge-requests/658:
Bug fix: reads of uninitialized data
* github/merge-requests/655:
fix build against exiv2-0.27.x
* github/merge-requests/648:
Correctly size image windows opened from collections
author | Klaus Ethgen <Klaus@Ethgen.de> |
---|---|
date | Tue, 05 Feb 2019 21:06:16 +0100 |
parents | 947ed00faccd |
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"; } }