;OCL{{{}}} ;OCL{{{ aliases @if-using ( ALIEN-KEYTABLES ) ;OCL{{{ alien aliases @use ( ALIASES ) @include modeori.ktb @use not( ALIASES ) ;OCL}}} @fi @if-using not( ALIEN-KEYTABLES ) ;OCL{{{ default modeori aliases @if-using () @start-reference-copy modeori-fun/terms ;OCL{{{ decription of this file ; ; This files contains all terminal dependend data.Modeori includes this file ; more than once in different environements. So extension should be made in ; the following way: ;OCL{{{ example ; @if-using ( terminal-flag ) ; indicating this terminal ; @if-using ( term-alias ) ; modeori needs the aliases ; ( terminal ( NAME ) ; NAME = value for TERM/ORIGAMITERM ; ... ; list of aliases ; ) ; @fi ; @if-using ( term-alias ) ; modeori needs used keytypes ; @use ( xxx-key ... ) ; use keys xxx, ... ; ; xxx=del, ; ; esc-del ; ; backs ; ; ctrl-h ; ; fx ; ; cursor ; ; tab ; ; help ; ; home ; ; page ; ; clreol ; ; delline ; ; line ; ; misc ; ; keypad ; @fi ; @if-using ( use-xxx-key ) ; for each key class, which is ; @if-using ( xxx ) ; supported ; NAME ; @fi ; @fi ; @use ( r-key ) ; if right block is used ;OCL}}} ; Adding terminals should also change the reference in the info file! ;OCL}}} ;OCL{{{ default aliases @if-using ( term-alias ) ( alias space ( " ) ) ( alias return ( C-J ) ) ( alias return ( C-M ) ) @fi ;OCL}}} ;OCL{{{ terminal xterm @if-using ( xterm ) ;OCL{{{ aliases @if-using ( term-alias ) ( termalias xterm ( xterms ) ) ( terminal ( xterm ) ( alias backspace ( C-H ) ) ( alias delete ( C-? ) ) ( alias tab ( C-I ) ) ( alias down ( C-[ "O "B ) ) ( alias left ( C-[ "O "D ) ) ( alias right ( C-[ "O "C ) ) ( alias up ( C-[ "O "A ) ) ( alias f1 ( $esc "f "1 ) ) ( alias f1 ( C-[ "[ "1 "1 "~ ) ) ( alias f2 ( $esc "f "2 ) ) ( alias f2 ( C-[ "[ "1 "2 "~ ) ) ( alias f3 ( $esc "f "3 ) ) ( alias f3 ( C-[ "[ "1 "3 "~ ) ) ( alias f4 ( $esc "f "4 ) ) ( alias f4 ( C-[ "[ "1 "4 "~ ) ) ( alias f5 ( $esc "f "5 ) ) ( alias f6 ( $esc "f "6 ) ) ( alias f7 ( $esc "f "7 ) ) ( alias f8 ( $esc "f "8 ) ) ( alias f9 ( $esc "f "9 ) ) ( alias f10 ( $esc "f "0 ) ) ) @fi ;OCL}}} ;OCL{{{ used keys @if-using ( term-alias ) @use ( del-key esc-del-key backs-key fx-key cursor-key tab-key ) @fi @if-using ( use-del-key use-esc-del-key use-backs-key use-fx-key use-cursor-key use-tab-key ) xterm @fi ;OCL}}} @fi ;OCL}}} ;OCL{{{ other terminals @if-using not( AMIGA ) @if-using not( BASE ) @if-using ( new-terminal ) @include modeori-fun/autoterm @fi @fi @fi ;OCL}}} ;OCL{{{ terminals, using a slightly different format ; The entries for sun/SUN, AMIGA differ from the above ; mentioned format. This must be done, to: ; - prevent redundancy ; - special usage of the keypad! ;OCL{{{ sun keyboards, application mode on, edt-simulation @if-using ( SUNEDT ) ;OCL{{{ aliases @if-using ( term-alias ) ( terminal SUNEDT ( alias backspace ( C-H ) ) ( alias delete ( C-? ) ) ( alias tab ( C-I ) ) ( alias down ( C-[ "[ "B ) ) ( alias left ( C-[ "[ "D ) ) ( alias right ( C-[ "[ "C ) ) ( alias up ( C-[ "[ "A ) ) ( alias f1 ( C-[ "[ "2 "2 "4 "z ) ) ( alias f1 ( $esc "f "1 ) ) ( alias f2 ( C-[ "[ "2 "2 "5 "z ) ) ( alias f2 ( $esc "f "2 ) ) ( alias f3 ( C-[ "[ "2 "2 "6 "z ) ) ( alias f3 ( $esc "f "3 ) ) ( alias f4 ( C-[ "[ "2 "2 "7 "z ) ) ( alias f4 ( $esc "f "4 ) ) ( alias f5 ( C-[ "[ "2 "2 "8 "z ) ) ( alias f5 ( $esc "f "5 ) ) ( alias f6 ( C-[ "[ "2 "2 "9 "z ) ) ( alias f6 ( $esc "f "6 ) ) ( alias f7 ( C-[ "[ "2 "3 "0 "z ) ) ( alias f7 ( $esc "f "7 ) ) ( alias f8 ( C-[ "[ "2 "3 "1 "z ) ) ( alias f8 ( $esc "f "8 ) ) ( alias f9 ( C-[ "[ "2 "3 "2 "z ) ) ( alias f9 ( $esc "f "9 ) ) ( alias f10 ( C-[ "[ "2 "3 "3 "z ) ) ( alias f10 ( $esc "f "0 ) ) ( alias DelLine ( C-[ "[ "2 "0 "8 "z ) ) ( alias DelWord ( C-[ "[ "2 "0 "9 "z ) ) ( alias DelChar ( C-[ "[ "2 "1 "0 "z ) ) ( alias Gold ( C-[ "[ "2 "1 "1 "z ) ) ( alias Help ( C-[ "[ "2 "1 "2 "z ) ) ( alias Find ( C-[ "[ "2 "1 "3 "z ) ) ( alias Page ( C-[ "[ "2 "1 "4 "z ) ) ( alias Section ( C-[ "[ "2 "1 "5 "z ) ) ( alias Append ( C-[ "[ "2 "1 "6 "z ) ) ( alias Advance ( C-[ "[ "2 "1 "7 "z ) ) ( alias Backup ( C-[ "[ "2 "1 "8 "z ) ) ( alias Cut ( C-[ "[ "2 "1 "9 "z ) ) ( alias Word ( C-[ "[ "2 "2 "0 "z ) ) ( alias EOL ( C-[ "[ "2 "2 "1 "z ) ) ( alias Char ( C-[ "[ "2 "2 "2 "z ) ) ( alias SOL ( $esc "[ "2 "z ) ) ( alias Select ( $esc "[ "2 "2 "3 "z ) ) ) @fi ;OCL}}} ;OCL{{{ used keys @if-using ( term-alias ) @use ( del-key esc-del-key backs-key fx-key cursor-key tab-key edt-key ) @fi @if-using ( use-del-key use-esc-del-key use-backs-key use-fx-key use-cursor-key use-tab-key use-edt-key ) SUNEDT @fi ;OCL}}} @fi ;OCL}}} ;OCL{{{ sun keyboards, application mode on @if-using ( sun ) ;OCL{{{ sun and SUN use the same tables! @if-using ( term-alias ) ( termalias sun ( SUN ) ) @fi ;OCL}}} ;OCL{{{ aliases @if-using ( term-alias ) ( terminal sun ;OCL{{{ single key aliases ( alias backspace ( C-H ) ) ( alias delete ( C-? ) ) ( alias tab ( C-I ) ) ( alias down ( C-[ "[ "B ) ) ( alias left ( C-[ "[ "D ) ) ( alias right ( C-[ "[ "C ) ) ( alias up ( C-[ "[ "A ) ) ( alias f1 ( C-[ "[ "2 "2 "4 "z ) ) ( alias f1 ( $esc "f "1 ) ) ( alias f2 ( C-[ "[ "2 "2 "5 "z ) ) ( alias f2 ( $esc "f "2 ) ) ( alias f3 ( C-[ "[ "2 "2 "6 "z ) ) ( alias f3 ( $esc "f "3 ) ) ( alias f4 ( C-[ "[ "2 "2 "7 "z ) ) ( alias f4 ( $esc "f "4 ) ) ( alias f5 ( C-[ "[ "2 "2 "8 "z ) ) ( alias f5 ( $esc "f "5 ) ) ( alias f6 ( C-[ "[ "2 "2 "9 "z ) ) ( alias f6 ( $esc "f "6 ) ) ( alias f7 ( C-[ "[ "2 "3 "0 "z ) ) ( alias f7 ( $esc "f "7 ) ) ( alias f8 ( C-[ "[ "2 "3 "1 "z ) ) ( alias f8 ( $esc "f "8 ) ) ( alias f9 ( C-[ "[ "2 "3 "2 "z ) ) ( alias f9 ( $esc "f "9 ) ) ( alias f10 ( C-[ "[ "2 "3 "3 "z ) ) ( alias f10 ( $esc "f "0 ) ) ( alias R1 ( C-[ "[ "2 "0 "8 "z ) ) ( alias R2 ( C-[ "[ "2 "0 "9 "z ) ) ( alias R3 ( C-[ "[ "2 "1 "0 "z ) ) ( alias R4 ( C-[ "[ "2 "1 "1 "z ) ) ( alias R5 ( C-[ "[ "2 "1 "2 "z ) ) ( alias R6 ( C-[ "[ "2 "1 "3 "z ) ) ( alias R7 ( C-[ "[ "2 "1 "4 "z ) ) ( alias R8 ( C-[ "[ "2 "1 "5 "z ) ) ( alias R9 ( C-[ "[ "2 "1 "6 "z ) ) ( alias R10 ( C-[ "[ "2 "1 "7 "z ) ) ( alias R11 ( C-[ "[ "2 "1 "8 "z ) ) ( alias R12 ( C-[ "[ "2 "1 "9 "z ) ) ( alias R13 ( C-[ "[ "2 "2 "0 "z ) ) ( alias R13 ( $esc "[ "2 "z ) ) ( alias R14 ( C-[ "[ "2 "2 "1 "z ) ) ( alias R15 ( C-[ "[ "2 "2 "2 "z ) ) ( alias L1 ( C-[ "[ "1 "9 "2 ) ) ( alias L2 ( C-[ "[ "1 "9 "3 ) ) ( alias L3 ( C-[ "[ "1 "9 "4 ) ) ( alias L4 ( C-[ "[ "1 "9 "5 ) ) ( alias L5 ( C-[ "[ "1 "9 "6 ) ) ( alias L6 ( C-[ "[ "1 "9 "7 ) ) ( alias L7 ( C-[ "[ "1 "9 "8 ) ) ( alias L8 ( C-[ "[ "1 "9 "9 ) ) ( alias L9 ( C-[ "[ "2 "0 "0 ) ) ( alias L10 ( C-[ "[ "2 "0 "1 ) ) ( alias help ( C-[ "[ "1 "9 "6 ) ) ;OCL}}} ;OCL{{{ meta-key aliases ( alias R13/Meta-! ( $R13 "! ) ) ( alias R13/Meta-? ( $R13 "? ) ) ( alias R13/Meta-0 ( $R13 "0 ) ) ( alias R13/Meta-1 ( $R13 "1 ) ) ( alias R13/Meta-2 ( $R13 "2 ) ) ( alias R13/Meta-3 ( $R13 "3 ) ) ( alias R13/Meta-4 ( $R13 "4 ) ) ( alias R13/Meta-5 ( $R13 "5 ) ) ( alias R13/Meta-6 ( $R13 "6 ) ) ( alias R13/Meta-7 ( $R13 "7 ) ) ( alias R13/Meta-8 ( $R13 "8 ) ) ( alias R13/Meta-9 ( $R13 "9 ) ) ( alias R13/Meta-a ( $R13 "a ) ) ( alias R13/Meta-b ( $R13 "b ) ) ( alias R13/Meta-c ( $R13 "c ) ) ( alias R13/Meta-d ( $R13 "d ) ) ( alias R13/Meta-e ( $R13 "e ) ) ( alias R13/Meta-f ( $R13 "f ) ) ( alias R13/Meta-g ( $R13 "g ) ) ( alias R13/Meta-h ( $R13 "h ) ) ( alias R13/Meta-i ( $R13 "i ) ) ( alias R13/Meta-j ( $R13 "j ) ) ( alias R13/Meta-k ( $R13 "k ) ) ( alias R13/Meta-l ( $R13 "l ) ) ( alias R13/Meta-m ( $R13 "m ) ) ( alias R13/Meta-n ( $R13 "n ) ) ( alias R13/Meta-o ( $R13 "o ) ) ( alias R13/Meta-p ( $R13 "p ) ) ( alias R13/Meta-q ( $R13 "q ) ) ( alias R13/Meta-r ( $R13 "r ) ) ( alias R13/Meta-s ( $R13 "s ) ) ( alias R13/Meta-t ( $R13 "t ) ) ( alias R13/Meta-u ( $R13 "u ) ) ( alias R13/Meta-v ( $R13 "v ) ) ( alias R13/Meta-w ( $R13 "w ) ) ( alias R13/Meta-x ( $R13 "x ) ) ( alias R13/Meta-y ( $R13 "y ) ) ( alias R13/Meta-z ( $R13 "z ) ) ( alias R13/Meta-R1 ( $R13 $R1 ) ) ( alias R13/Meta-R2 ( $R13 $R2 ) ) ( alias R13/Meta-R3 ( $R13 $R3 ) ) ( alias R13/Meta-R4 ( $R13 $R4 ) ) ( alias R13/Meta-R5 ( $R13 $R5 ) ) ( alias R13/Meta-R6 ( $R13 $R6 ) ) ( alias R13/Meta-R7 ( $R13 $R7 ) ) ( alias R13/Meta-R8 ( $R13 $R8 ) ) ( alias R13/Meta-R9 ( $R13 $R9 ) ) ( alias R13/Meta-R10 ( $R13 $R10 ) ) ( alias R13/Meta-R11 ( $R13 $R11 ) ) ( alias R13/Meta-R12 ( $R13 $R12 ) ) ( alias R13/Meta-R13 ( $R13 $R13 ) ) ( alias R13/Meta-R14 ( $R13 $R14 ) ) ( alias R13/Meta-R15 ( $R13 $R15 ) ) ( alias R13/Meta-left ( $R13 $left ) ) ( alias R13/Meta-right ( $R13 $right ) ) ( alias R13/Meta-up ( $R13 $up ) ) ( alias R13/Meta-down ( $R13 $down ) ) ;OCL}}} ;OCL{{{ unbind-keys ( alias unbind-unused-sequences ( $R13 * ) ) ( alias unbind-unused-sequences ( C-[ "[ "2 * * "z ) ) ( alias unbind-unused-sequences ( C-[ "[ "1 * * "z ) ) ;OCL}}} ) @fi ;OCL}}} ;OCL{{{ used keys @if-using ( term-alias ) @use ( del-key esc-del-key backs-key fx-key cursor-key tab-key r-key l-key help-key ) @fi @if-using ( use-del-key use-esc-del-key use-backs-key use-fx-key use-cursor-key use-tab-key use-r-key use-l-key use-help-key use-unbind-key ) sun @fi ;OCL}}} @fi ;OCL}}} ;OCL{{{ linux console @if-using ( linux ) ;OCL{{{ con80x25 and console use the same tables! @if-using ( term-alias ) ( termalias con80x25 ( console ) ) @fi ;OCL}}} ;OCL{{{ aliases @if-using ( term-alias ) ( terminal con80x25 ;OCL{{{ single key aliases ( alias backspace ( C-H ) ) ( alias delete ( C-? ) ) ( alias delete ( C-[ "[ "3 "~ ) ) ( alias tab ( C-I ) ) ( alias down ( C-[ "O "B ) ) ( alias left ( C-[ "O "D ) ) ( alias right ( C-[ "O "C ) ) ( alias up ( C-[ "O "A ) ) ( alias f1 ( $esc "f "1 ) ) ( alias f2 ( $esc "f "2 ) ) ( alias f3 ( $esc "f "3 ) ) ( alias f4 ( $esc "f "4 ) ) ( alias f5 ( $esc "f "5 ) ) ( alias f6 ( $esc "f "6 ) ) ( alias f7 ( $esc "f "7 ) ) ( alias f8 ( $esc "f "8 ) ) ( alias f9 ( $esc "f "9 ) ) ( alias f10 ( $esc "f "0 ) ) ( alias R1 ( C-[ "[ "O "Q ) ) ( alias R2 ( C-[ "O "R ) ) ( alias R3 ( C-[ "[ "O "S ) ) ( alias R4 ( C-[ "O "w ) ) ( alias R5 ( C-[ "O "x ) ) ( alias R6 ( C-[ "O "y ) ) ( alias R7 ( C-[ "O "t ) ) ( alias R8 ( C-[ "O "u ) ) ( alias R9 ( C-[ "O "v ) ) ( alias R10 ( C-[ "O "q ) ) ( alias R11 ( C-[ "O "r ) ) ( alias R12 ( C-[ "O "s ) ) ( alias R13 ( C-[ "O "p ) ) ( alias R14 ( C-[ "O "n ) ) ( alias R15 ( C-[ "O "M ) ) ( alias home ( C-[ "[ "1 "~ ) ) ( alias home-down ( C-[ "[ "4 "~ ) ) ( alias previous-page ( C-[ "[ "5 "~ ) ) ( alias next-page ( C-[ "[ "6 "~ ) ) ( alias insert-char ( C-[ "[ "2 "~ ) ) ;OCL}}} ;OCL{{{ meta-key aliases ( alias R13/Meta-! ( $R13 "! ) ) ( alias R13/Meta-? ( $R13 "? ) ) ( alias R13/Meta-0 ( $R13 "0 ) ) ( alias R13/Meta-1 ( $R13 "1 ) ) ( alias R13/Meta-2 ( $R13 "2 ) ) ( alias R13/Meta-3 ( $R13 "3 ) ) ( alias R13/Meta-4 ( $R13 "4 ) ) ( alias R13/Meta-5 ( $R13 "5 ) ) ( alias R13/Meta-6 ( $R13 "6 ) ) ( alias R13/Meta-7 ( $R13 "7 ) ) ( alias R13/Meta-8 ( $R13 "8 ) ) ( alias R13/Meta-9 ( $R13 "9 ) ) ( alias R13/Meta-a ( $R13 "a ) ) ( alias R13/Meta-b ( $R13 "b ) ) ( alias R13/Meta-c ( $R13 "c ) ) ( alias R13/Meta-d ( $R13 "d ) ) ( alias R13/Meta-e ( $R13 "e ) ) ( alias R13/Meta-f ( $R13 "f ) ) ( alias R13/Meta-g ( $R13 "g ) ) ( alias R13/Meta-h ( $R13 "h ) ) ( alias R13/Meta-i ( $R13 "i ) ) ( alias R13/Meta-j ( $R13 "j ) ) ( alias R13/Meta-k ( $R13 "k ) ) ( alias R13/Meta-l ( $R13 "l ) ) ( alias R13/Meta-m ( $R13 "m ) ) ( alias R13/Meta-n ( $R13 "n ) ) ( alias R13/Meta-o ( $R13 "o ) ) ( alias R13/Meta-p ( $R13 "p ) ) ( alias R13/Meta-q ( $R13 "q ) ) ( alias R13/Meta-r ( $R13 "r ) ) ( alias R13/Meta-s ( $R13 "s ) ) ( alias R13/Meta-t ( $R13 "t ) ) ( alias R13/Meta-u ( $R13 "u ) ) ( alias R13/Meta-v ( $R13 "v ) ) ( alias R13/Meta-w ( $R13 "w ) ) ( alias R13/Meta-x ( $R13 "x ) ) ( alias R13/Meta-y ( $R13 "y ) ) ( alias R13/Meta-z ( $R13 "z ) ) ( alias R13/Meta-R1 ( $R13 $R1 ) ) ( alias R13/Meta-R2 ( $R13 $R2 ) ) ( alias R13/Meta-R3 ( $R13 $R3 ) ) ( alias R13/Meta-R4 ( $R13 $R4 ) ) ( alias R13/Meta-R5 ( $R13 $R5 ) ) ( alias R13/Meta-R6 ( $R13 $R6 ) ) ( alias R13/Meta-R7 ( $R13 $R7 ) ) ( alias R13/Meta-R8 ( $R13 $R8 ) ) ( alias R13/Meta-R9 ( $R13 $R9 ) ) ( alias R13/Meta-R10 ( $R13 $R10 ) ) ( alias R13/Meta-R11 ( $R13 $R11 ) ) ( alias R13/Meta-R12 ( $R13 $R12 ) ) ( alias R13/Meta-R13 ( $R13 $R13 ) ) ( alias R13/Meta-R14 ( $R13 $R14 ) ) ( alias R13/Meta-R15 ( $R13 $R15 ) ) ( alias R13/Meta-left ( $R13 $left ) ) ( alias R13/Meta-right ( $R13 $right ) ) ( alias R13/Meta-up ( $R13 $up ) ) ( alias R13/Meta-down ( $R13 $down ) ) ;OCL}}} ;OCL{{{ unbind-keys ( alias unbind-unused-sequences ( $R13 * ) ) ;OCL}}} ) @fi ;OCL}}} ;OCL{{{ used keys @if-using ( term-alias ) @use ( del-key backs-key fx-key cursor-key tab-key r-key help-key misc-key ) @fi @if-using ( use-del-key use-backs-key use-fx-key use-cursor-key use-tab-key use-r-key use-help-key use-misc-key use-unbind-key ) con80x25 @fi ;OCL}}} @fi ;OCL}}} ;OCL{{{ linux console, edt-simulation @if-using ( linuxEDT ) ;OCL{{{ aliases @if-using ( term-alias ) ( terminal con80x25EDT ;OCL{{{ single key aliases ( alias backspace ( C-H ) ) ( alias delete ( C-? ) ) ( alias delete ( C-[ "[ "3 "~ ) ) ( alias tab ( C-I ) ) ( alias down ( C-[ "O "B ) ) ( alias left ( C-[ "O "D ) ) ( alias right ( C-[ "O "C ) ) ( alias up ( C-[ "O "A ) ) ( alias f1 ( $esc "f "1 ) ) ( alias f2 ( $esc "f "2 ) ) ( alias f3 ( $esc "f "3 ) ) ( alias f4 ( $esc "f "4 ) ) ( alias f5 ( $esc "f "5 ) ) ( alias f6 ( $esc "f "6 ) ) ( alias f7 ( $esc "f "7 ) ) ( alias f8 ( $esc "f "8 ) ) ( alias f9 ( $esc "f "9 ) ) ( alias f10 ( $esc "f "0 ) ) ( alias DelLine ( C-[ "[ "O "Q ) ) ( alias DelWord ( C-[ "O "R ) ) ( alias DelChar ( C-[ "[ "O "S ) ) ( alias Gold ( C-[ "O "w ) ) ( alias Help ( C-[ "O "x ) ) ( alias Find ( C-[ "O "y ) ) ( alias Page ( C-[ "O "t ) ) ( alias Section ( C-[ "O "u ) ) ( alias Append ( C-[ "O "v ) ) ( alias Advance ( C-[ "O "q ) ) ( alias Backup ( C-[ "O "r ) ) ( alias Cut ( C-[ "O "s ) ) ( alias Word ( C-[ "O "p ) ) ( alias EOL ( C-[ "O "n ) ) ( alias Char ( C-[ "O "M ) ) ( alias home ( C-[ "[ "1 "~ ) ) ( alias home-down ( C-[ "[ "4 "~ ) ) ( alias previous-page ( C-[ "[ "5 "~ ) ) ( alias next-page ( C-[ "[ "6 "~ ) ) ( alias insert-char ( C-[ "[ "2 "~ ) ) ;OCL}}} ) @fi ;OCL}}} ;OCL{{{ used keys @if-using ( term-alias ) @use ( del-key backs-key fx-key cursor-key tab-key edt-key ) @fi @if-using ( use-del-key use-backs-key use-fx-key use-cursor-key use-tab-key use-edt-key ) con80x25EDT @fi ;OCL}}} @fi ;OCL}}} ;OCL{{{ amiga aliases @if-using ( AMIGA amiga ) ;OCL{{{ aliases @if-using ( term-alias ) ( terminal @if-using ( amiga ) amiga @fi @if-using not( amiga ) default @fi ;OCL{{{ single key aliases ;OCL{{{ internal aliases (alias csi ( 0x9B )) (alias se ( 0x7E )) (alias menu ( $csi "G )) (alias pak ( 0x9c )) ;OCL}}} ;OCL{{{ keypad keys, named R1..R15,enter,tab for function usage ( alias return ( $csi "F "A "C )) ; Keypad enter ( alias R1 ( $csi "F "A "] )) ; Keypad * ( alias R2 ( $csi "F "A "J )) ; Keypad - ( alias R3 ( $csi "F "A "^ )) ; Keypad + ( alias R4 ( $csi "F "A "Z )) ; Keypad [{ ( alias R5 ( $csi "F "A "[ )) ; Keypad ]} ( alias R6 ( $csi "F "A "\ )) ; Keypad / ( alias R7 ( $csi "F "A "= )) ; Keypad 7 ( alias R8 ( $csi "F "A "> )) ; Keypad 8 ( alias R9 ( $csi "F "A "? )) ; Keypad 9 ( alias R10 ( $csi "F "A "- )) ; Keypad 4 ( alias R11 ( $csi "F "A ". )) ; Keypad 5 ( alias R12 ( $csi "F "A "/ )) ; Keypad 6 ( alias R13 ( $csi "F "A C-] )) ; Keypad 1 ( alias R13 ( $csi "F "A C-O )) ; Keypad 0 ( alias R14 ( $csi "F "A C-^ )) ; Keypad 2 ( alias R15 ( $csi "F "A C-_ )) ; Keypad 3 ;OCL}}} ;OCL{{{ keypad keys, named KP-??? for keypad usage ( alias return ( $csi "F "B "C )) ; Keypad enter ( alias KP-mult ( $csi "F "B "] )) ; Keypad * ( alias KP-minus ( $csi "F "B "J )) ; Keypad - ( alias KP-add ( $csi "F "B "^ )) ; Keypad + ( alias KP-[ ( $csi "F "B "Z )) ; Keypad [{ ( alias KP-] ( $csi "F "B "[ )) ; Keypad ]} ( alias KP-div ( $csi "F "B "\ )) ; Keypad / ( alias KP-7 ( $csi "F "B "= )) ; Keypad 7 ( alias KP-8 ( $csi "F "B "> )) ; Keypad 8 ( alias KP-9 ( $csi "F "B "? )) ; Keypad 9 ( alias KP-4 ( $csi "F "B "- )) ; Keypad 4 ( alias KP-5 ( $csi "F "B ". )) ; Keypad 5 ( alias KP-6 ( $csi "F "B "/ )) ; Keypad 6 ( alias KP-1 ( $csi "F "B C-J )) ; Keypad 1 ( alias KP-0 ( $csi "F "B C-O )) ; Keypad 0 ( alias KP-2 ( $csi "F "B C-^ )) ; Keypad 2 ( alias KP-3 ( $csi "F "B C-_ )) ; Keypad 3 ( alias KP-. ( $csi "F "B "< )) ; Keypad . ;OCL}}} ;OCL{{{ keypad prev-page ... ( alias prev_page ( $csi "F "C "? ) ) ( alias next_page ( $csi "F "C C-_ ) ) ( alias home ( $csi "F "C "= ) ) ;OCL}}} ;OCL{{{ delete and backspace ( alias delete ( C-? ) ) ( alias backspace ( C-H ) ) ;OCL}}} ;OCL{{{ Help ( alias help ( $csi "? $se ) ) ;OCL}}} ;OCL{{{ function keys (alias f1 ( $csi "0 $se )) (alias f1 ( $esc "f "1 )) (alias f2 ( $csi "1 $se )) (alias f2 ( $esc "f "2 )) (alias f3 ( $csi "2 $se )) (alias f3 ( $esc "f "3 )) (alias f4 ( $csi "3 $se )) (alias f4 ( $esc "f "4 )) (alias f5 ( $csi "4 $se )) (alias f5 ( $esc "f "5 )) (alias f6 ( $csi "5 $se )) (alias f6 ( $esc "f "6 )) (alias f7 ( $csi "6 $se )) (alias f7 ( $esc "f "7 )) (alias f8 ( $csi "7 $se )) (alias f8 ( $esc "f "8 )) (alias f9 ( $csi "8 $se )) (alias f9 ( $esc "f "9 )) (alias f10 ( $csi "9 $se )) (alias f10 ( $esc "f "0 )) ;OCL}}} ;OCL{{{ cursor keys (alias left ( $csi "D )) (alias right ( $csi "C )) (alias up ( $csi "A )) (alias down ( $csi "B )) ;OCL}}} ;OCL{{{ misc keys ;OCL}}} ;OCL{{{ tab ( alias tab ( C-I ) ) ;OCL}}} ;OCL}}} ;OCL{{{ meta-key aliases ;OCL{{{ character alias ( alias R13/Meta-! ( $R13 "! ) ) ( alias R13/Meta-? ( $R13 "? ) ) ( alias R13/Meta-? ( $csi "I 0xb ) ) ( alias R13/Meta-? ( $csi "Q 0xb ) ) ( alias R13/Meta-0 ( $R13 "0 ) ) ( alias R13/Meta-0 ( $csi "I 0xa ) ) ( alias R13/Meta-0 ( $csi "Q 0xa ) ) ( alias R13/Meta-1 ( $R13 "1 ) ) ( alias R13/Meta-1 ( $csi "I 0x1 ) ) ( alias R13/Meta-1 ( $csi "Q 0x1 ) ) ( alias R13/Meta-2 ( $R13 "2 ) ) ( alias R13/Meta-2 ( $csi "I 0x2 ) ) ( alias R13/Meta-2 ( $csi "Q 0x2 ) ) ( alias R13/Meta-3 ( $R13 "3 ) ) ( alias R13/Meta-3 ( $csi "I $pak ) ) ( alias R13/Meta-3 ( $csi "Q $pak ) ) ( alias R13/Meta-4 ( $R13 "4 ) ) ( alias R13/Meta-4 ( $csi "I 0x4 ) ) ( alias R13/Meta-4 ( $csi "Q 0x4 ) ) ( alias R13/Meta-5 ( $R13 "5 ) ) ( alias R13/Meta-5 ( $csi "I 0x5 ) ) ( alias R13/Meta-5 ( $csi "Q 0x5 ) ) ( alias R13/Meta-6 ( $R13 "6 ) ) ( alias R13/Meta-6 ( $csi "I 0x6 ) ) ( alias R13/Meta-6 ( $csi "Q 0x6 ) ) ( alias R13/Meta-7 ( $R13 "7 ) ) ( alias R13/Meta-7 ( $csi "I 0x7 ) ) ( alias R13/Meta-7 ( $csi "Q 0x7 ) ) ( alias R13/Meta-8 ( $R13 "8 ) ) ( alias R13/Meta-8 ( $csi "I 0x8 ) ) ( alias R13/Meta-8 ( $csi "Q 0x8 ) ) ( alias R13/Meta-9 ( $R13 "9 ) ) ( alias R13/Meta-9 ( $csi "I 0x9 ) ) ( alias R13/Meta-9 ( $csi "Q 0x9 ) ) ( alias R13/Meta-a ( $R13 "a ) ) ( alias R13/Meta-a ( $csi "I 0x20 ) ) ( alias R13/Meta-a ( $csi "Q 0x20 ) ) ( alias R13/Meta-b ( $R13 "b ) ) ( alias R13/Meta-b ( $csi "I 0x35 ) ) ( alias R13/Meta-b ( $csi "Q 0x35 ) ) ( alias R13/Meta-c ( $R13 "c ) ) ( alias R13/Meta-c ( $csi "I 0x33 ) ) ( alias R13/Meta-c ( $csi "Q 0x33 ) ) ( alias R13/Meta-d ( $R13 "d ) ) ( alias R13/Meta-d ( $csi "I 0x22 ) ) ( alias R13/Meta-d ( $csi "Q 0x22 ) ) ( alias R13/Meta-e ( $R13 "e ) ) ( alias R13/Meta-e ( $csi "I 0x12 ) ) ( alias R13/Meta-e ( $csi "Q 0x12 ) ) ( alias R13/Meta-f ( $R13 "f ) ) ( alias R13/Meta-f ( $csi "I 0x23 ) ) ( alias R13/Meta-f ( $csi "Q 0x23 ) ) ( alias R13/Meta-g ( $R13 "g ) ) ( alias R13/Meta-g ( $csi "I 0x24 ) ) ( alias R13/Meta-g ( $csi "Q 0x24 ) ) ( alias R13/Meta-h ( $R13 "h ) ) ( alias R13/Meta-h ( $csi "I 0x25 ) ) ( alias R13/Meta-h ( $csi "Q 0x25 ) ) ( alias R13/Meta-i ( $R13 "i ) ) ( alias R13/Meta-i ( $csi "I 0x17 ) ) ( alias R13/Meta-i ( $csi "Q 0x17 ) ) ( alias R13/Meta-j ( $R13 "j ) ) ( alias R13/Meta-j ( $csi "I 0x26 ) ) ( alias R13/Meta-j ( $csi "Q 0x26 ) ) ( alias R13/Meta-k ( $R13 "k ) ) ( alias R13/Meta-k ( $csi "I 0x27 ) ) ( alias R13/Meta-k ( $csi "Q 0x27 ) ) ( alias R13/Meta-l ( $R13 "l ) ) ( alias R13/Meta-l ( $csi "I 0x28 ) ) ( alias R13/Meta-l ( $csi "Q 0x28 ) ) ( alias R13/Meta-m ( $R13 "m ) ) ( alias R13/Meta-m ( $csi "I 0x37 ) ) ( alias R13/Meta-m ( $csi "Q 0x37 ) ) ( alias R13/Meta-n ( $R13 "n ) ) ( alias R13/Meta-n ( $csi "I 0x36 ) ) ( alias R13/Meta-n ( $csi "Q 0x36 ) ) ( alias R13/Meta-o ( $R13 "o ) ) ( alias R13/Meta-o ( $csi "I 0x18 ) ) ( alias R13/Meta-o ( $csi "Q 0x18 ) ) ( alias R13/Meta-p ( $R13 "p ) ) ( alias R13/Meta-p ( $csi "I 0x19 ) ) ( alias R13/Meta-p ( $csi "Q 0x19 ) ) ( alias R13/Meta-q ( $R13 "q ) ) ( alias R13/Meta-q ( $csi "I 0x10 ) ) ( alias R13/Meta-q ( $csi "Q 0x10 ) ) ( alias R13/Meta-r ( $R13 "r ) ) ( alias R13/Meta-r ( $csi "I 0x13 ) ) ( alias R13/Meta-r ( $csi "Q 0x13 ) ) ( alias R13/Meta-s ( $R13 "s ) ) ( alias R13/Meta-s ( $csi "I 0x21 ) ) ( alias R13/Meta-s ( $csi "Q 0x21 ) ) ( alias R13/Meta-t ( $R13 "t ) ) ( alias R13/Meta-t ( $csi "I 0x14 ) ) ( alias R13/Meta-t ( $csi "Q 0x14 ) ) ( alias R13/Meta-u ( $R13 "u ) ) ( alias R13/Meta-u ( $csi "I 0x16 ) ) ( alias R13/Meta-u ( $csi "Q 0x16 ) ) ( alias R13/Meta-v ( $R13 "v ) ) ( alias R13/Meta-v ( $csi "I 0x34 ) ) ( alias R13/Meta-v ( $csi "Q 0x34 ) ) ( alias R13/Meta-w ( $R13 "w ) ) ( alias R13/Meta-w ( $csi "I 0x11 ) ) ( alias R13/Meta-w ( $csi "Q 0x11 ) ) ( alias R13/Meta-x ( $R13 "x ) ) ( alias R13/Meta-x ( $csi "I 0x32 ) ) ( alias R13/Meta-x ( $csi "Q 0x32 ) ) ( alias R13/Meta-y ( $R13 "y ) ) ( alias R13/Meta-y ( $csi "I 0x30 ) ) ( alias R13/Meta-y ( $csi "Q 0x30 ) ) ( alias R13/Meta-z ( $R13 "z ) ) ( alias R13/Meta-z ( $csi "I 0x15 ) ) ( alias R13/Meta-z ( $csi "Q 0x15 ) ) ;OCL}}} ;OCL{{{ keypad/cursor ( alias R13/Meta-R1 ( $R13 $R1 ) ) ( alias R13/Meta-R1 ( $csi "F "I "] )) ( alias R13/Meta-R1 ( $csi "F "Q "] )) ( alias R13/Meta-R2 ( $R13 $R2 ) ) ( alias R13/Meta-R2 ( $csi "F "I "J )) ( alias R13/Meta-R2 ( $csi "F "Q "J )) ( alias R13/Meta-R3 ( $R13 $R3 ) ) ( alias R13/Meta-R3 ( $csi "F "I "^ )) ( alias R13/Meta-R3 ( $csi "F "Q "^ )) ( alias R13/Meta-R4 ( $R13 $R4 ) ) ( alias R13/Meta-R4 ( $csi "F "I "Z )) ( alias R13/Meta-R4 ( $csi "F "Q "Z )) ( alias R13/Meta-R5 ( $R13 $R5 ) ) ( alias R13/Meta-R5 ( $csi "F "I "[ )) ( alias R13/Meta-R5 ( $csi "F "Q "[ )) ( alias R13/Meta-R6 ( $R13 $R6 ) ) ( alias R13/Meta-R6 ( $csi "F "I "\ )) ( alias R13/Meta-R6 ( $csi "F "Q "\ )) ( alias R13/Meta-R7 ( $R13 $R7 ) ) ( alias R13/Meta-R7 ( $csi "F "I "= )) ( alias R13/Meta-R7 ( $csi "F "Q "= )) ( alias R13/Meta-R8 ( $R13 $R8 ) ) ( alias R13/Meta-R8 ( $csi "F "I "> )) ( alias R13/Meta-R8 ( $csi "F "Q "> )) ( alias R13/Meta-R9 ( $R13 $R9 ) ) ( alias R13/Meta-R9 ( $csi "F "I "? )) ( alias R13/Meta-R9 ( $csi "F "Q "? )) ( alias R13/Meta-R10 ( $R13 $R10 ) ) ( alias R13/Meta-R10 ( $csi "F "I "- )) ( alias R13/Meta-R10 ( $csi "F "Q "- )) ( alias R13/Meta-R11 ( $R13 $R11 ) ) ( alias R13/Meta-R11 ( $csi "F "I ". )) ( alias R13/Meta-R11 ( $csi "F "Q ". )) ( alias R13/Meta-R12 ( $R13 $R12 ) ) ( alias R13/Meta-R12 ( $csi "F "I "/ )) ( alias R13/Meta-R12 ( $csi "F "Q "/ )) ( alias R13/Meta-R13 ( $R13 $R13 ) ) ( alias R13/Meta-R13 ( $csi "F "I C-] )) ( alias R13/Meta-R13 ( $csi "F "Q C-] )) ( alias R13/Meta-R14 ( $R13 $R14 ) ) ( alias R13/Meta-R14 ( $csi "F "I C-^ )) ( alias R13/Meta-R14 ( $csi "F "Q C-^ )) ( alias R13/Meta-R15 ( $R13 $R15 ) ) ( alias R13/Meta-R15 ( $csi "F "I C-_ )) ( alias R13/Meta-R15 ( $csi "F "Q C-_ )) ( alias R13/Meta-left ( $R13 $left ) ) ( alias R13/Meta-right ( $R13 $right ) ) ( alias R13/Meta-up ( $R13 $up ) ) ( alias R13/Meta-down ( $R13 $down ) ) ;OCL}}} ;OCL}}} ;OCL{{{ unbind-keys ( alias unbind-unused-sequences ( $csi * *)) ( alias unbind-unused-sequences ( $R13 * ) ) ;OCL}}} ) @fi ;OCL}}} ;OCL{{{ used keys @if-using ( term-alias ) @use ( del-key esc-del-key backs-key cursor-key fx-key tab-key r-key home-key page-key help-key ) @fi @if-using ( use-del-key use-esc-del-key use-backs-key use-cursor-key use-fx-key use-tab-key use-r-key use-home-key use-page-key use-keypad-key use-help-key use-unbind-key ) @if-using ( amiga ) amiga @fi @if-using not( amiga ) default @fi @fi ;OCL}}} @fi ;OCL}}} ;OCL}}} ;OCL{{{ default uses fx and ctrl-h @if-using not( AMIGA ) ;OCL{{{ aliases @if-using ( term-alias ) ( terminal default ( alias f1 ( $esc "f "1 ) ) ( alias f2 ( $esc "f "2 ) ) ( alias f3 ( $esc "f "3 ) ) ( alias f4 ( $esc "f "4 ) ) ( alias f5 ( $esc "f "5 ) ) ( alias f6 ( $esc "f "6 ) ) ( alias f7 ( $esc "f "7 ) ) ( alias f8 ( $esc "f "8 ) ) ( alias f9 ( $esc "f "9 ) ) ( alias f10 ( $esc "f "0 ) ) ) @fi ;OCL}}} ;OCL{{{ used keys @if-using ( term-alias ) @use ( fx-key ctrl-h-key ) @fi @if-using ( use-ctrl-h-key ) default @fi ;OCL}}} @fi ;OCL}}} @end-reference-copy @fi @use ( term-alias ) @lib modeori-fun/terms @use not( term-alias ) ;OCL}}} @fi ;OCL}}} ;OCL{{{ abort-key @if-using ( ALIEN-KEYTABLES ) ;OCL{{{ alien abort key @use ( ABORT-KEY ) @lib modeori.ktb @use not( ABORT-KEY ) ;OCL}}} @fi @if-using not( ALIEN-KEYTABLES ) ;OCL{{{ default abort key ( keybind abort ( C-C ) ) ;OCL}}} @fi ;OCL}}} ;OCL{{{ para @if-using ( ALIEN-KEYTABLES ) ;OCL{{{ alien parameter mode @use ( PARA-MODE ) @include modeori.ktb @use not( PARA-MODE ) ;OCL}}} @fi @if-using not( ALIEN-KEYTABLES ) ;OCL{{{ default parameter mode ( mode para ( keybind newline-and-indent ( $return ) ) ( keybind quote-character ( C-V ) ) ( keybind backward-character ( $esc "l "e ) ) ( keybind beginning-of-line ( $esc "s "l ) ) ( keybind forward-character ( $esc "r "i ) ) ( keybind end-of-line ( $esc "e "l ) ) ( keybind mori-previous-line ( $esc "u "p ) ) ( keybind mori-next-line ( $esc "d "n ) ) ( keybind previous-page ( $esc "p "u ) ) ( keybind raw-delete-previous-character ( $esc "b "s ) ) ( keybind raw-delete-character ( $esc "d "c ) ) ( keybind delete-to-end-of-line ( $esc "d "e ) ) ( keybind undo-delete-character ( $esc "u "c ) ) ( keybind filename-completion ( $esc "f "c ) ) @if-using ( del-key ) ;OCL{{{ delete-maps ( terminal ( @use ( use-del-key ) @lib modeori-fun/terms @use not( use-del-key ) ) ( keybind raw-delete-character ( $delete ) ) ) ;OCL}}} @fi @if-using ( backs-key ) ;OCL{{{ backspace-maps ( terminal ( @use ( use-backs-key ) @lib modeori-fun/terms @use not( use-backs-key ) ) ( keybind raw-delete-previous-character ( $backspace ) ) ) ;OCL}}} @fi @if-using ( tab-key ) ;OCL{{{ tab-maps ( terminal ( @use ( use-tab-key ) @lib modeori-fun/terms @use not( use-tab-key ) ) ( keybind filename-completion ( $tab ) ) ) ;OCL}}} @fi @if-using ( cursor-key ) ;OCL{{{ cursor-maps ( terminal ( @use ( use-cursor-key ) @lib modeori-fun/terms @use not( use-cursor-key ) ) ( keybind backward-character ( $left ) ) ( keybind forward-character ( $right ) ) ( keybind mori-next-line ( $down ) ) ( keybind mori-previous-line ( $up ) ) ) ;OCL}}} @fi @if-using ( fx-key ) ;OCL{{{ fx-maps ( terminal ( @use ( use-fx-key ) @lib modeori-fun/terms @use not( use-fx-key ) ) ( keybind newline-and-indent ( $f1 ) ) ) ;OCL}}} @fi @if-using ( clreol-key ) ;OCL{{{ clreol-maps ( terminal ( @use ( use-clreol-key ) @lib modeori-fun/terms @use not( use-clreol-key ) ) ( keybind delete-to-end-of-line ( $clreol ) ) ) ;OCL}}} @fi @if-using ( line-key ) ;OCL{{{ line-maps ( terminal ( @use ( use-line-key ) @lib modeori-fun/terms @use not( use-line-key ) ) ( keybind beginning-of-line ( $begin ) ) ( keybind end-of-line ( $end ) ) ) ;OCL}}} @fi @if-using ( r-key ) ;OCL{{{ SUN-terminal R-keys ( terminal ( @use( use-r-key ) @lib modeori-fun/terms @use not( use-r-key ) ) ( keybind backward-character ( $R10 ) ) ( keybind beginning-of-line ( $R7 ) ) ( keybind forward-character ( $R12 ) ) ( keybind end-of-line ( $R9 ) ) ( keybind mori-previous-line ( $R8 ) ) ( keybind mori-next-line ( $R14 ) ) ) ;OCL}}} @fi ;OCL{{{ some control keys (wordstar like?) ( keybind backward-character ( C-S ) ) ( keybind beginning-of-line ( C-A ) ) ( keybind forward-character ( C-D ) ) ( keybind end-of-line ( C-F ) ) ( keybind mori-previous-line ( C-E ) ) ( keybind mori-next-line ( C-X ) ) ( keybind delete-to-end-of-line ( C-Y ) ) @if-using ( ctrl-h-key ) ;OCL{{{ ctrl-h ( terminal ( @use ( use-ctrl-h-key ) @lib modeori-fun/terms @use not( use-ctrl-h-key ) ) ( keybind raw-delete-previous-character ( C-H ) ) ) ;OCL}}} @fi ;OCL}}} @if-using ( edt-key ) ;OCL{{{ some keypad simualtion bindings for edt ( terminal ( @use ( use-edt-key ) @lib modeori-fun/terms @use not( use-edt-key ) ) ( keybind end-of-line ( $EOL ) ) ( keybind beginning-of-line ( $SOL ) ) ) ;OCL}}} @fi ;OCL{{{ keypad-keys ( terminal ( @use ( use-keypad-key ) @lib modeori-fun/terms @use not( use-keypad-key ) ) ( keybind "* ( $KP-mult ) ) ( keybind "- ( $KP-minus ) ) ( keybind "+ ( $KP-add ) ) ( keybind "[ ( $KP-[ ) ) ( keybind "] ( $KP-] ) ) ( keybind "/ ( $KP-div ) ) ( keybind "0 ( $KP-0 ) ) ( keybind "1 ( $KP-1 ) ) ( keybind "2 ( $KP-2 ) ) ( keybind "3 ( $KP-3 ) ) ( keybind "4 ( $KP-4 ) ) ( keybind "5 ( $KP-5 ) ) ( keybind "6 ( $KP-6 ) ) ( keybind "7 ( $KP-7 ) ) ( keybind "8 ( $KP-8 ) ) ( keybind "9 ( $KP-9 ) ) ( keybind ". ( $KP-. ) ) ) ;OCL}}} ;OCL{{{ unbindings ( terminal ( @use ( use-unbind-key ) @lib modeori-fun/terms @use not( use-unbind-key ) ) ( keybind - ( $unbind-unused-sequences ) ) ) ;OCL}}} ) ;OCL}}} @fi ;OCL}}} ;OCL{{{ mv-indent @if-using ( ALIEN-KEYTABLES ) ;OCL{{{ alien move indent mode @use ( MOVE-INDENT ) @include modeori.ktb @use not( MOVE-INDENT ) ;OCL}}} @fi @if-using not( ALIEN-KEYTABLES ) ;OCL{{{ default move indent mode ( mode mv-indent ( keybind shift-in-region ( $space ) ) ( keybind shift-out-region ( $esc "b "s ) ) ( keybind shift-out-region ( $esc "d "c ) ) ( keybind shift-x-region ( "+ ) ) ( keybind shift-to-region ( "t ) ) ( keybind switch-to-edit-mode ( $return ) ) ( keybind switch-to-edit-mode ( "i ) ) @if-using ( del-key ) ;OCL{{{ delete-maps ( terminal ( @use ( use-del-key ) @lib modeori-fun/terms @use not( use-del-key ) ) ( keybind shift-out-region ( $delete ) ) ) ;OCL}}} @fi @if-using ( backs-key ) ;OCL{{{ backspace-maps ( terminal ( @use ( use-backs-key ) @lib modeori-fun/terms @use not( use-backs-key ) ) ( keybind shift-out-region ( $backspace ) ) ) ;OCL}}} @fi @if-using ( cursor-key ) ;OCL{{{ cursor-maps ( terminal ( @use ( use-cursor-key ) @lib modeori-fun/terms @use not( use-cursor-key ) ) ) ;OCL}}} @fi @if-using ( tab-key ) ;OCL{{{ tab-maps ( terminal ( @use ( use-tab-key ) @lib modeori-fun/terms @use not( use-tab-key ) ) ) ;OCL}}} @fi @if-using ( fx-key ) ;OCL{{{ fx-maps ( terminal ( @use ( use-fx-key ) @lib modeori-fun/terms @use not( use-fx-key ) ) ) ;OCL}}} @fi @if-using ( r-key ) ;OCL{{{ SUN-terminal R-keys ( terminal ( @use( use-r-key ) @lib modeori-fun/terms @use not( use-r-key ) ) ) ;OCL}}} @fi ;OCL{{{ some control keys (wordstar like?) @if-using ( ctrl-h-key ) ;OCL{{{ ctrl-h ( terminal ( @use ( use-ctrl-h-key ) @lib modeori-fun/terms @use not( use-ctrl-h-key ) ) ( keybind shift-out-region ( C-H ) ) ) ;OCL}}} @fi ;OCL}}} ;OCL{{{ keypad-keys ( terminal ( @use ( use-keypad-key ) @lib modeori-fun/terms @use not( use-keypad-key ) ) ( keybind shift-x-region ( $KP-add ) ) ) ;OCL}}} ;OCL{{{ unbindings ( terminal ( @use ( use-unbind-key ) @lib modeori-fun/terms @use not( use-unbind-key ) ) ( keybind - ( $unbind-unused-sequences ) ) ) ( keybind - ( * ) ) ;OCL}}} ) ;OCL}}} @fi ;OCL}}} ;OCL{{{ edit @if-using ( ALIEN-KEYTABLES ) ;OCL{{{ alien edit mode @use ( EDIT-MODE ) @include modeori.ktb @use not( EDIT-MODE ) ;OCL}}} @fi @if-using not( ALIEN-KEYTABLES ) ;OCL{{{ standard bindings ( mode edit ;OCL{{{ moving ( keybind backward-character ( $esc "l "e ) ) ( keybind backward-word ( $esc "l "w ) ) ( keybind beginning-of-line ( $esc "s "l ) ) ( keybind forward-character ( $esc "r "i ) ) ( keybind forward-word ( $esc "r "w ) ) ( keybind end-of-line ( $esc "e "l ) ) ( keybind mori-previous-line ( $esc "u "p ) ) ( keybind previous-page ( $esc "p "u ) ) ( keybind mtool-top ( $esc "s "f ) ) ( keybind beginning-of-fold ( $esc "s "F ) ) ( keybind mori-next-line ( $esc "d "n ) ) ( keybind next-page ( $esc "p "d ) ) ( keybind mtool-bot ( $esc "b "o ) ) ( keybind end-of-fold ( $esc "b "O ) ) ( keybind goto-line ( $esc "g "o ) ) ( keybind mori-search-forward ( $esc "f "i ) ) ( keybind mori-incremental-search-forward ( $esc "i "s ) ) ( keybind e-m-find-or-enter-and-go-tags-buffer ( $esc "t "a ) ) ( keybind quit-unchanged-to-other-buffer ( $esc "q "t ) ) ( keybind search-next-incorrect-tag-entry ( $esc "f "T ) ) ( keybind mori-goto-matching-brace ( $esc "m "b ) ) ;OCL{{{ marks ( keybind go-last-mark ( $esc "g "m ) ) ;OCL{{{ 0 ( keybind set-mark-0 ( $esc "s "0 ) ) ( keybind go-mark-0 ( $esc "g "0 ) ) ( keybind push-mark-0 ( $esc "p "0 ) ) ( keybind swap-mark-0 ( $esc "w "0 ) ) ;OCL}}} ;OCL{{{ 1 ( keybind set-mark-1 ( $esc "s "1 ) ) ( keybind go-mark-1 ( $esc "g "1 ) ) ( keybind push-mark-1 ( $esc "p "1 ) ) ( keybind swap-mark-1 ( $esc "w "1 ) ) ;OCL}}} ;OCL{{{ 2 ( keybind set-mark-2 ( $esc "s "2 ) ) ( keybind go-mark-2 ( $esc "g "2 ) ) ( keybind push-mark-2 ( $esc "p "2 ) ) ( keybind swap-mark-2 ( $esc "w "2 ) ) ;OCL}}} ;OCL{{{ 3 ( keybind set-mark-3 ( $esc "s "3 ) ) ( keybind go-mark-3 ( $esc "g "3 ) ) ( keybind push-mark-3 ( $esc "p "3 ) ) ( keybind swap-mark-3 ( $esc "w "3 ) ) ;OCL}}} ;OCL{{{ 4 ( keybind set-mark-4 ( $esc "s "4 ) ) ( keybind go-mark-4 ( $esc "g "4 ) ) ( keybind push-mark-4 ( $esc "p "4 ) ) ( keybind swap-mark-4 ( $esc "w "4 ) ) ;OCL}}} ;OCL{{{ 5 ( keybind set-mark-5 ( $esc "s "5 ) ) ( keybind go-mark-5 ( $esc "g "5 ) ) ( keybind push-mark-5 ( $esc "p "5 ) ) ( keybind swap-mark-5 ( $esc "w "5 ) ) ;OCL}}} ;OCL{{{ 6 ( keybind set-mark-6 ( $esc "s "6 ) ) ( keybind go-mark-6 ( $esc "g "6 ) ) ( keybind push-mark-6 ( $esc "p "6 ) ) ( keybind swap-mark-6 ( $esc "w "6 ) ) ;OCL}}} ;OCL{{{ 7 ( keybind set-mark-7 ( $esc "s "7 ) ) ( keybind go-mark-7 ( $esc "g "7 ) ) ( keybind push-mark-7 ( $esc "p "7 ) ) ( keybind swap-mark-7 ( $esc "w "7 ) ) ;OCL}}} ;OCL{{{ 8 ( keybind set-mark-8 ( $esc "s "8 ) ) ( keybind go-mark-8 ( $esc "g "8 ) ) ( keybind push-mark-8 ( $esc "p "8 ) ) ( keybind swap-mark-8 ( $esc "w "8 ) ) ;OCL}}} ;OCL{{{ 9 ( keybind set-mark-9 ( $esc "s "9 ) ) ( keybind go-mark-9 ( $esc "g "9 ) ) ( keybind push-mark-9 ( $esc "p "9 ) ) ( keybind swap-mark-9 ( $esc "w "9 ) ) ;OCL}}} ;OCL}}} ;OCL}}} ;OCL{{{ editing and deleting ( keybind e-m-newline-and-indent ( $return ) ) ( keybind e-m-delete-previous-character ( $esc "b "s ) ) ( keybind append-to-previous-line ( $esc "j "o ) ) ( keybind delspaces ( $esc "d "s ) ) ( keybind quote-character ( C-V ) ) ( keybind e-m-delete-character ( $esc "d "c ) ) ( keybind e-m-delete-to-end-of-line ( $esc "d "e ) ) ( keybind undo-delete-character ( $esc "u "c ) ) ( keybind delete-line ( $esc "d "l ) ) ( keybind undo-delete-line ( $esc "u "l ) ) ( keybind mori-query-replace-string ( $esc "r "p ) ) ( keybind filter-line ( $esc "f "l ) ) ( keybind e-m-wrap-word ( $space ) ) ( keybind e-m-spell-buffer ( $esc "s "p ) ) ( keybind toggle-case-word ( $esc "t "w ) ) ( keybind uppercase-word ( $esc "u "w ) ) ( keybind capitalize-word ( $esc "c "w ) ) ( keybind lowercase-word ( $esc "v "w ) ) @if-using (L-EXT) ( keybind paired-parens ( "( ) ) ( keybind paired-brackets ( "[ ) ) ( keybind paired-curly-brackets ( "{ ) ) ( keybind language-struct ( $esc "l "s ) ) ( keybind singlequotes ( "' ) ) ( keybind doublequotes ( "" ) ) ( keybind semicolon ( "; ) ) @fi ;OCL}}} ;OCL{{{ folding ( keybind mori-open-fold ( $esc "o "p ) ) ( keybind e-m-enter-fold ( $esc "e "n ) ) ( keybind mori-close-fold ( $esc "c "l ) ) ( keybind exit-fold ( $esc "e "x ) ) ( keybind auto-header ( $esc "a "h ) ) ( keybind e-m-create-fold ( $esc "c "r ) ) ( keybind e-m-unfold-fold ( $esc "r "e ) ) ( keybind toggle-file-fold ( $esc "f "f ) ) ( keybind toggle-attach-file-to-fold ( $esc "a "t ) ) ( keybind set-language ( $esc "l "a ) ) ;OCL}}} ;OCL{{{ linehandling ( keybind double-line ( $esc "c "o ) ) ( keybind move-line ( $esc "m "o ) ) ( keybind kill-line ( $esc "p "i ) ) ( keybind copy-to-kill-buffer ( $esc "c "p ) ) ( keybind insert-folded-kill-buffer ( $esc "p "p ) ) ;OCL}}} ;OCL{{{ files ( keybind e-m-list-buffers ( $esc "l "b ) ) ( keybind insert-file ( $esc "i "n ) ) ( keybind read-file ( $esc "o "f ) ) ( keybind read-list-file ( $esc "r "F ) ) ( keybind show-error-buffer ( $esc "o "e ) ) ( keybind open-buffer ( $esc "o "b ) ) ( keybind open-list-buffer ( $esc "o "B ) ) ( keybind open-adjacent-buffer ( $esc "a "b ) ) ( keybind open-list-adjacent-buffer ( $esc "a "B ) ) ( keybind unchange-and-reread-file ( $esc "r "r ) ) ( keybind e-m-save-file ( $esc "s "a ) ) ( keybind write-file ( $esc "w "f ) ) ( keybind change-buffername ( $esc "c "b ) ) ( keybind previous-file ( $esc "p "f ) ) ( keybind previous-buffer ( $esc "p "b ) ) ( keybind next-file ( $esc "n "f ) ) ( keybind next-buffer ( $esc "n "b ) ) ( keybind enter-list-file ( $esc "p "l ) ) ( keybind e-m-filename-completion ( $esc "f "c ) ) ( keybind tag-completion ( $esc "t "c ) ) ( keybind insert-tags-file ( $esc "i "T ) ) ( keybind open-buffer-tags-file ( $esc "o "T ) ) ( keybind open-adjacent-buffer-tags-file ( $esc "a "T ) ) ;OCL}}} ;OCL{{{ helps ( keybind center-and-redraw-display ( $esc "r "f ) ) ( keybind describe-fold ( $esc "f "? ) ) ( keybind mori-help ( $esc "h "e ) ) ( keybind info ( $esc "i "f ) ) ( keybind describe-bindings ( $esc "h "b ) ) ;OCL}}} ;OCL{{{ exit ( keybind exit-origami ( $esc "q "a ) ) ( keybind exit-buffer ( $esc "q "u ) ) ( keybind save-and-exit-buffer ( $esc "s "e ) ) ;OCL}}} ;OCL{{{ macros ( keybind define-macro ( $esc "d "m ) ) ( keybind execute-macro ( $esc "c "m ) ) ( keybind user-macro-0 ( $esc "m "0 ) ) ( keybind user-macro-1 ( $esc "m "1 ) ) ( keybind user-macro-2 ( $esc "m "2 ) ) ( keybind user-macro-3 ( $esc "m "3 ) ) ( keybind user-macro-4 ( $esc "m "4 ) ) ( keybind user-macro-5 ( $esc "m "5 ) ) ( keybind user-macro-6 ( $esc "m "6 ) ) ( keybind user-macro-7 ( $esc "m "7 ) ) ( keybind user-macro-8 ( $esc "m "8 ) ) ( keybind user-macro-9 ( $esc "m "9 ) ) ( keybind def-user-macro ( $esc "d "u ) ) ;OCL}}} ;OCL{{{ system ( keybind shell ( $esc "s "h ) ) ( keybind shell-command ( $esc "s "c ) ) ( keybind suspend-origami ( $esc "s "u ) ) ( keybind filter-buffer ( $esc "f "b ) ) ( keybind pipe-from-command ( $esc "< "p ) ) ( keybind pipe-to-command ( $esc "> "p ) ) ;OCL}}} ;OCL{{{ advanced commands ;OCL{{{ buffers ( keybind switch-on-buffer-handling ( $esc "b "u ) ) ;OCL}}} @if-using ( W-GET-X-SEL ) ;OCL{{{ get-x-selection ( keybind get-x-selection ( $esc "g "s ) ) ;OCL}}} @fi ;OCL{{{ no-overstrike ( keybind no-overstrike ( $esc "n "o ) ) ;OCL}}} ;OCL{{{ paragraph ( keybind e-m-fill-paragraph ( $esc "s $space ) ) ( keybind e-m-set-fill-mode ( $esc "s "m ) ) ( keybind e-m-set-fill-column ( $esc "s ". ) ) ;OCL}}} ;OCL{{{ arguments ( keybind set-argument-0 ( $esc "0 ) ) ( keybind set-argument-1 ( $esc "1 ) ) ( keybind set-argument-2 ( $esc "2 ) ) ( keybind set-argument-3 ( $esc "3 ) ) ( keybind set-argument-4 ( $esc "4 ) ) ( keybind set-argument-5 ( $esc "5 ) ) ( keybind set-argument-6 ( $esc "6 ) ) ( keybind set-argument-7 ( $esc "7 ) ) ( keybind set-argument-8 ( $esc "8 ) ) ( keybind set-argument-9 ( $esc "9 ) ) ;OCL}}} ;OCL{{{ modes ;OCL{{{ switch-to-move-mode ( keybind switch-to-move-mode ( $esc $esc ) ) ;OCL}}} ;OCL{{{ set-file-unchanged ( keybind set-file-unchanged ( $esc "- "c ) ) ;OCL}}} ;OCL{{{ shell @if-using ( SHELL-MODE ) ( keybind add-mode-shell ( $esc "+ "S ) ) @fi ;OCL}}} ;OCL{{{ mode-autosave ( keybind add-mode-autosave ( $esc "+ "a ) ) ( keybind delete-mode-autosave ( $esc "- "a ) ) ;OCL}}} ;OCL{{{ center ( keybind add-mode-center ( $esc "+ "C ) ) ( keybind delete-mode-center ( $esc "- "C ) ) ;OCL}}} ;OCL{{{ mode-regexp ( keybind add-mode-basic-regular-expression ( $esc "+ "m ) ) ( keybind add-mode-extended-regular-expression ( $esc "+ "M ) ) ( keybind delete-mode-regular-expression ( $esc "- "m ) ) ( keybind delete-mode-regular-expression ( $esc "- "M ) ) ;OCL}}} ;OCL{{{ mode-no-parse ( keybind add-mode-parse ( $esc "+ "p ) ) ( keybind delete-mode-parse ( $esc "- "p ) ) ;OCL}}} ;OCL{{{ echo ( keybind add-mode-echo ( $esc "+ "e ) ) ( keybind delete-mode-echo ( $esc "- "e ) ) ;OCL}}} ;OCL{{{ fold-mark-menu ( keybind fold-mark-menu ( $esc "f "m ) ) ;OCL}}} ;OCL{{{ extended ( keybind set-mode-raw ( $esc "+ "r ) ) ( keybind add-mode-extended ( $esc "- "r ) ) ( keybind add-mode-extended ( $esc "+ "x ) ) ( keybind delete-mode-extended ( $esc "- "x ) ) ;OCL}}} ;OCL{{{ full-shift ( keybind mori-add-mode-full-shift ( $esc "+ "f ) ) ( keybind mori-delete-mode-full-shift ( $esc "- "f ) ) ;OCL}}} ;OCL{{{ wrap ( keybind add-mode-wrap ( $esc "+ "w ) ) ( keybind delete-mode-wrap ( $esc "- "w ) ) ;OCL}}} ;OCL{{{ hash ( keybind add-mode-hash-shift ( $esc "+ "h ) ) ( keybind delete-mode-hash-shift ( $esc "- "h ) ) ;OCL}}} ;OCL{{{ highlight ( keybind add-mode-highlight ( $esc "+ "H ) ) ( keybind delete-mode-highlight ( $esc "- "H ) ) ;OCL}}} ;OCL{{{ overwrite ( keybind add-mode-overwrite ( $esc "+ "o ) ) ( keybind delete-mode-overwrite ( $esc "- "o ) ) ( keybind toggle-mode-overwrite ( $esc "! "o ) ) ;OCL}}} ;OCL{{{ view ( keybind add-mode-view ( $esc "+ "v ) ) ( keybind delete-mode-view ( $esc "- "v ) ) ;OCL}}} ;OCL{{{ time ( keybind add-mode-time ( $esc "+ "t ) ) ( keybind delete-mode-time ( $esc "- "t ) ) ;OCL}}} ;OCL{{{ verbose ( keybind add-mode-verbose ( $esc "+ "V ) ) ( keybind delete-mode-verbose ( $esc "- "V ) ) ;OCL}}} ;OCL{{{ statusline ( keybind switch-status-line-on ( $esc "+ "s ) ) ( keybind switch-status-line-off ( $esc "- "s ) ) ;OCL}}} ;OCL{{{ file-based ( keybind add-mode-file-based ( $esc "+ "% ) ) ( keybind delete-mode-file-based ( $esc "- "% ) ) ;OCL}}} ;OCL{{{ auto-indent ( keybind add-mode-auto-indent ( $esc "+ "i ) ) ( keybind delete-mode-auto-indent ( $esc "- "i ) ) ;OCL}}} ;OCL{{{ buffer-save ( keybind add-mode-buffer-save ( $esc "+ "b ) ) ( keybind delete-mode-buffer-save ( $esc "- "b ) ) ;OCL}}} ;OCL{{{ position ( keybind add-mode-position ( $esc "+ "P ) ) ( keybind delete-mode-position ( $esc "- "P ) ) ( keybind toggle-mode-position ( $esc "! "P ) ) ;OCL}}} ;OCL{{{ auto-language ( keybind add-mode-auto-language ( $esc "+ "l ) ) ( keybind delete-mode-auto-language ( $esc "- "l ) ) ;OCL}}} ;OCL{{{ set-mode-display ( keybind set-display-mode ( $esc "+ "d ) ) ;OCL}}} ;OCL{{{ diredit-long ( keybind add-mode-diredit-long ( $esc "+ "L ) ) ( keybind delete-mode-diredit-long ( $esc "- "L ) ) ( keybind toggle-mode-diredit-long ( $esc "! "L ) ) ;OCL}}} ;OCL}}} ;OCL{{{ main-menu ( keybind main-menu ( $esc "m "m ) ) ;OCL}}} ;OCL{{{ buffer ( keybind mori-dump-buffers-to-file ( $esc "> "b ) ) ( keybind mori-get-buffers-from-file ( $esc "< "b ) ) ;OCL}}} ;OCL{{{ call-make ( keybind call-make ( $esc "m "a ) ) ;OCL}}} ;OCL{{{ call-postbox ( keybind call-postbox ( $esc "p "o ) ) ;OCL}}} ;OCL}}} @if-using ( del-key ) ;OCL{{{ delete-maps ( terminal ( @use ( use-del-key ) @lib modeori-fun/terms @use not( use-del-key ) ) ( keybind e-m-delete-character ( $delete ) ) ) ;OCL}}} @fi @if-using ( esc-del-key ) ;OCL{{{ esc delete-maps ( terminal ( @use ( use-esc-del-key ) @lib modeori-fun/terms @use not( use-esc-del-key ) ) ( keybind delspaces ( $esc $delete ) ) ) ;OCL}}} @fi @if-using ( backs-key ) ;OCL{{{ backspace-maps ( terminal ( @use ( use-backs-key ) @lib modeori-fun/terms @use not( use-backs-key ) ) ( keybind e-m-delete-previous-character ( $backspace ) ) ( keybind append-to-previous-line ( $esc $backspace ) ) ) ;OCL}}} @fi @if-using ( fx-key ) ;OCL{{{ fx-maps ( terminal ( @use ( use-fx-key ) @lib modeori-fun/terms @use not( use-fx-key ) ) ( keybind mori-open-fold ( $f3 ) ) ( keybind e-m-enter-fold ( $f2 $f3 ) ) ( keybind mori-close-fold ( $f4 ) ) ( keybind exit-fold ( $f2 $f4 ) ) ( keybind goto-line ( $f2 "g ) ) ( keybind mori-incremental-search-forward ( $f2 "f ) ) ( keybind mori-query-replace-string ( $f2 "r ) ) ( keybind set-language ( $f2 "l ) ) ( keybind insert-file ( $f2 "i ) ) ( keybind read-file ( $f2 "o ) ) ( keybind e-m-save-file ( $f2 "s ) ) ( keybind write-file ( $f2 "w ) ) ( keybind center-and-redraw-display ( $f2 $f2 ) ) ( keybind mori-help ( $f2 "h ) ) ( keybind main-menu ( $f1 ) ) ( keybind exit-buffer ( $f2 "q ) ) ( keybind call-make ( $f5 ) ) ( keybind e-m-save-file ( $f6 ) ) ( keybind read-file ( $f7 ) ) ( keybind insert-file ( $f8 ) ) ( keybind change-buffername ( $f9 ) ) ( keybind exit-buffer ( $f10 ) ) ) ;OCL}}} @fi @if-using ( cursor-key ) ;OCL{{{ cursor-maps ( terminal ( @use ( use-cursor-key ) @lib modeori-fun/terms @use not( use-cursor-key ) ) ( keybind backward-character ( $left ) ) ( keybind forward-character ( $right ) ) ( keybind mori-next-line ( $down ) ) ( keybind mori-previous-line ( $up ) ) ( keybind backward-word ( $R13/Meta-left ) ) ( keybind forward-word ( $R13/Meta-right ) ) ( keybind mtool-top ( $R13/Meta-up ) ) ( keybind mtool-bot ( $R13/Meta-down ) ) ) ;OCL}}} @fi @if-using ( tab-key ) ;OCL{{{ tab-maps ( terminal ( @use ( use-tab-key ) @lib modeori-fun/terms @use not( use-tab-key ) ) ( keybind e-m-filename-completion ( $tab ) ) ( keybind tag-completion ( $esc $tab ) ) ) ;OCL}}} @fi @if-using ( r-key ) ;OCL{{{ SUN-terminal R-keys ( terminal ( @use (use-r-key ) @lib modeori-fun/terms @use not( use-r-key ) ) ;OCL{{{ moving ( keybind backward-character ( $R10 ) ) ( keybind backward-word ( $R13/Meta-R10 ) ) ( keybind beginning-of-line ( $R7 ) ) ( keybind forward-character ( $R12 ) ) ( keybind forward-word ( $R13/Meta-R12 ) ) ( keybind end-of-line ( $R9 ) ) ( keybind mori-previous-line ( $R8 ) ) ( keybind previous-page ( $R13/Meta-R1 ) ) ( keybind mtool-top ( $R13/Meta-R8 ) ) ( keybind beginning-of-fold ( $R1 ) ) ( keybind mori-next-line ( $R14 ) ) ( keybind next-page ( $R13/Meta-R3 ) ) ( keybind mtool-bot ( $R13/Meta-R14 ) ) ( keybind end-of-fold ( $R3 ) ) ( keybind goto-line ( $R13/Meta-g ) ) ( keybind mori-incremental-search-forward ( $R13/Meta-f ) ) ( keybind e-m-find-or-enter-and-go-tags-buffer ( $R13/Meta-t ) ) ;OCL}}} ;OCL{{{ editing and deleting ( keybind delete-line ( $R13/Meta-R9 ) ) ( keybind mori-query-replace-string ( $R13/Meta-r ) ) ( keybind undo-delete-line ( $R13/Meta-R7 ) ) ( keybind toggle-case-word ( $R13/Meta-! ) ) ( keybind uppercase-word ( $R13/Meta-u ) ) ( keybind capitalize-word ( $R13/Meta-c ) ) ( keybind lowercase-word ( $R13/Meta-v ) ) ;OCL}}} ;OCL{{{ folding ( keybind mori-open-fold ( $R4 ) ) ( keybind e-m-enter-fold ( $R13/Meta-R4 ) ) ( keybind mori-close-fold ( $R6 ) ) ( keybind exit-fold ( $R13/Meta-R6 ) ) ( keybind e-m-create-fold ( $R15 ) ) ( keybind e-m-unfold-fold ( $R13/Meta-R15 ) ) ( keybind toggle-file-fold ( $R13/Meta-R11 ) ) ( keybind set-language ( $R13/Meta-l ) ) ;OCL}}} ;OCL{{{ linehandling ( keybind double-line ( $R13/Meta-R5 ) ) ( keybind move-line ( $R13/Meta-R2 ) ) ( keybind kill-line ( $R2 ) ) ( keybind copy-to-kill-buffer ( $R5 ) ) ( keybind insert-folded-kill-buffer ( $R11 ) ) ;OCL}}} ;OCL{{{ files ( keybind insert-file ( $R13/Meta-i ) ) ( keybind read-file ( $R13/Meta-o ) ) ( keybind e-m-save-file ( $R13/Meta-s ) ) ( keybind write-file ( $R13/Meta-w ) ) ;OCL}}} ;OCL{{{ helps ( keybind center-and-redraw-display ( $R13/Meta-R13 ) ) ( keybind mori-help ( $R13/Meta-h ) ) ( keybind describe-bindings ( $R13/Meta-? ) ) ;OCL}}} ;OCL{{{ exit ( keybind exit-buffer ( $R13/Meta-q ) ) ;OCL}}} ;OCL{{{ macros ( keybind define-macro ( $R13/Meta-d ) ) ( keybind execute-macro ( $R13/Meta-m ) ) ;OCL}}} ;OCL{{{ system ;OCL}}} ;OCL{{{ advanced commands ( keybind set-argument-0 ( $R13/Meta-0 ) ) ( keybind set-argument-1 ( $R13/Meta-1 ) ) ( keybind set-argument-2 ( $R13/Meta-2 ) ) ( keybind set-argument-3 ( $R13/Meta-3 ) ) ( keybind set-argument-4 ( $R13/Meta-4 ) ) ( keybind set-argument-5 ( $R13/Meta-5 ) ) ( keybind set-argument-6 ( $R13/Meta-6 ) ) ( keybind set-argument-7 ( $R13/Meta-7 ) ) ( keybind set-argument-8 ( $R13/Meta-8 ) ) ( keybind set-argument-9 ( $R13/Meta-9 ) ) ( keybind switch-on-buffer-handling ( $R13/Meta-b ) ) ;OCL}}} ;OCL{{{ modes ;OCL}}} ) ;OCL}}} @fi @if-using ( l-key ) ;OCL{{{ SUN-terminal L-keys ( terminal ( @use (use-l-key ) @lib modeori-fun/terms @use not( use-l-key ) ) ;OCL{{{ moving ( keybind mori-incremental-search-forward ( $L9 ) ) ;OCL}}} ;OCL{{{ editing and deleting ( keybind undo-delete-line ( $L4 ) ) ( keybind copy-to-kill-buffer ( $L6 ) ) ( keybind kill-line ( $L10 ) ) ( keybind insert-folded-kill-buffer ( $L8 ) ) ;OCL}}} ) ;OCL}}} @fi @if-using ( help-key ) ;OCL{{{ help-map ( terminal ( @use (use-help-key ) @lib modeori-fun/terms @use not( use-help-key ) ) ( keybind describe-bindings ( $help ) ) ) ;OCL}}} @fi @if-using ( home-key ) ;OCL{{{ home-map ( terminal ( @use (use-home-key ) @lib modeori-fun/terms @use not( use-home-key ) ) ( keybind beginning-of-fold ( $home ) ) ( keybind end-of-fold ( $home-down ) ) ) ;OCL}}} @fi @if-using ( page-key ) ;OCL{{{ page-map ( terminal ( @use (use-page-key ) @lib modeori-fun/terms @use not( use-page-key ) ) ( keybind previous-page ( $prev_page ) ) ( keybind next-page ( $next_page ) ) ) ;OCL}}} @fi @if-using ( clreol-key ) ;OCL{{{ clreol-maps ( terminal ( @use ( use-clreol-key ) @lib modeori-fun/terms @use not( use-clreol-key ) ) ( keybind e-m-delete-to-end-of-line ( $clreol ) ) ) ;OCL}}} @fi @if-using ( delline-key ) ;OCL{{{ delline-maps ( terminal ( @use ( use-delline-key ) @lib modeori-fun/terms @use not( use-delline-key ) ) ( keybind delete-line ( $delline ) ) ) ;OCL}}} @fi @if-using ( line-key ) ;OCL{{{ line-maps ( terminal ( @use ( use-line-key ) @lib modeori-fun/terms @use not( use-line-key ) ) ( keybind beginning-of-line ( $begin ) ) ( keybind end-of-line ( $end ) ) ( keybind double-line ( $copy ) ) ( keybind move-line ( $move ) ) ) ;OCL}}} @fi @if-using ( misc-key ) ;OCL{{{ misc-maps ( terminal ( @use ( use-misc-key ) @lib modeori-fun/terms @use not( use-misc-key ) ) ( keybind exit-buffer ( $exit ) ) ( keybind e-m-save-file ( $save ) ) ( keybind center-and-redraw-display ( $refresh ) ) ( keybind mori-open-fold ( $open ) ) ( keybind mori-close-fold ( $close ) ) ( keybind suspend-origami ( $suspend ) ) ( keybind mori-incremental-search-forward ( $find ) ) ( keybind mori-query-replace-string ( $replace ) ) ( keybind toggle-mode-overwrite ( $insert-char ) ) ) ;OCL}}} @fi ;OCL{{{ some control keys (wordstar like?) ( keybind backward-character ( C-S ) ) ( keybind backward-word ( C-Q C-S ) ) ( keybind beginning-of-line ( C-A ) ) ( keybind forward-character ( C-D ) ) ( keybind forward-word ( C-Q C-D ) ) ( keybind end-of-line ( C-F ) ) ( keybind mori-previous-line ( C-E ) ) ( keybind mori-goto-matching-brace ( C-B ) ) ( keybind mtool-top ( C-Q C-E ) ) ( keybind mori-next-line ( C-X ) ) ( keybind mtool-bot ( C-Q C-X ) ) ( keybind goto-line ( C-Q "g ) ) ( keybind mori-incremental-search-forward ( C-Q "f ) ) ( keybind e-m-delete-character ( C-G ) ) ( keybind e-m-delete-to-end-of-line ( C-Y ) ) ( keybind mori-query-replace-string ( C-Q "r ) ) ( keybind e-m-find-or-enter-and-go-tags-buffer ( C-Q "t ) ) ( keybind mori-open-fold ( C-W ) ) ( keybind e-m-enter-fold ( C-Q C-W ) ) ( keybind mori-close-fold ( C-R ) ) ( keybind exit-fold ( C-Q C-R ) ) ( keybind transpose-characters ( C-T ) ) ( keybind suspend-origami ( C-Z ) ) ( keybind set-language ( C-Q "l ) ) ( keybind insert-file ( C-Q "i ) ) ( keybind read-file ( C-Q "o ) ) ( keybind e-m-save-file ( C-Q "s ) ) ( keybind write-file ( C-Q "w ) ) ( keybind center-and-redraw-display ( C-Q C-Q ) ) ( keybind mori-help ( C-Q "h ) ) ( keybind describe-bindings ( C-Q "? ) ) ( keybind exit-buffer ( C-Q "q ) ) ( keybind define-macro ( C-Q "d ) ) ( keybind execute-macro ( C-Q "m ) ) ( keybind kill-line ( C-K ) ) ( keybind copy-to-kill-buffer ( C-Q C-K ) ) ( keybind insert-folded-kill-buffer ( C-P ) ) ( keybind delete-line ( C-L ) ) ( keybind undo-delete-line ( C-Q C-L ) ) ( keybind double-line ( C-O ) ) ( keybind move-line ( C-Q C-O ) ) ( keybind switch-on-buffer-handling ( C-Q "b ) ) @if-using (L-EXT) ( keybind language-struct ( C-U ) ) @fi ( keybind e-m-create-fold ( C-\ ) ) ( keybind toggle-case-word ( C-Q "! ) ) ( keybind uppercase-word ( C-Q "u ) ) ( keybind capitalize-word ( C-Q "c ) ) ( keybind lowercase-word ( C-Q "v ) ) @if-using ( ctrl-h-key ) ;OCL{{{ ctrl-h ( terminal ( @use ( use-ctrl-h-key ) @lib modeori-fun/terms @use not( use-ctrl-h-key ) ) ( keybind e-m-delete-previous-character ( C-H ) ) ( keybind append-to-previous-line ( $esc C-H ) ) ) ;OCL}}} @fi ;OCL}}} @if-using ( edt-key ) ;OCL{{{ some keypad simualtion bindings for edt ( terminal ( @use ( use-edt-key ) @lib modeori-fun/terms @use not( use-edt-key ) ) ( keybind center-and-redraw-display ( $Gold $Gold ) ) ( keybind info ( $Help ) ) ( keybind describe-bindings ( $Gold $Help ) ) ( keybind EDT-find-next-direction ( $Find ) ) ( keybind EDT-find-direction ( $Gold $Find ) ) ( keybind delete-line ( $DelLine ) ) ( keybind EDT-undelete-line ( $Gold $DelLine ) ) ( keybind EDT-page-begin ( $Page ) ) ( keybind EDT-quit-buffer ( $Gold $Page "q "u "i "t ) ) ( keybind EDT-exit-buffer ( $Gold $Page "e "x "i "t ) ) ( keybind EDT-toggle-mode-overwrite ( $Gold $Page "i "n "s "e "r "t ) ) ( keybind e-m-save-file ( $Gold $Page "s "a "v "e ) ) ( keybind beginning-of-fold ( $Gold $Page "t "o "p ) ) ( keybind end-of-fold ( $Gold $Page "b "o "t "t "o "m ) ) ( keybind goto-line ( $Gold $Page $space ) ) ( keybind EDT-section-move ( $Section ) ) ( keybind e-m-fill-paragraph ( $Gold $Section ) ) ( keybind kill-line ( $Append ) ) ( keybind EDT-replace-line-by-kill ( $Gold $Append ) ) ( keybind mori-open-fold ( $DelWord ) ) ( keybind mori-close-fold ( $Gold $DelWord ) ) ( keybind EDT-set-direction-forward ( $Advance ) ) ( keybind end-of-fold ( $Gold $Advance ) ) ( keybind EDT-set-direction-backward ( $Backup ) ) ( keybind beginning-of-fold ( $Gold $Backup ) ) ( keybind EDT-clear-kill-and-cut-line ( $Cut ) ) ( keybind EDT-paste-and-rekill-line ( $Gold $Cut ) ) ( keybind enter-fold ( $DelChar ) ) ( keybind exit-fold ( $Gold $DelChar ) ) ( keybind EDT-word-move ( $Word ) ) ( keybind EDT-toggle-case-char ( $Gold $Word ) ) ( keybind end-of-line ( $EOL ) ) ( keybind e-m-delete-to-end-of-line ( $Gold $EOL ) ) ( keybind EDT-char-move ( $Char ) ) ( keybind EDT-insert-number-char ( $Gold $Char ) ) ( keybind beginning-of-line ( $SOL ) ) ( keybind EDT-delete-to-beginning-of-line ( $Gold $SOL ) ) ( keybind e-m-create-fold ( $Select ) ) ( keybind e-m-unfold-fold ( $Gold $Select ) ) ( keybind shell ( $Gold "x ) ) ) ;OCL}}} @fi @if-using ( AMIGA ) @lib modeori-fun/amiga-numpad @fi ;OCL{{{ unbindings ( terminal ( @use ( use-unbind-key ) @lib modeori-fun/terms @use not( use-unbind-key ) ) ( keybind - ( $unbind-unused-sequences ) ) ) ;OCL}}} ) ;OCL}}} @fi ;OCL}}} ;OCL{{{ move @if-using ( ALIEN-KEYTABLES ) ;OCL{{{ alien move mode @use ( MOVE-MODE ) @include modeori.ktb @use not( MOVE-MODE ) ;OCL}}} @fi @if-using not( ALIEN-KEYTABLES ) ;OCL{{{ standard bindings ( mode moves ;OCL{{{ moving ;OCL{{{ same as edit ( keybind backward-character ( $esc "l "e ) ) ( keybind backward-word ( $esc "l "w ) ) ( keybind beginning-of-line ( $esc "s "l ) ) ( keybind forward-character ( $esc "r "i ) ) ( keybind forward-word ( $esc "r "w ) ) ( keybind end-of-line ( $esc "e "l ) ) ( keybind previous-line ( $esc "u "p ) ) ( keybind previous-page ( $esc "p "u ) ) ( keybind mtool-top ( $esc "s "f ) ) ( keybind beginning-of-fold ( $esc "s "F ) ) ( keybind next-line ( $esc "d "n ) ) ( keybind next-page ( $esc "p "d ) ) ( keybind mtool-bot ( $esc "b "o ) ) ( keybind end-of-fold ( $esc "b "O ) ) ( keybind mori-search-forward ( $esc "f "i ) ) ( keybind mori-incremental-search-forward ( $esc "i "s ) ) ( keybind mori-goto-matching-brace ( $esc "m "b ) ) ( keybind go-last-mark ( $esc "g "m ) ) ;OCL{{{ 0 ( keybind set-mark-0 ( $esc "s "0 ) ) ( keybind go-mark-0 ( $esc "g "0 ) ) ( keybind swap-mark-0 ( $esc "w "0 ) ) ;OCL}}} ;OCL{{{ 1 ( keybind set-mark-1 ( $esc "s "1 ) ) ( keybind go-mark-1 ( $esc "g "1 ) ) ( keybind swap-mark-1 ( $esc "w "1 ) ) ;OCL}}} ;OCL{{{ 2 ( keybind set-mark-2 ( $esc "s "2 ) ) ( keybind go-mark-2 ( $esc "g "2 ) ) ( keybind swap-mark-2 ( $esc "w "2 ) ) ;OCL}}} ;OCL{{{ 3 ( keybind set-mark-3 ( $esc "s "3 ) ) ( keybind go-mark-3 ( $esc "g "3 ) ) ( keybind swap-mark-3 ( $esc "w "3 ) ) ;OCL}}} ;OCL{{{ 4 ( keybind set-mark-4 ( $esc "s "4 ) ) ( keybind go-mark-4 ( $esc "g "4 ) ) ( keybind swap-mark-4 ( $esc "w "4 ) ) ;OCL}}} ;OCL{{{ 5 ( keybind set-mark-5 ( $esc "s "5 ) ) ( keybind go-mark-5 ( $esc "g "5 ) ) ( keybind swap-mark-5 ( $esc "w "5 ) ) ;OCL}}} ;OCL{{{ 6 ( keybind set-mark-6 ( $esc "s "6 ) ) ( keybind go-mark-6 ( $esc "g "6 ) ) ( keybind swap-mark-6 ( $esc "w "6 ) ) ;OCL}}} ;OCL{{{ 7 ( keybind set-mark-7 ( $esc "s "7 ) ) ( keybind go-mark-7 ( $esc "g "7 ) ) ( keybind swap-mark-7 ( $esc "w "7 ) ) ;OCL}}} ;OCL{{{ 8 ( keybind set-mark-8 ( $esc "s "8 ) ) ( keybind go-mark-8 ( $esc "g "8 ) ) ( keybind swap-mark-8 ( $esc "w "8 ) ) ;OCL}}} ;OCL{{{ 9 ( keybind set-mark-9 ( $esc "s "9 ) ) ( keybind go-mark-9 ( $esc "g "9 ) ) ( keybind swap-mark-9 ( $esc "w "9 ) ) ;OCL}}} ;OCL}}} ( keybind m-m-goto-line ( $esc "g "o ) ) ( keybind go-start-mark ( $esc $esc ) ) ( keybind m-m-set-start-mark ( ". ) ) ( keybind change-position ( "- ) ) ;OCL}}} ;OCL{{{ editing ( keybind delete-mark-region ( $esc "d "l ) ) ( keybind undo-delete-line-unfolded-at-position ( $esc "u "l ) ) ( keybind shift-in-region ( $space ) ) ( keybind shift-out-region ( $esc "b "s ) ) ( keybind shift-out-region ( $esc "d "c ) ) ( keybind shift-x-region ( "+ ) ) ( keybind shift-to-region ( "t ) ) ( keybind toggle-case-mark-region ( "! ) ) ( keybind uppercase-mark-region ( "u ) ) ( keybind lowercase-mark-region ( "v ) ) ;OCL}}} ;OCL{{{ files ( keybind filename-completion ( $esc "f "c ) ) ;OCL}}} ;OCL{{{ folding ;OCL{{{ same as edit ( keybind mori-open-fold ( $esc "o "p ) ) ( keybind mori-close-fold ( $esc "c "l ) ) ;OCL}}} ( keybind fold-mark-region ( $esc "c "r ) ) ( keybind fold-mark-region ( "f ) ) ;OCL}}} ;OCL{{{ linehandling ( keybind copy-mark-region ( $esc "c "o ) ) ( keybind kill-mark-region ( $esc "p "i ) ) ( keybind move-mark-region ( $esc "m "o ) ) ( keybind copy-kill-mark-region ( $esc "c "p ) ) ( keybind unkill-unfolded-at-position ( $esc "p "p ) ) ;OCL}}} ;OCL{{{ helps ( keybind describe-fold ( $esc "f "? ) ) ( keybind mori-help ( $esc "h "e ) ) ( keybind describe-bindings ( $esc "h "b ) ) ;OCL}}} ;OCL{{{ move-menu ( keybind move-menu ( $esc "m "m ) ) ;OCL}}} ;OCL{{{ arguments ( keybind set-argument-0 ( $esc "0 ) ) ( keybind set-argument-1 ( $esc "1 ) ) ( keybind set-argument-2 ( $esc "2 ) ) ( keybind set-argument-3 ( $esc "3 ) ) ( keybind set-argument-4 ( $esc "4 ) ) ( keybind set-argument-5 ( $esc "5 ) ) ( keybind set-argument-6 ( $esc "6 ) ) ( keybind set-argument-7 ( $esc "7 ) ) ( keybind set-argument-8 ( $esc "8 ) ) ( keybind set-argument-9 ( $esc "9 ) ) ;OCL}}} @if-using ( del-key ) ;OCL{{{ delete-maps ( terminal ( @use ( use-del-key ) @lib modeori-fun/terms @use not( use-del-key ) ) ) ;OCL}}} @fi @if-using ( backs-key ) ;OCL{{{ backspace-maps ( terminal ( @use ( use-backs-key ) @lib modeori-fun/terms @use not( use-backs-key ) ) ( keybind shift-out-region ( $backspace ) ) ) ;OCL}}} @fi @if-using ( fx-key ) ;OCL{{{ fx-maps ( terminal ( @use ( use-fx-key ) @lib modeori-fun/terms @use not( use-fx-key ) ) ( keybind mori-open-fold ( $f3 ) ) ( keybind mori-close-fold ( $f4 ) ) ( keybind mori-incremental-search-forward ( $f2 "f ) ) ( keybind m-m-goto-line ( $f2 "g ) ) ( keybind go-start-mark ( $f2 $f2 ) ) ( keybind mori-help ( $f2 "h ) ) ( keybind move-menu ( $f1 ) ) ) ;OCL}}} @fi @if-using ( cursor-key ) ;OCL{{{ cursor-maps ( terminal ( @use ( use-cursor-key ) @lib modeori-fun/terms @use not( use-cursor-key ) ) ( keybind backward-character ( $left ) ) ( keybind forward-character ( $right ) ) ( keybind next-line ( $down ) ) ( keybind previous-line ( $up ) ) ( keybind backward-word ( $R13/Meta-left ) ) ( keybind forward-word ( $R13/Meta-right ) ) ( keybind mtool-top ( $R13/Meta-up ) ) ( keybind mtool-bot ( $R13/Meta-down ) ) ) ;OCL}}} @fi @if-using ( tab-key ) ;OCL{{{ tab-maps ( terminal ( @use ( use-tab-key ) @lib modeori-fun/terms @use not( use-tab-key ) ) ) ;OCL}}} @fi @if-using ( r-key ) ;OCL{{{ SUN-terminal R-keys ( terminal ( @use ( use-r-key ) @lib modeori-fun/terms @use not( use-r-key ) ) ;OCL{{{ moving ( keybind backward-character ( $R10 ) ) ( keybind backward-word ( $R13/Meta-R10 ) ) ( keybind beginning-of-line ( $R7 ) ) ( keybind forward-character ( $R12 ) ) ( keybind forward-word ( $R13/Meta-R12 ) ) ( keybind end-of-line ( $R9 ) ) ( keybind previous-line ( $R8 ) ) ( keybind previous-page ( $R13/Meta-R1 ) ) ( keybind mtool-top ( $R13/Meta-R8 ) ) ( keybind beginning-of-fold ( $R1 ) ) ( keybind next-line ( $R14 ) ) ( keybind next-page ( $R13/Meta-R3 ) ) ( keybind mtool-bot ( $R13/Meta-R14 ) ) ( keybind end-of-fold ( $R3 ) ) ( keybind mori-incremental-search-forward ( $R13/Meta-f ) ) ( keybind m-m-goto-line ( $R13/Meta-g ) ) ( keybind go-start-mark ( $R13/Meta-R13 ) ) ;OCL}}} ;OCL{{{ editing ( keybind delete-mark-region ( $R13/Meta-R9 ) ) ( keybind undo-delete-line-unfolded-at-position ( $R13/Meta-R7 ) ) ;OCL}}} ;OCL{{{ folding ( keybind mori-open-fold ( $R4 ) ) ( keybind mori-close-fold ( $R6 ) ) ( keybind fold-mark-region ( $R15 ) ) ;OCL}}} ;OCL{{{ linehandling ( keybind copy-mark-region ( $R13/Meta-R5 ) ) ( keybind kill-mark-region ( $R2 ) ) ( keybind move-mark-region ( $R13/Meta-R2 ) ) ( keybind copy-kill-mark-region ( $R5 ) ) ( keybind unkill-unfolded-at-position ( $R11 ) ) ;OCL}}} ;OCL{{{ helps ( keybind mori-help ( $R13/Meta-h ) ) ( keybind describe-bindings ( $R13/Meta-? ) ) ;OCL}}} ;OCL{{{ area ;OCL}}} ;OCL{{{ vi-based commands ;OCL}}} ;OCL{{{ advanced commands ( keybind set-argument-0 ( $R13/Meta-0 ) ) ( keybind set-argument-1 ( $R13/Meta-1 ) ) ( keybind set-argument-2 ( $R13/Meta-2 ) ) ( keybind set-argument-3 ( $R13/Meta-3 ) ) ( keybind set-argument-4 ( $R13/Meta-4 ) ) ( keybind set-argument-5 ( $R13/Meta-5 ) ) ( keybind set-argument-6 ( $R13/Meta-6 ) ) ( keybind set-argument-7 ( $R13/Meta-7 ) ) ( keybind set-argument-8 ( $R13/Meta-8 ) ) ( keybind set-argument-9 ( $R13/Meta-9 ) ) ;OCL}}} ) ;OCL}}} @fi @if-using ( l-key ) ;OCL{{{ SUN-terminal L-keys ( terminal ( @use ( use-l-key ) @lib modeori-fun/terms @use not( use-l-key ) ) ;OCL{{{ moving ( keybind mori-incremental-search-forward ( $L9 ) ) ;OCL}}} ;OCL{{{ editing ( keybind copy-kill-mark-region ( $L6 ) ) ( keybind kill-mark-region ( $L10 ) ) ( keybind unkill-unfolded-at-position ( $L8 ) ) ( keybind undo-delete-line-unfolded-at-position ( $L4 ) ) ;OCL}}} ;OCL{{{ helps ( keybind describe-fold ( $L3 ) ) ;OCL}}} ;OCL{{{ switch ( keybind switch-to-edit-mode-insert ( $L1 ) ) ;OCL}}} ) ;OCL}}} @fi @if-using ( help-key ) ;OCL{{{ help-key ( terminal ( @use ( use-help-key ) @lib modeori-fun/terms @use not( use-help-key ) ) ( keybind describe-bindings ( $help ) ) ) ;OCL}}} @fi @if-using ( home-key ) ;OCL{{{ home-map ( terminal ( @use (use-home-key ) @lib modeori-fun/terms @use not( use-home-key ) ) ( keybind beginning-of-fold ( $home ) ) ) ;OCL}}} @fi @if-using ( page-key ) ;OCL{{{ page-map ( terminal ( @use (use-page-key ) @lib modeori-fun/terms @use not( use-page-key ) ) ( keybind previous-page ( $prev_page ) ) ( keybind next-page ( $next_page ) ) ) ;OCL}}} @fi @if-using ( delline-key ) ;OCL{{{ delline-maps ( terminal ( @use ( use-delline-key ) @lib modeori-fun/terms @use not( use-delline-key ) ) ( keybind delete-mark-region ( $delline ) ) ) ;OCL}}} @fi @if-using ( line-key ) ;OCL{{{ line-maps ( terminal ( @use ( use-line-key ) @lib modeori-fun/terms @use not( use-line-key ) ) ( keybind beginning-of-line ( $begin ) ) ( keybind end-of-line ( $end ) ) ( keybind copy-kill-mark-region ( $copy ) ) ( keybind move-mark-region ( $move ) ) ) ;OCL}}} @fi @if-using ( misc-key ) ;OCL{{{ misc-maps ( terminal ( @use ( use-misc-key ) @lib modeori-fun/terms @use not( use-misc-key ) ) ( keybind mori-open-fold ( $open ) ) ( keybind mori-close-fold ( $close ) ) ( keybind mori-incremental-search-forward ( $find ) ) ) ;OCL}}} @fi ;OCL{{{ some control keys (wordstar like?) ( keybind backward-character ( C-S ) ) ( keybind backward-word ( C-Q C-S ) ) ( keybind forward-character ( C-D ) ) ( keybind forward-word ( C-Q C-D ) ) ( keybind end-of-line ( C-F ) ) ( keybind previous-line ( C-E ) ) ( keybind mori-goto-matching-brace ( C-B ) ) ( keybind beginning-of-line ( C-A ) ) ( keybind mtool-top ( C-Q C-E ) ) ( keybind mtool-bot ( C-Q C-X ) ) ( keybind next-line ( C-X ) ) ( keybind end-of-fold ( C-Q "c ) ) ( keybind mori-open-fold ( C-W ) ) ( keybind mori-close-fold ( C-R ) ) ( keybind mori-incremental-search-forward ( C-Q "f ) ) ( keybind m-m-goto-line ( C-Q "g ) ) ( keybind mori-help ( C-Q "h ) ) ( keybind describe-bindings ( C-Q "? ) ) ( keybind kill-mark-region ( C-K ) ) ( keybind copy-kill-mark-region ( C-Q C-K ) ) ( keybind unkill-unfolded-at-position ( C-P ) ) ( keybind delete-mark-region ( C-L ) ) ( keybind undo-delete-line-unfolded-at-position ( C-Q C-L ) ) ( keybind copy-mark-region ( C-O ) ) ( keybind move-mark-region ( C-Q C-O ) ) ( keybind fold-mark-region ( C-\ ) ) @if-using ( ctrl-h-key ) ;OCL{{{ ctrl-h ( terminal ( @use ( use-ctrl-h-key ) @lib modeori-fun/terms @use not( use-ctrl-h-key ) ) ( keybind shift-out-region ( C-H ) ) ) ;OCL}}} @fi ;OCL}}} @if-using ( edt-key ) ;OCL{{{ some keypad simualtion bindings for edt ( terminal ( @use ( use-edt-key ) @lib modeori-fun/terms @use not( use-edt-key ) ) ( keybind describe-bindings ( $Gold $Help ) ) ( keybind EDT-find-next-direction ( $Find ) ) ( keybind EDT-find-direction ( $Gold $Find ) ) ( keybind delete-mark-region ( $DelLine ) ) ( keybind EDT-undo-delete-line-unfolded-at-position ( $Gold $DelLine ) ) ( keybind EDT-page-begin ( $Page ) ) ( keybind beginning-of-fold ( $Gold $Page "t "o "p ) ) ( keybind end-of-fold ( $Gold $Page "b "o "t "t "o "m ) ) ( keybind m-m-goto-line ( $Gold $Page $space ) ) ( keybind EDT-section-move ( $Section ) ) ( keybind kill-mark-region ( $Append ) ) ( keybind EDT-replace-region-by-kill ( $Gold $Append ) ) ( keybind mori-open-fold ( $DelWord ) ) ( keybind mori-close-fold ( $Gold $DelWord ) ) ( keybind EDT-set-direction-forward ( $Advance ) ) ( keybind end-of-fold ( $Gold $Advance ) ) ( keybind EDT-set-direction-backward ( $Backup ) ) ( keybind beginning-of-fold ( $Gold $Backup ) ) ( keybind EDT-clear-kill-and-cut-region ( $Cut ) ) ( keybind EDT-paste-and-rekill-region ( $Gold $Cut ) ) ( keybind EDT-word-move ( $Word ) ) ( keybind toggle-case-mark-region ( $Gold $Word ) ) ( keybind end-of-line ( $EOL ) ) ( keybind EDT-char-move ( $Char ) ) ( keybind beginning-of-line ( $SOL ) ) ( keybind fold-mark-region ( $Select ) ) ) ;OCL}}} @fi ;OCL{{{ unbindings ( terminal ( @use ( use-unbind-key ) @lib modeori-fun/terms @use not( use-unbind-key ) ) ( keybind - ( $unbind-unused-sequences ) ) ) ( keybind - ( * ) ) ;OCL}}} ) ;OCL}}} @fi ;OCL}}} ;OCL{{{ buffer-move @if-using ( ALIEN-KEYTABLES ) ;OCL{{{ alien buffer move mode @use ( BUFFER-MOVE-MODE ) @include modeori.ktb @use not( BUFFER-MOVE-MODE ) ;OCL}}} @fi @if-using not( ALIEN-KEYTABLES ) ;OCL{{{ default buffer move mode ( mode buffer-move ( keybind switch-off-buffer-handling ( $return ) ) ( keybind b-m-full-size-buffer ( "f ) ) ( keybind b-m-widen-buffer ( "d ) ) ( keybind b-m-grow-buffer ( "e ) ) ( keybind b-m-narrow-buffer ( "s ) ) ( keybind b-m-shrink-buffer ( "x ) ) ( keybind left-buffer ( "S ) ) ( keybind right-buffer ( "D ) ) ( keybind up-buffer ( "E ) ) ( keybind down-buffer ( "X ) ) ( keybind open-buffer ( "o ) ) ( keybind open-list-buffer ( "O ) ) ( keybind open-adjacent-buffer ( "a ) ) ( keybind open-list-adjacent-buffer ( "A ) ) ( keybind next-buffer ( "n ) ) ( keybind previous-buffer ( "p ) ) ( keybind b-m-go-buffer ( "g ) ) ( keybind b-m-exit-buffer ( "q ) ) ( keybind exit-origami ( "Q "U ) ) ( keybind center-and-redraw-display ( "r ) ) ( keybind help ( "h ) ) ( keybind describe-bindings ( "? ) ) ( keybind b-m-menu ( "m ) ) ( keybind b-m-set-argument-0 ( "0 ) ) ( keybind b-m-set-argument-1 ( "1 ) ) ( keybind b-m-set-argument-2 ( "2 ) ) ( keybind b-m-set-argument-3 ( "3 ) ) ( keybind b-m-set-argument-4 ( "4 ) ) ( keybind b-m-set-argument-5 ( "5 ) ) ( keybind b-m-set-argument-6 ( "6 ) ) ( keybind b-m-set-argument-7 ( "7 ) ) ( keybind b-m-set-argument-8 ( "8 ) ) ( keybind b-m-set-argument-9 ( "9 ) ) @if-using ( del-key ) ;OCL{{{ delete-maps ( terminal ( @use ( use-del-key ) @lib modeori-fun/terms @use not( use-del-key ) ) ) ;OCL}}} @fi @if-using ( backs-key ) ;OCL{{{ backspace-maps ( terminal ( @use ( use-backs-key ) @lib modeori-fun/terms @use not( use-backs-key ) ) ) ;OCL}}} @fi @if-using ( cursor-key ) ;OCL{{{ cursor-maps ( terminal ( @use ( use-cursor-key ) @lib modeori-fun/terms @use not( use-cursor-key ) ) ( keybind b-m-widen-buffer ( $right ) ) ( keybind b-m-narrow-buffer ( $left ) ) ( keybind b-m-grow-buffer ( $up ) ) ( keybind b-m-shrink-buffer ( $down ) ) ( keybind right-buffer ( $R13/Meta-right ) ) ( keybind left-buffer ( $R13/Meta-left ) ) ( keybind up-buffer ( $R13/Meta-up ) ) ( keybind down-buffer ( $R13/Meta-down ) ) ) ;OCL}}} @fi @if-using ( tab-key ) ;OCL{{{ tab-maps ( terminal ( @use ( use-tab-key ) @lib modeori-fun/terms @use not( use-tab-key ) ) ) ;OCL}}} @fi @if-using ( fx-key ) ;OCL{{{ fx-maps ( terminal ( @use ( use-fx-key ) @lib modeori-fun/terms @use not( use-fx-key ) ) ( keybind center-and-redraw-display ( $f2 $f2 ) ) ( keybind b-m-exit-buffer ( $f10 ) ) ) ;OCL}}} @fi @if-using ( misc-key ) ;OCL{{{ misc-maps ( terminal ( @use ( use-misc-key ) @lib modeori-fun/terms @use not( use-misc-key ) ) ( keybind b-m-exit-buffer ( $exit ) ) ( keybind center-and-redraw-display ( $refresh ) ) ) ;OCL}}} @fi @if-using ( r-key ) ;OCL{{{ SUN-terminal R-keys ( terminal ( @use( use-r-key ) @lib modeori-fun/terms @use not( use-r-key ) ) ( keybind b-m-widen-buffer ( $R12 ) ) ( keybind right-buffer ( $R13/Meta-R12 ) ) ( keybind b-m-narrow-buffer ( $R10 ) ) ( keybind left-buffer ( $R13/Meta-R10 ) ) ( keybind b-m-grow-buffer ( $R8 ) ) ( keybind up-buffer ( $R13/Meta-R8 ) ) ( keybind b-m-shrink-buffer ( $R14 ) ) ( keybind down-buffer ( $R13/Meta-R14 ) ) ( keybind center-and-redraw-display ( $R13/Meta-R13 ) ) ) ;OCL}}} @fi ;OCL{{{ some control keys (wordstar like?) ( keybind center-and-redraw-display ( C-Q C-Q ) ) @if-using ( ctrl-h-key ) ;OCL{{{ ctrl-h ( terminal ( @use ( use-ctrl-h-key ) @lib modeori-fun/terms @use not( use-ctrl-h-key ) ) ) ;OCL}}} @fi ;OCL}}} ;OCL{{{ keypad-keys ( terminal ( @use ( use-keypad-key ) @lib modeori-fun/terms @use not( use-keypad-key ) ) ( keybind b-m-set-argument-0 ( $KP-0 ) ) ( keybind b-m-set-argument-1 ( $KP-1 ) ) ( keybind b-m-set-argument-2 ( $KP-2 ) ) ( keybind b-m-set-argument-3 ( $KP-3 ) ) ( keybind b-m-set-argument-4 ( $KP-4 ) ) ( keybind b-m-set-argument-5 ( $KP-5 ) ) ( keybind b-m-set-argument-6 ( $KP-6 ) ) ( keybind b-m-set-argument-7 ( $KP-7 ) ) ( keybind b-m-set-argument-8 ( $KP-8 ) ) ( keybind b-m-set-argument-9 ( $KP-9 ) ) ) ;OCL}}} ;OCL{{{ unbindings ( terminal ( @use ( use-unbind-key ) @lib modeori-fun/terms @use not( use-unbind-key ) ) ( keybind - ( $unbind-unused-sequences ) ) ) ( keybind - ( * ) ) ;OCL}}} ) ;OCL}}} @fi ;OCL}}} ;OCL{{{ ModeOriShell @if-using ( SHELL-MODE ) @if-using ( ALIEN-KEYTABLES ) ;OCL{{{ alien shell modes @use ( SHELL-MODES ) @include modeori.ktb @use not( SHELL-MODES ) ;OCL}}} @fi @if-using not( ALIEN-KEYTABLES ) ;OCL{{{ default shell tables ;OCL{{{ I-Main-Menu ( mode I-Main-Menu ;OCL{{{ normal sequences ( keybind I-refresh-directory ( $esc "r "f ) ) ( keybind describe-bindings ( $esc "h "b ) ) ( keybind I-quit-shell ( $esc "q "u ) ) ( keybind previous-line ( $esc "u "p ) ) ( keybind I-open-fold ( $esc "o "p ) ) ( keybind I-action-select ( $esc "e "n ) ) ( keybind I-close-fold ( $esc "c "l ) ) ( keybind mtool-top ( $esc "s "f ) ) ( keybind mtool-bot ( $esc "b "o ) ) @if-using not( NO-HELP-BROWSER ) ( keybind info ( $esc "i "f ) ) ( keybind info ( $esc "h "e ) ) ( keybind info ( "i ) ) @fi ( keybind previous-page ( $esc "p "u ) ) ( keybind previous-page ( $esc "l "e ) ) ( keybind next-page ( $esc "p "d ) ) ( keybind next-page ( $esc "r "i ) ) ( keybind I-action-select ( $return ) ) ( keybind I-toggle-select ( $space ) ) ( keybind I-toggle-select ( "s ) ) ( keybind I-toggle-select ( "S ) ) ( keybind I-change-directory ( "d ) ) ( keybind I-change-directory ( "D ) ) ( keybind I-file-menu ( "f ) ) ( keybind I-file-menu ( "F ) ) ( keybind describe-bindings ( "? ) ) ( keybind I-quit-shell ( "q ) ) ( keybind I-quit-shell ( "Q ) ) ( keybind next-line ( $esc "d "n ) ) ( keybind I-edit ( "e ) ) ( keybind I-edit ( "E ) ) ( keybind I-browser ( "b ) ) ( keybind I-browser ( "B ) ) ( keybind I-mail ( "p ) ) ( keybind I-mail ( "P ) ) ( keybind I-make ( "m ) ) ( keybind I-make ( "M ) ) ( keybind I-nn ( "n ) ) ( keybind I-nn ( "N ) ) ( keybind I-toggle-expert-mode ( "x ) ) ( keybind I-change-commands ( $esc "m "m ) ) ;OCL}}} @if-using ( del-key ) ;OCL{{{ delete-maps ( terminal ( @use ( use-del-key ) @lib modeori-fun/terms @use not( use-del-key ) ) ) ;OCL}}} @fi @if-using ( backs-key ) ;OCL{{{ backspace-maps ( terminal ( @use ( use-backs-key ) @lib modeori-fun/terms @use not( use-backs-key ) ) ) ;OCL}}} @fi @if-using ( cursor-key ) ;OCL{{{ cursor-maps ( terminal ( @use ( use-cursor-key ) @lib modeori-fun/terms @use not( use-cursor-key ) ) ( keybind previous-page ( $left ) ) ( keybind next-page ( $right ) ) ( keybind next-line ( $down ) ) ( keybind previous-line ( $up ) ) ( keybind mtool-top ( $R13/Meta-up ) ) ( keybind mtool-bot ( $R13/Meta-down ) ) ) ;OCL}}} @fi @if-using ( tab-key ) ;OCL{{{ tab-maps ( terminal ( @use ( use-tab-key ) @lib modeori-fun/terms @use not( use-tab-key ) ) ) ;OCL}}} @fi @if-using ( fx-key ) ;OCL{{{ fx-maps ( terminal ( @use ( use-fx-key ) @lib modeori-fun/terms @use not( use-fx-key ) ) ( keybind I-open-fold ( $f3 ) ) ( keybind I-action-select ( $f2 $f3 ) ) ( keybind I-close-fold ( $f4 ) ) ( keybind I-refresh-directory ( $f2 $f2 ) ) @if-using not( NO-HELP-BROWSER ) ( keybind info ( $f1 ) ) ( keybind info ( $f2 "h ) ) @fi ( keybind I-make ( $f5 ) ) ( keybind I-refresh-directory ( $f7 ) ) ( keybind I-refresh-directory ( $f8 ) ) ( keybind I-change-directory ( $f9 ) ) ( keybind I-quit-shell ( $f10 ) ) ) ;OCL}}} @fi @if-using ( page-key ) ;OCL{{{ page-map ( terminal ( @use (use-page-key ) @lib modeori-fun/terms @use not( use-page-key ) ) ( keybind previous-page ( $prev_page ) ) ( keybind next-page ( $next_page ) ) ) ;OCL}}} @fi @if-using ( misc-key ) ;OCL{{{ misc-maps ( terminal ( @use ( use-misc-key ) @lib modeori-fun/terms @use not( use-misc-key ) ) ( keybind I-refresh-directory ( $refresh ) ) ( keybind I-quit-shell ( $exit ) ) ) ;OCL}}} @fi @if-using ( r-key ) ;OCL{{{ SUN-terminal R-keys ( terminal ( @use( use-r-key ) @lib modeori-fun/terms @use not( use-r-key ) ) ( keybind I-refresh-directory ( $R13/Meta-R13 ) ) ( keybind I-open-fold ( $R4 ) ) ( keybind I-action-select ( $R13/Meta-R4 ) ) ( keybind I-close-fold ( $R6 ) ) ( keybind previous-line ( $R8 ) ) ( keybind next-line ( $R14 ) ) ( keybind I-quit-shell ( $R13/Meta-q ) ) ( keybind describe-bindings ( $R13/Meta-? ) ) ( keybind mtool-top ( $R13/Meta-R8 ) ) ( keybind mtool-bot ( $R13/Meta-R14 ) ) @if-using not( NO-HELP-BROWSER ) ( keybind info ( $R13/Meta-h ) ) @fi ( keybind previous-page ( $R13/Meta-R1 ) ) ( keybind previous-page ( $R10 ) ) ( keybind next-page ( $R13/Meta-R3 ) ) ( keybind next-page ( $R12 ) ) ) ;OCL}}} @fi ;OCL{{{ some control keys (wordstar like?) ( keybind I-refresh-directory ( C-Q C-Q ) ) ( keybind previous-page ( C-S ) ) ( keybind next-page ( C-D ) ) ( keybind I-open-fold ( C-W ) ) ( keybind I-action-select ( C-Q C-W ) ) ( keybind I-close-fold ( C-R ) ) ( keybind previous-line ( C-E ) ) ( keybind next-line ( C-X ) ) ( keybind I-quit-shell ( C-Q "q ) ) ( keybind describe-bindings ( C-Q "? ) ) ( keybind mtool-top ( C-Q C-E ) ) ( keybind mtool-bot ( C-Q C-X ) ) @if-using not( NO-HELP-BROWSER ) ( keybind info ( C-Q "h ) ) @fi @if-using ( ctrl-h-key ) ;OCL{{{ ctrl-h ( terminal ( @use ( use-ctrl-h-key ) @lib modeori-fun/terms @use not( use-ctrl-h-key ) ) ) ;OCL}}} @fi ;OCL}}} ;OCL{{{ unbindings ( terminal ( @use ( use-unbind-key ) @lib modeori-fun/terms @use not( use-unbind-key ) ) ( keybind - ( $unbind-unused-sequences ) ) ) ( keybind - ( * ) ) ;OCL}}} ) ;OCL}}} ;OCL{{{ I-File-Menu ( mode I-File-Menu ;OCL{{{ normal sequences ( keybind center-and-redraw-display ( $esc "r "f ) ) ( keybind describe-bindings ( $esc "h "b ) ) ( keybind previous-line ( $esc "u "p ) ) ( keybind next-line ( $esc "d "n ) ) ( keybind I-close-fold ( $esc "c "l ) ) ( keybind I-open-fold ( $esc "o "p ) ) ( keybind I-quit-file-menu ( $esc "q "u ) ) ( keybind mtool-top ( $esc "s "f ) ) ( keybind mtool-bot ( $esc "b "o ) ) @if-using not( NO-HELP-BROWSER ) ( keybind info ( $esc "i "f ) ) ( keybind info ( $esc "h "e ) ) ( keybind info ( "i ) ) @fi ( keybind previous-page ( $esc "p "u ) ) ( keybind previous-page ( $esc "l "e ) ) ( keybind next-page ( $esc "p "d ) ) ( keybind next-page ( $esc "r "i ) ) ( keybind I-toggle-select ( $space ) ) ( keybind I-toggle-select ( "s ) ) ( keybind I-toggle-select ( "S ) ) ( keybind describe-bindings ( "? ) ) ( keybind I-quit-file-menu ( "q ) ) ( keybind I-quit-file-menu ( "Q ) ) ( keybind I-copy-file ( "c ) ) ( keybind I-copy-file ( "C ) ) ( keybind I-move-file ( "m ) ) ( keybind I-move-file ( "M ) ) ( keybind I-remove-file ( "r ) ) ( keybind I-remove-file ( "R ) ) ;OCL}}} @if-using ( del-key ) ;OCL{{{ delete-maps ( terminal ( @use ( use-del-key ) @lib modeori-fun/terms @use not( use-del-key ) ) ) ;OCL}}} @fi @if-using ( backs-key ) ;OCL{{{ backspace-maps ( terminal ( @use ( use-backs-key ) @lib modeori-fun/terms @use not( use-backs-key ) ) ) ;OCL}}} @fi @if-using ( cursor-key ) ;OCL{{{ cursor-maps ( terminal ( @use ( use-cursor-key ) @lib modeori-fun/terms @use not( use-cursor-key ) ) ( keybind next-line ( $down ) ) ( keybind previous-line ( $up ) ) ( keybind previous-page ( $left ) ) ( keybind next-page ( $right ) ) ( keybind mtool-top ( $R13/Meta-up ) ) ( keybind mtool-bot ( $R13/Meta-down ) ) ) ;OCL}}} @fi @if-using ( tab-key ) ;OCL{{{ tab-maps ( terminal ( @use ( use-tab-key ) @lib modeori-fun/terms @use not( use-tab-key ) ) ) ;OCL}}} @fi @if-using ( fx-key ) ;OCL{{{ fx-maps ( terminal ( @use ( use-fx-key ) @lib modeori-fun/terms @use not( use-fx-key ) ) ( keybind I-open-fold ( $f3 ) ) ( keybind I-close-fold ( $f4 ) ) ( keybind center-and-redraw-display ( $f2 $f2 ) ) @if-using not( NO-HELP-BROWSER ) ( keybind info ( $f2 "h ) ) ( keybind info ( $f1 ) ) @fi ( keybind I-quit-file-menu ( $f10 ) ) ) ;OCL}}} @fi @if-using ( page-key ) ;OCL{{{ page-map ( terminal ( @use (use-page-key ) @lib modeori-fun/terms @use not( use-page-key ) ) ( keybind previous-page ( $prev_page ) ) ( keybind next-page ( $next_page ) ) ) ;OCL}}} @fi @if-using ( misc-key ) ;OCL{{{ misc-maps ( terminal ( @use ( use-misc-key ) @lib modeori-fun/terms @use not( use-misc-key ) ) ( keybind center-and-redraw-display ( $refresh ) ) ( keybind I-quit-file-menu ( $exit ) ) ) ;OCL}}} @fi @if-using ( r-key ) ;OCL{{{ SUN-terminal R-keys ( terminal ( @use( use-r-key ) @lib modeori-fun/terms @use not( use-r-key ) ) ( keybind previous-page ( $R13/Meta-R1 ) ) ( keybind previous-page ( $R10 ) ) ( keybind next-page ( $R13/Meta-R3 ) ) ( keybind next-page ( $R12 ) ) ( keybind center-and-redraw-display ( $R13/Meta-R13 ) ) ( keybind I-open-fold ( $R4 ) ) ( keybind I-close-fold ( $R6 ) ) ( keybind previous-line ( $R8 ) ) ( keybind next-line ( $R14 ) ) ( keybind I-quit-file-menu ( $R13/Meta-q ) ) ( keybind describe-bindings ( $R13/Meta-? ) ) ( keybind mtool-top ( $R13/Meta-R8 ) ) ( keybind mtool-bot ( $R13/Meta-R14 ) ) @if-using not( NO-HELP-BROWSER ) ( keybind info ( $R13/Meta-h ) ) @fi ) ;OCL}}} @fi ;OCL{{{ some control keys (wordstar like?) ( keybind center-and-redraw-display ( C-Q C-Q ) ) ( keybind I-open-fold ( C-W ) ) ( keybind I-close-fold ( C-R ) ) ( keybind previous-line ( C-E ) ) ( keybind next-line ( C-X ) ) ( keybind describe-bindings ( C-Q "? ) ) ( keybind I-quit-file-menu ( C-Q "q ) ) ( keybind mtool-top ( C-Q C-E ) ) ( keybind mtool-bot ( C-Q C-X ) ) @if-using not( NO-HELP-BROWSER ) ( keybind info ( C-Q "h ) ) @fi ( keybind next-page ( C-D ) ) ( keybind previous-page ( C-S ) ) @if-using ( ctrl-h-key ) ;OCL{{{ ctrl-h ( terminal ( @use ( use-ctrl-h-key ) @lib modeori-fun/terms @use not( use-ctrl-h-key ) ) ) ;OCL}}} @fi ;OCL}}} ;OCL{{{ unbindings ( terminal ( @use ( use-unbind-key ) @lib modeori-fun/terms @use not( use-unbind-key ) ) ( keybind - ( $unbind-unused-sequences ) ) ) ( keybind - ( * ) ) ;OCL}}} ) ;OCL}}} ;OCL{{{ I-Browser ( mode I-Browser ;OCL{{{ normal sequences ( keybind center-and-redraw-display ( $esc "r "f ) ) ( keybind describe-bindings ( $esc "h "b ) ) ( keybind previous-line ( $esc "u "p ) ) ( keybind next-line ( $esc "d "n ) ) ( keybind I-info-exit ( $esc "c "l ) ) ( keybind I-info-exit ( $esc "e "x ) ) ( keybind I-info-enter ( $esc "o "p ) ) ( keybind I-info-enter ( $esc "e "n ) ) ( keybind I-quit-browser ( $esc "q "u ) ) ( keybind I-info-exit ( $esc "d "c ) ) ( keybind I-info-exit ( $esc "b "s ) ) ( keybind previous-page ( $esc "p "u ) ) ( keybind previous-page ( $esc "l "e ) ) ( keybind next-page ( $esc "p "d ) ) ( keybind next-page ( $esc "r "i ) ) ( keybind next-page ( $space ) ) @if-using not( NO-HELP-BROWSER ) ( keybind info ( $esc "i "f ) ) ( keybind info ( $esc "h "e ) ) ( keybind info ( "i ) ) @fi ( keybind describe-bindings ( "? ) ) ( keybind I-quit-browser ( "q ) ) ( keybind I-quit-browser ( "Q ) ) ( keybind I-info-enter ( $return ) ) ;OCL}}} @if-using ( del-key ) ;OCL{{{ delete-maps ( terminal ( @use ( use-del-key ) @lib modeori-fun/terms @use not( use-del-key ) ) ( keybind I-info-exit ( $delete ) ) ) ;OCL}}} @fi @if-using ( backs-key ) ;OCL{{{ backspace-maps ( terminal ( @use ( use-backs-key ) @lib modeori-fun/terms @use not( use-backs-key ) ) ( keybind I-info-exit ( $backspace ) ) ) ;OCL}}} @fi @if-using ( cursor-key ) ;OCL{{{ cursor-maps ( terminal ( @use ( use-cursor-key ) @lib modeori-fun/terms @use not( use-cursor-key ) ) ( keybind previous-page ( $left ) ) ( keybind next-page ( $right ) ) ( keybind next-line ( $down ) ) ( keybind previous-line ( $up ) ) ) ;OCL}}} @fi @if-using ( tab-key ) ;OCL{{{ tab-maps ( terminal ( @use ( use-tab-key ) @lib modeori-fun/terms @use not( use-tab-key ) ) ) ;OCL}}} @fi @if-using ( fx-key ) ;OCL{{{ fx-maps ( terminal ( @use ( use-fx-key ) @lib modeori-fun/terms @use not( use-fx-key ) ) ( keybind I-info-enter ( $f3 ) ) ( keybind I-info-enter ( $f2 $f3 ) ) ( keybind I-info-exit ( $f4 ) ) ( keybind I-info-exit ( $f2 $f4 ) ) ( keybind center-and-redraw-display ( $f2 $f2 ) ) @if-using not( NO-HELP-BROWSER ) ( keybind info ( $f2 "h ) ) ( keybind info ( $f1 ) ) @fi ( keybind I-info-exit ( $f10 ) ) ) ;OCL}}} @fi @if-using ( page-key ) ;OCL{{{ page-map ( terminal ( @use (use-page-key ) @lib modeori-fun/terms @use not( use-page-key ) ) ( keybind previous-page ( $prev_page ) ) ( keybind next-page ( $next_page ) ) ) ;OCL}}} @fi @if-using ( misc-key ) ;OCL{{{ misc-maps ( terminal ( @use ( use-misc-key ) @lib modeori-fun/terms @use not( use-misc-key ) ) ( keybind center-and-redraw-display ( $refresh ) ) ( keybind I-info-exit ( $exit ) ) ) ;OCL}}} @fi @if-using ( r-key ) ;OCL{{{ SUN-terminal R-keys ( terminal ( @use( use-r-key ) @lib modeori-fun/terms @use not( use-r-key ) ) ( keybind center-and-redraw-display ( $R13/Meta-R13 ) ) ( keybind I-info-enter ( $R4 ) ) ( keybind I-info-enter ( $R13/Meta-R4 ) ) ( keybind I-info-exit ( $R6 ) ) ( keybind I-info-exit ( $R13/Meta-R6 ) ) ( keybind previous-line ( $R8 ) ) ( keybind next-line ( $R14 ) ) ( keybind I-quit-browser ( $R13/Meta-q ) ) ( keybind describe-bindings ( $R13/Meta-? ) ) @if-using not( NO-HELP-BROWSER ) ( keybind info ( $R13/Meta-h ) ) @fi ( keybind previous-page ( $R13/Meta-R1 ) ) ( keybind previous-page ( $R10 ) ) ( keybind next-page ( $R13/Meta-R3 ) ) ( keybind next-page ( $R12 ) ) ) ;OCL}}} @fi ;OCL{{{ some control keys (wordstar like?) ( keybind center-and-redraw-display ( C-Q C-Q ) ) ( keybind I-info-enter ( C-W ) ) ( keybind I-info-enter ( C-Q C-W ) ) ( keybind I-info-exit ( C-R ) ) ( keybind I-info-exit ( C-Q C-R ) ) ( keybind previous-line ( C-E ) ) ( keybind next-line ( C-X ) ) ( keybind describe-bindings ( C-Q "? ) ) ( keybind I-info-exit ( C-G ) ) ( keybind I-quit-browser ( C-Q "q ) ) @if-using not( NO-HELP-BROWSER ) ( keybind info ( C-Q "h ) ) @fi ( keybind previous-page ( C-S ) ) ( keybind next-page ( C-D ) ) @if-using ( ctrl-h-key ) ;OCL{{{ ctrl-h ( terminal ( @use ( use-ctrl-h-key ) @lib modeori-fun/terms @use not( use-ctrl-h-key ) ) ( keybind I-info-exit ( C-H ) ) ) ;OCL}}} @fi ;OCL}}} ;OCL{{{ unbindings ( terminal ( @use ( use-unbind-key ) @lib modeori-fun/terms @use not( use-unbind-key ) ) ( keybind - ( $unbind-unused-sequences ) ) ) ( keybind - ( * ) ) ;OCL}}} ) ;OCL}}} ;OCL}}} @fi @fi ;OCL}}} ;OCL{{{ mouse @if-using (MOUSY) ( mouse-buttons go-and-open-mouse go-and-close-mouse go-mouse-and-center ) @fi ;OCL}}} ;OCL{{{ menu @if-using ( AMIGA amiga ) ;OCL{{{ amiga-menu @if-using () @start-reference-copy modeori-fun/OSmenu ( AMIGA ;OCL{{{ menu definitions TERMINAL @if-using ( amiga ) amiga @fi @if-using not( amiga ) default @fi ( MODES edit moves buffer-move para mv-indent ) ( IFMODES SHELL-MODE I-Main-Menu I-File-Menu I-Browser ) ;OCL{{{ ? ( MENU ? Bindings : ( describe-bindings edit ) ( describe-bindings moves ) ( describe-bindings buffer-move ) ( no-operation para ) ( no-operation mv-indent ) ( describe-bindings I-Main-Menu ) ( describe-bindings I-File-Menu ) ( describe-bindings I-Browser ) Help : ( mori-help edit ) ( mori-help moves ) ( no-operation buffer-move ) ( no-operation para ) ( no-operation mv-indent ) ( no-operation I-Main-Menu ) ( no-operation I-File-Menu ) ( no-operation I-Browser ) Info : ( info edit ) ( info moves ) ( info buffer-move ) ( no-operation para ) ( no-operation mv-indent ) ( info I-Main-Menu ) ( info I-File-Menu ) ( info I-Browser ) ModeOri Menu : ( main-menu edit ) ( move-menu moves ) ( b-m-menu buffer-move ) ( no-operation para ) ( no-operation mv-indent ) ( no-operation I-Main-Menu ) ( no-operation I-File-Menu ) ( no-operation I-Browser ) ) ;OCL}}} ;OCL{{{ File ( MENU File Save : ( save-file edit ) ( no-operation moves ) ( no-operation buffer-move ) ( no-operation para ) ( no-operation mv-indent ) ( no-operation I-Main-Menu ) ( no-operation I-File-Menu ) ( no-operation I-Browser ) Unchange : ( set-file-unchanged edit ) ( no-operation moves ) ( no-operation buffer-move ) ( no-operation para ) ( no-operation mv-indent ) ( no-operation I-Main-Menu ) ( no-operation I-File-Menu ) ( no-operation I-Browser ) Read : ( read-file edit ) ( no-operation moves ) ( no-operation buffer-move ) ( no-operation para ) ( no-operation mv-indent ) ( no-operation I-Main-Menu ) ( no-operation I-File-Menu ) ( no-operation I-Browser ) Insert : ( insert-file edit ) ( no-operation moves ) ( no-operation buffer-move ) ( no-operation para ) ( no-operation mv-indent ) ( no-operation I-Main-Menu ) ( no-operation I-File-Menu ) ( no-operation I-Browser ) Exit ModeOri : ( exit-origami edit ) ( no-operation moves ) ( no-operation buffer-move ) ( no-operation para ) ( no-operation mv-indent ) ( no-operation I-Main-Menu ) ( no-operation I-File-Menu ) ( no-operation I-Browser ) ) ;OCL}}} ;OCL{{{ Parameter ( MENU Parameter Language : ( set-language edit ) ( no-operation moves ) ( no-operation buffer-move ) ( no-operation para ) ( no-operation mv-indent ) ( no-operation I-Main-Menu ) ( no-operation I-File-Menu ) ( no-operation I-Browser ) Fold Marks : ( fold-mark-menu edit ) ( no-operation moves ) ( no-operation buffer-move ) ( no-operation para ) ( no-operation mv-indent ) ( no-operation I-Main-Menu ) ( no-operation I-File-Menu ) ( no-operation I-Browser ) : ( no-operation edit ) ( no-operation moves ) ( no-operation buffer-move ) ( no-operation para ) ( no-operation mv-indent ) ( no-operation I-Main-Menu ) ( no-operation I-File-Menu ) ( no-operation I-Browser ) DirEdit Filter : ( diredit-para-menu edit ) ( no-operation moves ) ( no-operation buffer-move ) ( no-operation para ) ( no-operation mv-indent ) ( no-operation I-Main-Menu ) ( no-operation I-File-Menu ) ( no-operation I-Browser ) : ( no-operation edit ) ( no-operation moves ) ( no-operation buffer-move ) ( no-operation para ) ( no-operation mv-indent ) ( no-operation I-Main-Menu ) ( no-operation I-File-Menu ) ( no-operation I-Browser ) Commands : ( command-para-menu edit ) ( no-operation moves ) ( no-operation buffer-move ) ( no-operation para ) ( no-operation mv-indent ) ( no-operation I-Main-Menu ) ( no-operation I-File-Menu ) ( no-operation I-Browser ) ) ;OCL}}} ;OCL}}} ) @end-reference-copy @fi ;OCL}}} @lib modeori-fun/OSmenu.ocl @fi ;OCL}}}