sub make_ext_hash {
  my $mime = shift;
  my %ext = ();
  for my $name (keys %$mime) {
    my %hr = (
      icon => $mime->{$name}{icon},
      name => $name,
    );
    $ext{$_} = \%hr for @{ $mime->{$name}{ext} };
  }
  return \%ext;
}