in message <200304252300.05778.felix.klee_at_inka.de>, wrote Felix E.
Klee thusly...
>
> On Friday 25 April 2003 20:21, Dan Espen wrote:
> > > I would like to remove all default FVWM keybindings. How could
> > > this be done?
> >
> > Read this section of the man page:
> >
> > BUILT-IN KEY AND MOUSE BINDINGS
>
> It only describes how to remove single bindings. However,
> I thought there is a command to remove all internal bindings. This
> would avoid problems when new bindings will be added in the future
> (or won't there?).
A crude way is to create permutations (or is it combinations?) of
all the keys & mouse buttons mapping to '-'; stick them in a file of
its own; then 'Read' it in before normal key bindings.
Here is one untested way to generate the syntax which are bound by
single modifier & in single context for ASCII values in [33,126] ...
#!perl -w
use strict;
my _at_context = qw/A R T F W D S/;
my _at_modifiers = qw/M S C N A L 1 2 3 4 5/;
my _at_characters = ( map( 'F' . $_ , (1..12) )
, map { chr $_ } ( 33 .. 126 )
);
for my $context ( _at_context )
{ for my $mod ( _at_modifiers )
{ for my $char ( _at_characters )
{ printf "key %s %s %s -\n" , $char , $context , $mod;
}
}
}
- parv
--
--
Visit the official FVWM web page at <URL: http://www.fvwm.org/>.
To unsubscribe from the list, send "unsubscribe fvwm" in the body of a
message to majordomo_at_fvwm.org.
To report problems, send mail to fvwm-owner_at_fvwm.org.
Received on Fri Apr 25 2003 - 16:39:18 BST