X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/2e8c1e3cc39cc1c6e4b858242d2a3a39481b9640..c4ca0bd3e94a7978772dadaa3b941ecc84741407:/keyboard/screen.eng.inc.pl

diff --git a/keyboard/screen.eng.inc.pl b/keyboard/screen.eng.inc.pl
index 893adf3..ce56357 100644
--- a/keyboard/screen.eng.inc.pl
+++ b/keyboard/screen.eng.inc.pl
@@ -10,66 +10,6 @@ description => [
 ],
 keywords => [qw' screen terminal window manager '],
 
-key => {
-	'a' => "literal a",
-	'A' => "title", # title
-	'^a'=> "last",
-	'b' => "send break", # break
-	'B' => "reopen break", # pow_break
-	'c' => "new", # screen
-	'C' => "clear", # clear
-	'd' => "detach", # detach
-	'D' => "detach logout", # pow_detach
-	'f' => "flow", # flow
-	'F' => "fit",
-	'^g'=> "vbell", # vbell
-	'h' => "hard<>copy", # hardcopy
-	'H' => "log", # log
-	'i' => "prop<>erties", # info
-	'I' => "login on", #XXX
-	'^i'=> "focus", # focus
-	'k' => "kill", # kill
-	'l' => "redraw", # redisplay
-	'L' => "login", # login
-	'm' => "last msg", # lastmsg
-	'M' => "moni<>tor", # monitor
-	'n' => "next", # next
-	'N' => "number", # number
-	'O' => "login off", #XXX
-	'^o'=> "other", # other
-	'p' => "previous", # prev
-	'q' => "xon", # xon
-	'Q' => "only", # only
-	'r' => "wrap", # wrap
-	's' => 'xoff', # xoff
-	't' => "time", # time
-	'v' => "version",
-	'^v'=> "digraph", # digraph
-	'w' => "windows", # windows
-	'W' => "width", # width
-	'x' => "lock screen", # lockscreen
-	'X' => "remove", # remove
-	'z' => "suspend", # suspend
-	'Z' => "reset",
-
-	"'" => "select", # select
-	'"' => "window<>list -b", # windowlist -b
-	':' => "colon", # colon
-	"\e"=> "copy", # copy
-	'^]'=> "paste .", # paste .
-	'|' => "split vert", # split -v
-	'{' => "history", # history
-	'}' => "history", # history
-	'=' => "remove buf<>fer", # removebuf
-	'*' => "displays", # displays
-	'.' => "dump<>termcap", # dumptermcap
-	',' => "license", # license
-	'-' => "select -", # select -
-	'_' => "silence", # silence
-	'>' => "writebuf", # writebuf
-	'<' => "readbuf", # readbuf
-},
-
 mode => {
 	'' => 'index',
 },
@@ -89,85 +29,85 @@ flag => {
 
 def => {
 	'' => {
-		'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',
+		'a' => ['g7', "literal a"],
+		'A' => ['g9 args', "title"], # title
+		'^a'=> ['g3', "last"],
+		'b' => ['g7', "send break"], # break
+		'B' => ['g7', "reopen break"], # pow_break
+		'^b'=> \'b',
+		'c' => ['g9', "new"], # screen
+		'C' => ['g2', "clear"], # clear
+		'^c'=> \'c',
+		'd' => ['g9', "detach"], # detach
+		'D' => ['g9', "detach logout"], # pow_detach
+		'^d'=> \'d',
+		'f' => ['g4', "flow"], # flow
+		'F' => ['g4', "fit"],
+		'^f'=> \'f',
+		'^g'=> ['g4', "vbell"], # vbell
+		'h' => ['g6', "hard<>copy"], # hardcopy
+		'H' => ['g5', "log"], # log
+		'^h'=> \'^p',
+		'i' => ['g1', "prop<>erties"], # info
+		'I' => ['g5', "login on"], #XXX
+		'^i'=> ['g2', "focus"], # focus
+		'k' => ['g5', "kill"], # kill
+		'K' => \'k',
+		'l' => ['g2', "redraw"], # redisplay
+		'L' => ['g5', "login"], # login
+		'^l'=> \'l',
+		'm' => ['g1', "last msg"], # lastmsg
+		'M' => ['g5', "moni<>tor"], # monitor
+		'^m'=> \'m',
+		'n' => ['g3', "next"], # next
+		'N' => ['g1', "number"], # number
+		'^n'=> \'n',
+		'O' => ['g5', "login off"], #XXX
+		'^o'=> ['g3', "other"], # other
+		'p' => ['g3', "previous"], # prev
+		'^p'=> \'p',
+		'q' => ['g4', "xon"], # xon
+		'Q' => ['g2', "only"], # only
+		'^q'=> \'q',
+		'r' => ['g4', "wrap"], # wrap
+		'^r'=> \'r',
+		's' => ['g4', 'xoff'], # xoff
+		'^s'=> \'s',
+		't' => ['g1', "time"], # time
+		'^t'=> \'t',
+		'v' => ['g1', "version"],
+		'^v'=> ['g7 arg arg linkdigraphs', "digraph"], # digraph
+		'w' => ['g1', "windows"], # windows
+		'W' => ['g4', "width"], # width
+		'^w'=> \'w',
+		'x' => ['g9', "lock screen"], # lockscreen
+		'X' => ['g2', "remove"], # remove
+		'^x'=> \'x',
+		'z' => ['g9', "suspend"], # suspend
+		'Z' => ['g9', "reset"],
+		'^z'=> \'z',
 
-		"'" => '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',
+		"'" => ['g3 arg', "select"], # select
+		'"' => ['g3', "window<>list -b"], # windowlist -b
+		':' => ['g4', "colon"], # colon
+		"\e"=> ['g6', "copy"], # copy
+		'[' => \'^[',
+		'^['=> \"\e",
+		'^]'=> ['g7', "paste ."], # paste .
+		']' => \'^]',
+		'|' => ['g2', "split vert"], # split -v
+		'{' => ['g7', "history"], # history
+		'}' => ['g7', "history"], # history
+		'=' => ['g6', "remove buf<>fer"], # removebuf
+		'^?'=> \'^h',
+		'*' => ['g1', "displays"], # displays
+		'.' => ['g9', "dump<>termcap"], # dumptermcap
+		',' => ['g1', "license"], # license
+		'-' => ['g3', "select -"], # select -
+		'_' => ['g5', "silence"], # silence
+		'>' => ['g6', "writebuf"], # writebuf
+		'<' => ['g6', "readbuf"], # readbuf
+		'^@'=> \'n',
 	},
 },
 }