X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/5c98b043102c601569bd7c05861c084c316d528c..803fc2946b1c6a3b876cabea90ebac62ca6e55a9:/screen.inc.pl

diff --git a/screen.inc.pl b/screen.inc.pl
index dcc8ab0..84d2dea 100644
--- a/screen.inc.pl
+++ b/screen.inc.pl
@@ -1,106 +1,88 @@
 use utf8;
+{
 
 # screen version 4.00.03jw4
 
-{
-
-def => {
 '' => {
-	desc => 'index',
-
-	'a' => ['g6', "literal a"],
-	'A' => ['g8 args', "title"], # title
-	'^a'=> ['', "command key"],
-	'b' => ['g6', "send break"], # break
-	'B' => ['g6', "reopen break"], # pow_break
-	'^b'=> 'b',
-	'c' => ['g8', "new"], # screen
-	'C' => ['g1', "clear"], # clear
-	'^c'=> 'c',
-	'd' => ['g8', "detach"], # detach
-	'D' => ['g8', "detach logout"], # pow_detach
-	'^d'=> 'd',
-	'f' => ['g3', "flow"], # flow
-	'F' => ['g3', "fit"],
-	'^f'=> 'f',
-	'^g'=> ['g3', "vbell"], # vbell
-	'h' => ['g5', "hardcopy"], # hardcopy
-	'H' => ['g4', "log"], # log
-	'^h'=> '^p',
-	'i' => ['g0', "prop$sign{_}erties"], # info
-	'I' => ['g4', "login on"], #XXX
-	'^i'=> ['g1', "focus"], # focus
-	'k' => ['g4', "kill"], # kill
-	'K' => 'k',
-	'l' => ['g1', "redraw"], # redisplay
-	'L' => ['g4', "login"], # login
-	'^l'=> 'l',
-	'm' => ['g0', "last msg"], # lastmsg
-	'M' => ['g4', "moni$sign{_}tor"], # monitor
-	'^m'=> 'm',
-	'n' => ['g2', "next"], # next
-	'N' => ['g0', "number"], # number
-	'^n'=> 'n',
-	'O' => ['g4', "login off"], #XXX
-	'^o'=> ['g2', "other"], # other
-	'p' => ['g2', "previous"], # prev
-	'^p'=> 'p',
-	'q' => ['g3', "xon"], # xon
-	'Q' => ['g1', "only"], # only
-	'^q'=> 'q',
-	'r' => ['g3', "wrap"], # wrap
-	'^r'=> 'r',
-	's' => ['g3', 'xoff'], # xoff
-	'^s'=> 's',
-	't' => ['g0', "time"], # time
-	'^t'=> 't',
-	'v' => ['g0', "version"],
-	'^v'=> ['g6 arg arg linkdigraphs', "digraph"], # digraph
-	'w' => ['g0', "windows"], # windows
-	'W' => ['g3', "width"], # width
-	'^w'=> 'w',
-	'x' => ['g8', "lock screen"], # lockscreen
-	'X' => ['g1', "remove"], # remove
-	'^x'=> 'x',
-	'z' => ['g8', "suspend"], # suspend
-	'Z' => ['g8', "reset"],
-	'^z'=> 'z',
-
-	"'" => ['g2 arg', "select"], # select
-	'"' => ['g2', "window$sign{_}list -b"], # windowlist -b
-	':' => ['g3', "colon"], # colon
-	"\e"=> ['g5', "copy"], # copy
-	'[' => '^[',
-	'^['=> "\e",
-	'^]'=> ['g6', "paste ."], # paste .
-	']' => '^]',
-	'|' => ['g1', "split vert"], # split -v
-	'{' => ['g6', "history"], # history
-	'}' => ['g6', "history"], # history
-	'=' => ['g5', "remove buf"], # removebuf
-	'^?'=> '^h',
-	'*' => ['g0', "displays"], # displays
-	'.' => ['g8', "dump$sign{_}termcap"], # dumptermcap
-	',' => ['g0', "license"], # license
-	'-' => ['g2', "select -"], # select -
-	'_' => ['g4', "silence"], # silence
-	'>' => ['g5', "writebuf"], # writebuf
-	'<' => ['g5', "readbuf"], # readbuf
-	'^@'=> 'n',
-},
-},
-
-flag => {
-	g0 => ["info"],
-	g1 => ["display"],
-	g2 => ["select"],
-	g3 => ["config"],
-	g4 => ["window"],
-	g5 => ["buffer"],
-	g6 => ["contents"],
-	g8 => ["screen"],
+	'a' => 'g7',
+	'A' => 'g9 args', # title
+	'^a'=> 'g3',
+	'b' => 'g7', # break
+	'B' => 'g7', # pow_break
+	'^b'=> '=b',
+	'c' => 'g9', # screen
+	'C' => 'g2', # clear
+	'^c'=> '=c',
+	'd' => 'g9', # detach
+	'D' => 'g9', # pow_detach
+	'^d'=> '=d',
+	'f' => 'g4', # flow
+	'F' => 'g4',
+	'^f'=> '=f',
+	'^g'=> 'g4', # vbell
+	'h' => 'g6', # hardcopy
+	'H' => 'g5', # log
+	'^h'=> '=^p',
+	'i' => 'g1', # info
+	'I' => 'g5', #XXX
+	'^i'=> 'g2', # focus
+	'k' => 'g5', # kill
+	'K' => '=k',
+	'l' => 'g2', # redisplay
+	'L' => 'g5', # login
+	'^l'=> '=l',
+	'm' => 'g1', # lastmsg
+	'M' => 'g5', # monitor
+	'^m'=> '=m',
+	'n' => 'g3', # next
+	'N' => 'g1', # number
+	'^n'=> '=n',
+	'O' => 'g5', #XXX
+	'^o'=> 'g3', # other
+	'p' => 'g3', # prev
+	'^p'=> '=p',
+	'q' => 'g4', # xon
+	'Q' => 'g2', # only
+	'^q'=> '=q',
+	'r' => 'g4', # wrap
+	'^r'=> '=r',
+	's' => 'g4', # xoff
+	'^s'=> '=s',
+	't' => 'g1', # time
+	'^t'=> '=t',
+	'v' => 'g1',
+	'^v'=> 'g7 arg arg linkdigraphs', # digraph
+	'w' => 'g1', # windows
+	'W' => 'g4', # width
+	'^w'=> '=w',
+	'x' => 'g9', # lockscreen
+	'X' => 'g2', # remove
+	'^x'=> '=x',
+	'z' => 'g9', # suspend
+	'Z' => 'g9',
+	'^z'=> '=z',
 
-	arg => ["key$sign{arg}", "Commands with a dot need a char argument afterwards."],
+	"'" => 'g3 arg', # select
+	'"' => 'g3', # windowlist -b
+	':' => 'g4', # colon
+	"\e"=> 'g6', # copy
+	'[' => '=^[',
+	'^['=> "=\e",
+	'^]'=> 'g7', # paste .
+	']' => '=^]',
+	'|' => 'g2', # split -v
+	'{' => 'g7', # history
+	'}' => 'g7', # history
+	'=' => 'g6', # removebuf
+	'^?'=> '=^h',
+	'*' => 'g1', # displays
+	'.' => 'g9', # dumptermcap
+	',' => 'g1', # license
+	'-' => 'g3', # select -
+	'_' => 'g5', # silence
+	'>' => 'g6', # writebuf
+	'<' => 'g6', # readbuf
+	'^@'=> '=n',
 },
 
 }