X-Git-Url: http://git.grml.org/?a=blobdiff_plain;f=genrefcard.pl;h=057142ecf28836b13951eaea34b3b7982056bc2a;hb=refs%2Fheads%2Fmaster;hp=b2dea1d02d7eebefc7643e901cb059d791c713bb;hpb=384e2fbfb2df83ab6a513cc619d9f29c4322ead7;p=grml-gen-zshrefcard.git diff --git a/genrefcard.pl b/genrefcard.pl index b2dea1d..057142e 100755 --- a/genrefcard.pl +++ b/genrefcard.pl @@ -364,6 +364,25 @@ sub __keybinding { #{{{ #xprint(0, "!-> DEBUG: kbd: $kbd - value: $value - desc: $desc\n"); push(@{ $data{"keybindings-$secmap[$sec]"} }, "\\command\{$kbd\}\{$desc\}"); + } elsif ($input[$ln] =~ m!^.*bind2maps\s+([^-])+--\s+(.*)!) { + my ($maps, $rest) = ($1, $2); + my (@a) = split /\s+/, $rest, 2; + if ($a[0] ne q{-s}) { + push(@{ $data{"keybindings-$secmap[$sec]"} }, + "\\command\{$a[0]\}\{$desc\}"); + return 1; + } + my $seq; + $rest = $a[1]; + if ($rest =~ m!^'([^']+)'\s+!) { + $seq = $1; + } elsif ($rest =~ m!^"([^"]+)"\s+!) { + $seq = $1; + } else { + $seq = $rest; + } + $seq = demystify_keys($seq); + push(@{ $data{"keybindings-$secmap[$sec]"} }, "\\command\{$seq\}\{$desc\}"); } else { return 0; }