%merge_bindings;
$platform = linux;
-$winkey = 'Mod4\>\<Super';
+$winkey = 'Win';
$make_cheatsheet = 1;
$make_accelmap = 0;
$merge_from = "";
+$html = 0;
GetOptions ("platform=s" => \$platform,
"winkey=s" => \$winkey,
"cheatsheet" => \$make_cheatsheet,
"accelmap" => \$make_accelmap,
- "merge=s" => \$merge_from);
+ "merge=s" => \$merge_from,
+ "html" => \$html);
if ($platform eq "darwin") {
$gtk_modifier_map{'PRIMARY'} = 'Control';
$gtk_modifier_map{'SECONDARY'} = 'Alt';
$gtk_modifier_map{'TERTIARY'} = 'Shift';
- $gtk_modifier_map{'LEVEL4'} = $winkey;
- $gtk_modifier_map{'WINDOW'} = 'Alt';
- $gtk_modifier_map{$winkey} => 'Win';
+ $gtk_modifier_map{'LEVEL4'} = 'Meta';
+ $gtk_modifier_map{'WINDOW'} = 'Meta';
+ $gtk_modifier_map{$winkey} => 'Meta';
$cs_modifier_map{'PRIMARY'} = 'Control';
$cs_modifier_map{'SECONDARY'} = 'Alt';
$cs_modifier_map{'TERTIARY'} = 'Shift';
- $cs_modifier_map{'LEVEL4'} = 'Win';
- $cs_modifier_map{'WINDOW'} = 'Alt';
- $cs_modifier_map{$winkey} => 'Win';
+ $cs_modifier_map{'LEVEL4'} = 'Meta';
+ $cs_modifier_map{'WINDOW'} = 'Meta';
+ $cs_modifier_map{$winkey} => 'Meta';
$mouse_modifier_map{'PRIMARY'} = 'Ctl';
$mouse_modifier_map{'SECONDARY'} = 'Alt';
$mouse_modifier_map{'TERTIARY'} = 'Shift';
- $mouse_modifier_map{'LEVEL4'} = 'Win';
- $mouse_modifier_map{'WINDOW'} = 'Alt';
- $mouse_modifier_map{$winkey} => 'Win';
+ $mouse_modifier_map{'LEVEL4'} = 'Meta';
+ $mouse_modifier_map{'WINDOW'} = 'Meta';
+ $mouse_modifier_map{$winkey} => 'Meta';
}
-%keycodes = (
- 'asciicircum' => '\\verb=^=',
- 'apostrophe' => '\'',
- 'bracketleft' => '[',
- 'bracketright' => ']',
- 'braceleft' => '\\{',
- 'braceright' => '\\}',
- 'backslash' => '$\\backslash$',
- 'slash' => '/',
- 'rightanglebracket' => '>',
- 'leftanglebracket' => '<',
- 'ampersand' => '\\&',
- 'comma' => ',',
- 'period' => '.',
- 'semicolon' => ';',
- 'colon' => ':',
- 'equal' => '=',
- 'minus' => '-',
- 'plus' => '+',
- 'grave' => '`',
- 'rightarrow' => '$\rightarrow$',
- 'leftarrow' => '$\\leftarrow$',
- 'uparrow' => '$\\uparrow$',
- 'downarrow' => '$\\downarrow$',
- 'Page_Down' => 'Page Down',
- 'Page_Up' => 'Page Up',
- 'space' => 'space',
- 'KP_' => 'KP$\_$',
- 'greater' => '>',
- 'less' => '<',
+%keycodes = ();
+
+if ($html) {
+ %keycodes = (
+ 'asciicircum' => '^',
+ 'apostrophe' => '\'',
+ 'bracketleft' => '[',
+ 'bracketright' => ']',
+ 'braceleft' => '{',
+ 'braceright' => '}',
+ 'backslash' => '\\',
+ 'slash' => '/',
+ 'rightanglebracket' => '>',
+ 'leftanglebracket' => '<',
+ 'ampersand' => '&',
+ 'comma' => ',',
+ 'period' => '.',
+ 'semicolon' => ';',
+ 'colon' => ':',
+ 'equal' => '=',
+ 'minus' => '-',
+ 'plus' => '+',
+ 'grave' => '`',
+ 'rightarrow' => '→',
+ 'leftarrow' => '←',
+ 'uparrow' => '↑',
+ 'downarrow' => '↓',
+ 'Page_Down' => 'PageDown',
+ 'Page_Up' => 'PageUp',
+ 'space' => 'space',
+ 'KP_Right' => 'KP-→',
+ 'KP_Left' => 'KP-←',
+ 'KP_Up' => 'KP-↑',
+ 'KP_Down' => 'KP-↓',
+ 'KP_0' => 'KP-0;',
+ 'greater' => '>',
+ 'less' => '<',
+ );
+} else {
+
+ %keycodes = (
+ 'asciicircum' => '\\verb=^=',
+ 'apostrophe' => '\'',
+ 'bracketleft' => '[',
+ 'bracketright' => ']',
+ 'braceleft' => '\\{',
+ 'braceright' => '\\}',
+ 'backslash' => '$\\backslash$',
+ 'slash' => '/',
+ 'rightanglebracket' => '>',
+ 'leftanglebracket' => '<',
+ 'ampersand' => '\\&',
+ 'comma' => ',',
+ 'period' => '.',
+ 'semicolon' => ';',
+ 'colon' => ':',
+ 'equal' => '=',
+ 'minus' => '-',
+ 'plus' => '+',
+ 'grave' => '`',
+ 'rightarrow' => '$\rightarrow$',
+ 'leftarrow' => '$\\leftarrow$',
+ 'uparrow' => '$\\uparrow$',
+ 'downarrow' => '$\\downarrow$',
+ 'Page_Down' => 'Page Down',
+ 'Page_Up' => 'Page Up',
+ 'space' => 'space',
+ 'KP_' => 'KP$\_$',
+ 'greater' => '>',
+ 'less' => '<',
);
+}
if ($merge_from) {
open (BINDINGS, $merge_from) || die ("merge from bindings: file not readable");
exit 0;
}
+if ($html) {
+
+ @groups_sorted_by_number = sort { $group_numbering{$a} <=> $group_numbering{$b} } keys %group_numbering;
+
+ foreach $gk (@groups_sorted_by_number) {
+
+ if ($gk =~ /^m/) {
+ # mouse stuff - ignore
+ next;
+ }
+
+ # $bref is a reference to the array of arrays for this group
+ $bref = $group_bindings{$gk};
+
+ if (scalar @$bref > 1) {
+
+ $name = $group_names{$gk};
+ $name =~ s/\\linebreak.*//;
+ $name =~ s/\\&/&/;
+ $name =~ s/\$\\_\$/-/g;
+ $name =~ s/\\[a-z]+ //g;
+ $name =~ s/[{}]//g;
+ $name =~ s/\\par//g;
+
+ print "<h3>$name</h3>\n";
+
+ $gtext = $group_text{$gk};
+ $gtext =~ s/\\linebreak.*//;
+ $gtext =~ s/\\&/&/;
+ $gtext =~ s/\$\\_\$/-/g;
+ $gtext =~ s/\\[a-z]+ //g;
+ $gtext =~ s/[{}]//g;
+ $gtext =~ s/\\par//g;
+
+ if (!($gtext eq "")) {
+ print "$gtext\n\n";
+ }
+
+ # ignore the first entry, which was empty
+
+ shift (@$bref);
+
+ # set up the list
+
+ print "<dl class=\"bindings\">\n";
+
+ # sort the array of arrays by the descriptive text for nicer appearance,
+ # and print them
+
+ for $bbref (sort { @$a[1] cmp @$b[1] } @$bref) {
+ # $bbref is a reference to an array
+
+ $binding = @$bbref[0];
+ $text = @$bbref[1];
+
+ if ($binding =~ /:/) { # mouse binding with "where" clause
+ ($binding,$where) = split (/:/, $binding, 2);
+ }
+
+ foreach $k (keys %cs_modifier_map) {
+ $binding =~ s/\@$k\@/$cs_modifier_map{$k}/;
+ }
+
+ # remove braces for HTML
+
+ $binding =~ s/></\+/g;
+ $binding =~ s/^<//;
+ $binding =~ s/>/\+/;
+
+ # substitute keycode names for something printable
+
+ $re = qr/${ \(join'|', map quotemeta, keys %keycodes)}/;
+ $binding =~ s/($re)/$keycodes{$1}/g;
+
+ # tidy up description
+
+ $descr = @$bbref[1];
+ $descr =~ s/\\linebreak.*//;
+ $descr =~ s/\\&/&/;
+ $descr =~ s/\$\\_\$/-/g;
+ $descr =~ s/\\[a-z]+ //g;
+ $descr =~ s/[{}]//g;
+ $descr =~ s/\\par//g;
+
+ print "<dt>$descr</dt><dd>$binding</dd>\n";
+ }
+
+ print "</dl>\n";
+
+ }
+ }
+ print " <!-- remove this if more text is added below -->\n";
+ exit 0;
+}
+
+
# Now print the cheatsheet
$boilerplate_header = <<END_HEADER;
\\documentclass[10pt,landscape]{article}
+%\\documentclass[10pt,landscape,a4paper]{article}
+%\\documentclass[10pt,landscape,letterpaper]{article}
\\usepackage{multicol}
\\usepackage{calc}
\\usepackage{ifthen}
% if using A4 paper. (This probably isnott strictly necessary.)
% If using another size paper, use default 1cm margins.
\\ifthenelse{\\lengthtest { \\paperwidth = 11in}}
- { \\geometry{top=.5in,left=1in,right=0in,bottom=.5in} }
+ { \\geometry{top=.5in,left=.5in,right=.5in,bottom=.5in} }
{\\ifthenelse{ \\lengthtest{ \\paperwidth = 297mm}}
{\\geometry{top=1cm,left=1cm,right=1cm,bottom=1cm} }
{\\geometry{top=1cm,left=1cm,right=1cm,bottom=1cm} }
\\rule{0.3\\linewidth}{0.25pt}
\\scriptsize
-Copyright \\copyright\\ 2009 ardour.org
+Copyright \\copyright\\ 2013 ardour.org
% Should change this to be date of file, not current date.
-%\\verb!$Revision: 1.13 $, $Date: 2008/05/29 06:11:56 $.!
-http://ardour.org/manual
+http://manual.ardour.org
\\end{multicols}
\\end{document}
projects / ardour.git / blobdiff