overhaul keyboard module include syntax
[sheet.git] / less.inc.pl
index b5572eb686959e7e689820ff854373636e5e2573..dcd651204e5069641ab75a1101a1af4bf5a170b3 100644 (file)
@@ -1,79 +1,76 @@
 use utf8;
-
-# less v418
+{ # less v418
 
 '' => {
-       desc => 'normal pager',
-
-       'b' => ["page up", 'pm more'],
+       'b' => ['pm more'],
        '^b'=> 'b',
-       'd' => ['scroll down', 'pm more'],
+       'd' => ['pm more'],
        '^d'=> 'd',
        'e' => 'j',
        '^e'=> 'j',
-       'f' => ["page down", 'pm more'],
+       'f' => ['pm more'],
        '^f'=> 'f',
-       'F' => ["follow", 'mo', 'Forward Forever'],
-       'g' => ["(first) line", 'pm'],
+       'F' => ['mo'],
+       'g' => ['pm'],
        '^g'=> '=',
-       'G' => ["last line", 'pm'],
-       'h' => ["help", 'mo more'],
+       'G' => ['pm'],
+       'h' => ['mo more'],
        'H' => 'h',
-       'j' => [$sign{down}, 'pm'],
-       'k' => [$sign{up}, 'pm'],
+       'j' => ['pm'],
+       'k' => ['pm'],
        '^k'=> 'k',
        '^l'=> 'r', # more
-       'm' => ["mark pos$sign{_}ition", 'po arg'],
+       'm' => ['po arg'],
        '^m'=> 'j',
-       'n' => ["next find", 'co more'],
-       'N' => ["prev find", 'co'],
+       'n' => ['co more'],
+       'N' => ['co'],
        '^n'=> 'j',
-       'p' => ["reset position", 'pm', 'beginning or Percentage'],
+       'p' => ['pm'],
        '^p'=> 'k',
-       'q' => ["quit", 'mv more'],
+       'q' => ['mv more'],
        'Q' => 'q',
-       'r' => ["redraw", 'ci'],
+       'r' => ['ci'],
        '^r'=> 'r',
-       'R' => ["refresh", 'ci'],
-       's' => ["save to file", 'mv arg'],
-       't' => ["next tag", 'co'],
-       'T' => ["prev tag", 'co'],
-       'u' => ['scroll up', 'pm'],
+       'R' => ['ci'],
+       's' => ['mv arg'],
+       't' => ['co'],
+       'T' => ['co'],
+       'u' => ['pm'],
        '^u'=> 'u',
-       'v' => ["edit", 'mv linkvi more'],
+       'v' => ['mv linkvi more'],
        '^v'=> 'f',
-       'V' => ["version", 'ci'],
-       'w' => ["page up and set window", 'pm'],
-       '^x'=> ["emacs aliases", 'mv arg mode^x'],
+       'V' => ['ci'],
+       'w' => ['pm'],
+       '^x'=> ['mv arg mode^x'],
        'y' => 'k',
        '^y'=> 'k',
-       'z' => ["set page down", 'pm more'],
+       'z' => ['pm more'],
 
-       '!' => ["shell command", 'mv more'],
-       '|' => ["pipe till mark", 'mv arg'],
-       ':' => ["com$sign{_}mand", 'mv arg mode:'],
-       '/' => ["find", 'co arg more'],
-       '?' => ["find rev.", 'co arg'],
+       '!' => ['mv more'],
+       '|' => ['mv arg'],
+       ':' => ['mv arg mode:'],
+       '/' => ['co arg more'],
+       '?' => ['co arg'],
        '%' => 'p',
-       '&' => ["filter match$sign{_}es", 'co arg'],
-       "'" => ["goto mark", 'po arg'],
-       '-' => ["toggle option", 'mv arg mode-'],
-       '_' => ["show option", 'ci arg mode-'],
-       '=' => ["file name", 'ci more'],
-       '+' => ["initial cmd", 'mo'],
+       '&' => ['co arg'],
+       "'" => ['po arg'],
+       '-' => ['mv arg mode-'],
+       '_' => ['ci arg mode-'],
+       '=' => ['ci more'],
+       '+' => ['mo'],
 
-       '(' => ["closing", 'co'],
+       '(' => ['co'],
        '<' => 'g',
        '>' => 'G',
 },
 
-'esc' => {
-       'n' => ["any next find", 'co'],
-       'N' => ["any prev find", 'co'],
-       'u' => ["mark search", 'ci', 'Undo'],
+'^[' => { # esc
+       'n' => ['co'],
+       'N' => ['co'],
+       'u' => ['ci'],
        'v' => 'b',
-       '(' => ["scroll left", 'pm'],
-       ')' => ["scroll right", 'pm'],
+       '(' => ['pm'],
+       ')' => ['pm'],
        '<' => 'g',
        '>' => 'G',
 },
@@ -84,64 +81,65 @@ use utf8;
 #},
 
 ':' => {
-       'd' => ["drop file", 'mo'],
-       'e' => ["open file", 'mo'],
+       'd' => ['mo'],
+       'e' => ['mo'],
        'f' => '=',
-       'n' => ["next file", 'mo more'],
-       'p' => ["prev file", 'mo more'],
+       'n' => ['mo more'],
+       'p' => ['mo more'],
        'q' => 'q',
        'Q' => ':q',
-       'x' => ["first file", 'mo'],
+       'x' => ['mo'],
 },
 
 '-' => {
-       'a' => ["advance find page", 'co'],
-       'b' => ["buffer space", 'mo arg'],
-       'B' => ["static buffer for pipes", 'mo'],
-       'c' => ["clear on scroll", 'pm'],
-       'd' => ["dumb term$sign{_}inal", 'mv'],
-       'D' => ["dos colours", 'mv arg ext'],
-       'e' => ["exit after eof", 'mo'],
-       'E' => ["exit at eof", 'mo'],
-       'f' => ["force open", 'mo'],
-       'F' => ["exit if 1 page", 'mo'],
-       'g' => ["hilight last match", 'co'],
-       'h' => ["scroll back limit", 'pm arg'],
-       'i' => ["ignore lower$sign{_}c$sign{_}ase", 'co'],
-       'I' => ["ignore case", 'co'],
-       'j' => ["top offset", 'po arg'],
-       'J' => ["status column", 'ci'],
-       'k' => ["key bind$sign{_}ing$sign{_}s", 'mv arg'],
-       'L' => [qq[ignore <span style="font-variant:small-caps">lesso$sign{_}pen</span> filter], 'mv'],
-       'm' => ["med. promp$sign{_}t tog$sign{_}gle", 'ci'],
-       'M' => ["long promp$sign{_}t tog$sign{_}gle", 'ci'],
-       'n' => ["count line num$sign{_}ber$sign{_}s", 'mv'],
-       'N' => ["show line n$sign{_}um$sign{_}ber$sign{_}s", 'ci'],
-       'o' => ["stdin to log", 'me arg'],
-       'O' => ["log overwrite", 'me arg'],
-       'p' => ["initial search", 'co arg'],
-       'P' => ["status line", 'ci arg', "Prompt"],
-       'q' => ["no info bell", 'mv', "Quiet"],
-       'Q' => ["no warn bell", 'mv', "Quiet!"],
-       'r' => ["raw chars", 'mv'],
-       'R' => ["ansi chars", 'mv'],
-       's' => ["squeeze blank lines", 'mv'],
-       'S' => ["no line wrap", 'mv'],
-       't' => ["find tag", 'co arg'],
-       'T' => ["tags file", 'co arg'],
-       'u' => ['parse \b \r', 'mv'],
-       'U' => ['escape \t \b \r', 'mv'],
+       'a' => ['co'],
+       'b' => ['mo arg'],
+       'B' => ['mo'],
+       'c' => ['pm'],
+       'd' => ['mv'],
+       'D' => ['mv arg ext'],
+       'e' => ['mo'],
+       'E' => ['mo'],
+       'f' => ['mo'],
+       'F' => ['mo'],
+       'g' => ['co'],
+       'h' => ['pm arg'],
+       'i' => ['co'],
+       'I' => ['co'],
+       'j' => ['po arg'],
+       'J' => ['ci'],
+       'k' => ['mv arg'],
+       'L' => ['mv'],
+       'm' => ['ci'],
+       'M' => ['ci'],
+       'n' => ['mv'],
+       'N' => ['ci'],
+       'o' => ['me arg'],
+       'O' => ['me arg'],
+       'p' => ['co arg'],
+       'P' => ['ci arg'],
+       'q' => ['mv'],
+       'Q' => ['mv'],
+       'r' => ['mv'],
+       'R' => ['mv'],
+       's' => ['mv'],
+       'S' => ['mv'],
+       't' => ['co arg'],
+       'T' => ['co arg'],
+       'u' => ['mv'],
+       'U' => ['mv'],
        'V' => 'V',
-       'w' => ["hilight page d$sign{_}own", 'mv'],
-       'W' => ["hilight forw$sign{_}ard", 'mv'],
-       'x' => ["tab stops", 'mv arg'],
-       'X' => ["no termcap init", 'mv'],
-       'y' => ["scroll limit fw$sign{_}d", 'pm arg'],
-       'z' => ["page size", 'pm arg'],
-       '"' => ["shell quotes", 'mv arg'],
-       '~' => ["outside tildes toggle", 'mv'],
-       '#' => ["col shift", 'pm arg'],
-       '-' => ["option name", 'mv arg'],
-       '+' => ["reset option", 'mv arg'],
+       'w' => ['mv'],
+       'W' => ['mv'],
+       'x' => ['mv arg'],
+       'X' => ['mv'],
+       'y' => ['pm arg'],
+       'z' => ['pm arg'],
+       '"' => ['mv arg'],
+       '~' => ['mv'],
+       '#' => ['pm arg'],
+       '-' => ['mv arg'],
+       '+' => ['mv arg'],
 },
 
+}