X-Git-Url: http://git.shiar.net/descalc.git/blobdiff_plain/b2aba05a22d1f4036008c2d12874ddc9eb98edc0:/bindings.pm..7d9af85556b0e64c70e3641764b7b49a306723f3:/12_bindings.pm diff --git a/bindings.pm b/12_bindings.pm similarity index 73% rename from bindings.pm rename to 12_bindings.pm index 374a57d..9ea8a4f 100644 --- a/bindings.pm +++ b/12_bindings.pm @@ -1,13 +1,13 @@ # key bindings for DCT, by Shiar -# 1.08.1 2004-09-27 00:40 - moved from 1.8 main -# 1.08.2 2004-09-27 00:49 - single key alias to chs: \ (often close to _) -# 1.09.1 2004-10-11 21:45 - function keys moved to menu.pm -# 1.09.2 10-12 01:45 - alt+backspace and ^W for (hard) drop +# 1.08.1 200409270040 - moved from 1.8 main +# .2 200409270049 - single key alias to chs: \ (often close to _) +# 1.09.1 200410112145 - function keys moved to menu.pm +# .2 200410120145 - alt+backspace and ^W for (hard) drop +# .3 200410142200 - enter sent as chr 10 on non-curses terminals use strict; use warnings; -use utf8; %alias = ( chr 4 => "quit", # ^D @@ -25,7 +25,8 @@ use utf8; "\033\010" => "drop", # alt+backspace "\033\177" => "drop", # alt+backspace "\027" => "drop", # ^W - chr 13 => "enter", # enter + chr 10 => "enter", # enter (terminal) + chr 13 => "enter", # enter (curses) ' ' => "enter", # space '=' => "sto", # @@ -43,8 +44,8 @@ use utf8; "s" => "sin", "\033s" => "asin", - "c" => "cos", #todo: u? o? - "\033c" => "acos", + "o" => "cos", # or u? + "\033o" => "acos", "t" => "tan", "\033t" => "atan", "l" => "log", @@ -55,9 +56,13 @@ use utf8; "\033q" => "sqrt", "x" => "^", "\033x" => "xroot", - "\033^" => "xroot", + "\033^" => "xroot", # for consistency "v" => "inv", ); # %alias -1; +return { + author => "Shiar", + title => "default key bindings", + version => "1.9.3", +};