~mirabilos/jupp/trunk

 $MirOS: contrib/code/jupp/joerc.in,v 1.32 2018/03/15 23:28:57 tg Exp $

                         Initialisation file for JOE
                                Standard Joe

 This file must be written in the 8-bit encoding, not UTF-8.

 JOE looks for this file in:
	1 - $HOME/.joerc
	2 - @jrcbefore@joerc@jrcafter@

 This file can include other files by placing the following include command
 in the first column (comment lines start with space or tab):

 :include filename

 FIRST SECTION: Default global options (these options can also be specified
 on the command line. Also, the NOXON, LINES, COLUMNS, DOPADDING and BAUD
 options can be specified in environment variables):

 Put each option you want set in the first column:

 -option	Sets the option
 --option	Clears the option

 -mid		Cursor is recentred when scrolling is necessary
 -marking	Text between ^KB and cursor is highlighted; use with:
 -lightoff	Turn off highlighting after block copy or move
 -autoswap	Swap markb with markk when necessary
 -asis		Characters 128 - 255 shown as-is
 -hex		Hex editing mode
-nobackups	If you don't want backup files to be created
 -backpath path
		Where to store backup files (do not quote, no comment after)
 -force		Force final newline when files are saved
 -exask		^KX always confirms file name
 -beep		Beep on errors and when cursor goes past extremes
 -nosta		Disable top-most status line
 -keepup	%k and %c status line escape sequences updated frequently
 -pg nnn	No. lines to keep for PgUp/PgDn
 -csmode	^KF after a pervious search does a ^L instead
 -nonotice	Disable copyright notice
 -noxon		Attempt to turn off ^S/^Q processing
 -orphan	Put extra files given on command line in orphaned buffers
		instead of in windows
 -dopadding	Output pad characters (for when there is no tty handshaking)
 -lines nnn	Set no. screen lines
 -baud nnn	Set baud rate for terminal optimisations
 -columns nnn	Set no. screen columns
 -help		Start with help on
 -skiptop nnn	Don't use top nnn lines of the screen

-notite		Don't send terminal initialisation and termination strings:
		prevents restoration of screen on exit

-pastetite	Enter bracketed paste mode automatically for TERM=xterm-xfree86

 -usetabs	Use tabs to help optimise screen update

-assume_color	Assume terminal has ANSI colour support even if its termcap
		or terminfo entry says that it doesn't. This only applies if
		the terminal otherwise looks like an ANSI terminal (supports
		bold and capability starts with ESC [).

-guess_crlf	Automatically detect MS-DOS files and set -crlf appropriately

-guess_indent	Guess indent character (tab or space)

-menu_explorer	Stay in menu system when a directory is selected (otherwise
		directory is added to path and menu is closed)

 -icase		Search is case-insensitive by default
 -wrap		Search wraps

 Status line definition strings. -lmsg defines the left-justified string,
 and -rmsg defines the right-justified string. The first character of -rmsg
 is the background fill character. -hmsg (3.1jupp15) defines the help hint
 (only about a dozen chars) displayed next to the copyright notice in the
 initial status line (inverted by default, unless starting with exactly \i).
 The following escape sequences can be used in these strings:

	%t	12-hour time
	%u	24-hour time
	%T	O for overtype mode, I for insert mode
	%W	W if wordwrap is enabled
	%I	A if autoindent is enabled
	%X	rectangle mode indicator
	%n	file name
	%m	'(Modified)' if file has been changed
	%*	'*' if file has been changed
	%R	read-only indicator
	%r	row (line) number
	%c	column number
	%o	byte offset into file (decimal)
	%O	byte offset into file in hex
	%a	ASCII value of character under cursor (decimal)
	%A	ASCII value of character under cursor in hex
	%p	percent of file cursor is at
	%l	number of lines in file
	%k	entered prefix keys
	%S	'*SHELL*' if there is a shell running in window
	%M	macro recording message
	%y	syntax
	%x	context (first non-indented line going backwards)

 These formatting escape sequences may also be given:

	\i	Inverse
	\u	Underline
	\b	Bold
	\d	Dim
	\f	Blink

-lmsg \i%k%T%W%I%X %n %m%y%R %M %x
-rmsg  %S Row %r Col %c %t  Ctrl-K H for help
-hmsg \i\f\bHelp: ^KH\b\f

 SECOND SECTION: filename-dependent local option settings:

 Each line with '*' in the first column indicates the modes which should be
 set for files whose name matches the regular expression. If more than one
 regular expression matches the file name, then the last matching one is
 chosen.

 A file contents regular expression may also be specified on a separate line
 with '+regex'. If this regular expresssion is given, then both the file name
 regex and the file contents regex must match for the options to apply.

 Here is a list of modes which can be set:

 -keymap name		Keymap to use if not 'main'
 -square		Rectangular block mode
 -overwrite		Overtype mode
 -picture		Picture mode (cursor right can go past end of line)
 -linums		Show line numbers in front of each line
 -rdonly		File is read-only
 -crlf			File uses CR-LF at end of lines
 -encoding utf8		File is UTF-8 encoded
 -syntax name		Specify syntax (syntax file called
			'name.jsf' will be loaded)
 -highlight		Enable syntax highlighting

 -french		One space after '.', '?' and '!' for wordwrap and
			paragraph reformat instead of two. JOE does not
			change the spacing you give, but sometimes it must
			put spacing in itself. This selects how much is
			inserted in those cases.
 -purify		Fixup indentation if necessary for rindent, lindent
			and backs (for example if indentation uses a mix of
			tabs and spaces, and indentc is space, indentation
			will be converted to all spaces)

 -lmargin nnn		Left margin
 -rmargin nnn		Right margin
 -tab nnn		Tab width
 -indentc nnn		Indentation character (32 = space, 9 = tab)
 -istep nnn		Amount of 'indentc's per indentation level
 -spaces		Tab key inserts spaces instead of tabs
 -wordwrap		Wordwrap
 -autoindent		Auto indent
 -smartbacks		Backspace key deletes 'istep' number of 'indentc's
			if cursor is at first non-space character
 -smarthome		Home key first moves cursor to beginning of line,
			then if hit again, to first non-blank character
 -indentfirst		Smart home goes to first non-blank character first,
			instead of to the beginning of the line first

 -lmsg			Status line definition strings;
 -rmsg			see previous section for more info

 -mnew macro		Macro to execute when new files are loaded
 -mold macro		Macro to execute when existing files are loaded
 -msnew macro		Macro to execute when new files are saved
 -msold macro		Macro to execute when existing files are saved

 Macros for the above options are in the same format as in the key
 binding section below but without the key name strings.

 Default local options:
-highlight
-french
-indentc 9
-istep 1
-purify
-smartbacks
-tab 8
--wordwrap

 #HOOK#1 global/default flags

 === Generic files
 No '.' in filename?
*
 Assume it's a text file and, except in jupp, we want wordwrap on.
-wordwrap

 Filename with '.' is probably not a text file.
*.*

 === Patterns with multiple wildcards
 Order is latest match wins, so...
*/patch-*
-highlight
-syntax diff

*
+Only in[ ]
-highlight
-syntax diff

*
+Nur in[ ]
-highlight
-syntax diff

*
+\[1-9]\+\[0-9]\[cda]
-highlight
-syntax diff

*.sh*
-syntax sh

*.ksh*
-syntax sh

*.mksh*
-syntax sh

*.bash*
-syntax sh

*tmp/mutt-*
-wordwrap
-syntax mail

*tmp/pico.*
-wordwrap
-syntax mail

*/mail/*
-syntax mail

*/patches/*
-highlight
-syntax diff

 === Assembly
*.asm
-syntax asm

*.S
-syntax asm

*.s
-syntax asm

 === C, C++, Objective-C
*.C
-syntax c

*.c
-syntax c

*.cc
-syntax c

*.cpp
-syntax c

*.cxx
-syntax c

*.c++
-syntax c

*.h
-syntax c

*.hh
-syntax c

*.hpp
-syntax c

*.h++
-syntax c

*.m
-syntax c

*.nxc
-syntax c

 === C Shell
*.csh
-syntax csh

*.login
-syntax csh

*.logout
-syntax csh

*.tcsh
-syntax csh

*.tcshrc
-syntax csh

*
+#!\+\[	 ]\+\[/a-z0-9._-]/\+tcsh\>
-syntax csh

*
+#!\+\[	 ]\+\[/a-z0-9._-]/env\[	 ]\+\[	 ]\+tcsh\>
-syntax csh

 === Diff
*.diff
-highlight
-syntax diff

*.patch
-highlight
-syntax diff

*.rej
-highlight
-syntax diff

*.debdiff
-highlight
-syntax diff

*
+---\[ ]
-highlight
-syntax diff

*
+***\[ ]
-highlight
-syntax diff

*
+Index: \*\n======================================================
-highlight
-syntax diff

*
+Index: \*\ndiff\*\n--- \*\n+++\[ ]
-highlight
-syntax diff

*
+\[=?]\*\n--- \*\n+++\[ ]
-highlight
-syntax diff

*
+diff\*\n--- \*\n+++\[ ]
-highlight
-syntax diff

*
+diff --git\*\nindex\*\n--- \*\n+++\[ ]
-highlight
-syntax diff

 === eMail
*.eml
-syntax mail

 Not quite eMail but still RFC822
*.mht
-syntax mail

 === FORTRAN
*.f
-syntax fortran

*.for
-syntax fortran

*.FOR
-syntax fortran

*.f77
-syntax fortran

*.F77
-syntax fortran

*.f90
-syntax fortran

*.F90
-syntax fortran

 === GNU autoconf
*.ac
-syntax conf

*.am
-syntax conf

 === HTML
*.htm
-encoding utf8
-syntax html

*.html
-encoding utf8
-syntax html

 === Java
*.java
-encoding utf8
-syntax java

 === JOE Syntax File
*.jsf
-syntax conf

 === LISP
*.lisp
-syntax lisp

*.lsp
-syntax lisp

*.el
-syntax lisp

 === Make
*akefile
-syntax conf

*AKEFILE
-syntax conf

 === Mason
*.mas
-syntax mason

 === Pascal
*.p
-syntax pascal

*.pas
-syntax pascal

 === Perl
*.pl
-syntax perl

*.pm
-syntax perl

*
+#!\+\[	 ]\+\[/a-z0-9._-]/perl
-syntax perl

*
+#!\+\[	 ]\+\[/a-z0-9._-]/env\[	 ]\+\[	 ]perl
-syntax perl

 === PHP
*.php
-syntax php

 === Python
*.py
-encoding utf8
-syntax python
-tab 4
-indentc 32
-istep 4
-spaces

*
+#!\+\[	 ]\+\[/a-z0-9._-]/python
-encoding utf8
-syntax python
-tab 4
-indentc 32
-istep 4
-spaces

*
+#!\+\[	 ]\+\[/a-z0-9._-]/env\[	 ]\+\[	 ]python
-encoding utf8
-syntax python
-tab 4
-indentc 32
-istep 4
-spaces

 === Bourne, Korn, POSIX Shell
*profile
-syntax sh

*
+:\[	 \n]
-syntax sh

*
+#!\+\[	 ]\+\[/a-z0-9._-]/\+\[bda]sh\>
-syntax sh

*
+#!\+\[	 ]\+\[/a-z0-9._-]/env\[	 ]\+\[	 ]\+\[bda]sh\>
-syntax sh

*
+#!\+\[	 ]\+\[/a-z0-9._-]/\+\[a-z]ksh\+\[0-9._-]\>
-syntax sh

*
+#!\+\[	 ]\+\[/a-z0-9._-]/env\[	 ]\+\[	 ]\+\[a-z]ksh\+\[0-9._-]\>
-syntax sh

 === TCL
*.tcl
-syntax tcl

 === TeX
*.cls
-syntax tex

*.sty
-syntax tex

*.tex
-syntax tex

 === Verilog
*.v
-syntax verilog
-istep 2

*.vh
-syntax verilog
-istep 2

 === VHDL
*.vhd
-syntax vhdl
-istep 2

 === XML
*.xml
-encoding utf8
-syntax xml

 === Text (except in jupp)
*.asc
-wordwrap

*.doc
-wordwrap

*.txt
-wordwrap

 #HOOK#2 filename matching

 THIRD SECTION: Named help screens:

 Use \| to insert a spring: all springs in a given line are set to the same
 width such that the entire line exactly fits in the width of the screen
 (if it's not an exact multiple so that there are N spaces remaining, the
 rightmost N springs each get one extra space). Hint: if you want vertical
 alignment, each line should have the same number of springs.

{Basic
\i   Help Screen    \|turn off with ^KH    more help with ESC . (^[.)              \i
\i \i\|\uCURSOR\u           \|\uGO TO\u            \|\uBLOCK\u      \|\uDELETE\u   \|\uMISC\u         \|\uEXIT\u      \|\i \i
\i \i\|^B left ^F right \|^U  prev. screen \|^KB begin  \|^D char. \|^KJ reformat \|^KX save  \|\i \i
\i \i\|^P up   ^N down  \|^V  next screen  \|^KK end    \|^Y line  \|^T  options  \|^C  abort \|\i \i
\i \i\|^Z previous word \|^A  beg. of line \|^KM move   \|^W >word \|^R  refresh  \|^KZ shell \|\i \i
\i \i\|^X next word     \|^E  end of line  \|^KC copy   \|^O word< \|^@  insert   \|\uFILE\u      \|\i \i
\i \i\|\uSEARCH\u           \|^KU top of file  \|^KW file   \|^J >line \|\uSPELL\u        \|^KE edit  \|\i \i
\i \i\|^KF find text    \|^KV end of file  \|^KY delete \|^_ undo  \|^[N word     \|^KR insert\|\i \i
\i \i\|^L  find next    \|^KL to line No.  \|^K/ filter \|^^ redo  \|^[L file     \|^KD save  \|\i \i
}

{Windows
\i   Help Screen    \|turn off with ^KH    prev. screen ^[,    next screen ^[.     \i
\i \i\|^KO Split the window in half           \|^KE Load file into window             \|\i \i
\i \i\|^KG Make current window bigger         \|^KT Make current window smaller       \|\i \i
\i \i\|^KN Go to the window below             \|^KP Go to the window above            \|\i \i
\i \i\|^C  Eliminate the current window       \|^KI Show all windows / Show one window\|\i \i
}

{Advanced
\i   Help Screen    \|turn off with ^KH    prev. screen ^[,    next screen ^[.     \i
\i \i\|\uMACROS\u         \|\uMISC\u            \|\uSCROLL\u    \|\uSHELL\u       \|\uGOTO\u       \|\uI-SEARCH\u     \|\i \i
\i \i\|^K[ 0-9 Record \|^K SPACE status \|^[W Up    \|^K' Window  \|^[B To ^KB \|^[R Backwards\|\i \i
\i \i\|^K]     Stop   \|^K\\ Repeat      \|^[Z Down  \|^[! Command \|^[K To ^KK \|^[S Forwards \|\i \i
\i \i\|^K 0-9  Play   \|^[M Math        \|^K< Left  \|\uQUOTE\u       \|\uDELETE\u     \|\uBOOKMARKS\u    \|\i \i
\i \i\|^K?     Query  \|^KA Center line \|^K> Right \|`  Ctrl-    \|^[Y yank   \|^[ 0-9 Goto  \|\i \i
\i \i\|^[D     Dump   \|^[H Message     \|          \|^\\ Meta-    \|^[O line<  \|^[^[   Set   \|\i \i
}

{Programs
\i   Help Screen    \|turn off with ^KH    prev. screen ^[,    next screen ^[.     \i
\i \i\|\uGOTO\u                 \|\uINDENT\u   \|\uCOMPILING\u                                      \|\i \i
\i \i\|^G  Matching ( [ {   \|^K, less \|^[C Compile and parse errors                   \|\i \i
\i \i\|^K- Previous place   \|^K. more \|^[E Parse errors                               \|\i \i
\i \i\|^K= Next place         \|       \|^[= To next error                              \|\i \i
\i \i\|^K; Tags file search   \|       \|^[- To prev. error                             \|\i \i
}

{Search
\i   Help Screen    \|turn off with ^KH    prev. screen ^[,    next screen ^[.     \i
\i \iSpecial search sequences:                                                    \|\i \i
\i \i    \\^  \\$  matches beg./end of line      \\?     match any single char       \|\i \i
\i \i    \\<  \\>  matches beg./end of word      \\*     match 0 or more chars       \|\i \i
\i \i    \\c      matches balanced C expression \\\\     matches a \\                 \|\i \i
\i \i    \\[..]   matches one of a set          \\n     matches a newline           \|\i \i
\i \i    \\+      matches 0 or more of the character which follows the \\+          \|\i \i
\i \iSpecial replace sequences:                                                   \|\i \i
\i \i    \\&      replaced with text which matched search string                   \|\i \i
\i \i    \\0 - 9  replaced with text which matched Nth \\*, \\?, \\c, \\+, or \\[..]    \|\i \i
\i \i    \\\\      replaced with \\               \\n     replaced with newline       \|\i \i
}

{Names
\i   Help Screen    \|turn off with ^KH    prev. screen ^[,    next screen ^[.     \i
\i \i Hit TAB at file name prompts to generate menu of file names                 \|\i \i
\i \i Or use up/down keys to access history of previously entered names           \|\i \i
\i \i Special file names:                                                         \|\i \i
\i \i      !command                 Pipe in/out of a shell command                \|\i \i
\i \i      >>filename               Append to a file                              \|\i \i
\i \i      -                        Read/Write to/from standard I/O               \|\i \i
\i \i      filename,START,SIZE      Read/Write a part of a file/device            \|\i \i
\i \i          Give START/SIZE in decimal (255), octal (0377) or hex (0xFF)       \|\i \i
}

{Joe
\i   Help Screen    \|turn off with ^KH    prev. screen ^[,                        \i
\i \i For bug reports and other information, refer to: \uhttp://mirbsd.de/jupp\u      \|\i \i
}

 #HOOK#3 additional help screens

{CharTable
\i   Help Screen    turn off with ^J     prev. screen ^[,    \uCharacter Map\u       \i
\i \i Dec Hex  \u 0123 4567  89AB CDEF    0123 4567  89AB CDEF \u  Hex Dec            \i \i
\i \i         |                                              |                    \i \i
\i \i   0  00 | \u@ABC\u \uDEFG\u  \uHIJK\u \uLMNO\u    €‚ƒ „…†‡  ˆ‰Š‹ ŒŽ | 80  128            \i \i
\i \i  16  10 | \uPQRS\u \uTUVW\u  \uXYZ[\u \u\\]^_\u    ‘’“ ”•–—  ˜™š› œžŸ | 90  144            \i \i
\i \i  32  20 |  !"# $%&'  ()*+ ,-./     ¡¢£ €¥Š§  š©ª« ¬­®¯ | A0  160            \i \i
\i \i  48  30 | 0123 4567  89:; <=>?    °±²³ Žµ¶·  ž¹º» ŒœŸ¿ | B0  176            \i \i
\i \i  64  40 | @ABC DEFG  HIJK LMNO    ÀÁÂÃ ÄÅÆÇ  ÈÉÊË ÌÍÎÏ | C0  192            \i \i
\i \i  80  50 | PQRS TUVW  XYZ[ \\]^_    ÐÑÒÓ ÔÕÖ×  ØÙÚÛ ÜÝÞß | D0  208            \i \i
\i \i  96  60 | `abc defg  hijk lmno    àáâã äåæç  èéêë ìíîï | E0  224            \i \i
\i \i 112  70 | pqrs tuvw  xyz{ |}~    ðñòó ôõö÷  øùúû üýþÿ | F0  240            \i \i
}

{Paste
\i                                                                               \i
\i \i \u\bPaste Mode\b\u     turn off with \b^D\b or \b^[[201~\b                                  \i \i
}

 FOURTH SECTION: Key bindings:

 Section names you must provide:

	:main		editing window
	:prompt		prompt lines
	:query		single-character query lines
	:querya		singe-character query for quote
	:querysr	search-and-replace single-character query

 Other sections may be given as well for organisation purposes or for
 use with the '-keymap' option.

 Use:
 :inherit name		To copy the named section into the current one
 :delete key		To delete a key sequence from the current section

 Keys:

 Use ^@ through ^_ and ^? for C0 control characters and DEL
 Use SP for space
 Use a TO b to generate a range of characters

 You can also use termcap string capability names. For example:

	.ku		Up
	.kd		Down
	.kl		Left
	.kr		Right
	.kh		Home
	.kH		End
	.kI		Insert
	.kD		Delete
	.kP		PgUp
	.kN		PgDn
	.k1 - .k9	F1 - F9
	.k0		F0 or F10
	.k;		F10

 Macros:

 Simple macros can be made by comma seperating two or more command names.
 For example:

 eof,bol	^T Z		Goto beginning of last line

 Also quoted matter is typed in literally (backslashes escape):

 bol,">",dnarw	.k1		Quote news article line

 Macros may cross lines if they end with a comma.
 Commands or named macros may be created with :def.
 For example, you can use...

 :def foo eof,bol

 ... to define a command foo which will go to the beginning of the last line.

:windows		Bindings common to all windows
 #HOOK#4 common keybindings
type		^@ TO ÿ
abort		^C		Abort window
abort		^K Q
abort		^K ^Q
abort		^K q
arg		^K \		Repeat next command
explode		^K I		Show all windows or show only one window
explode		^K ^I
explode		^K i
help		.k1
help		^K H		Help menu
help		^K ^H
help		^K h
help		^[ [ 1 1 ~
hnext		^[ .		Next help window
hprev		^[ ,		Previous help window
math		^[ m		Calculator
math		^[ M		Calculator
 math		^[ ^M		Calculator
msg		^[ h		Display a message
msg		^[ H		Display a message
msg		^[ ^H		Display a message
nextw		^K N		Goto next window
nextw		^K ^N
nextw		^K n
pgdn		.kN		Screen down
pgdn		^V
pgdn		^[ [ 6 ~
pgdn		^[ [ G		SCO
pgup		.kP		Screen up
pgup		^U
pgup		^[ [ 5 ~
pgup		^[ [ I		SCO
play		^K 0 TO 9	Execute macro
prevw		^K P		Goto previous window
prevw		^K ^P
prevw		^K p
query		^K ?		Macro query insert
record		^K [		Record a macro
retype		^R		Refresh screen
rtn		^M		Return
shell		^K Z		Shell escape
shell		^K ^Z
shell		^K z
stop		^K ]		Stop recording

:Paste
type					^@ TO ÿ
rtn					^M
msg,"Entered bracketed paste mode",rtn	^[ [ 2 0 0 ~
helpcard,rtn,keymap,"main",rtn,msg,rtn	^[ [ 2 0 1 ~
helpcard,rtn,keymap,"main",rtn		^D

:Pastecua
type					^@ TO ÿ
rtn					^M
msg,"Entered bracketed paste mode",rtn	^[ [ 2 0 0 ~
helpcard,rtn,keymap,"cua",rtn,msg,rtn	^[ [ 2 0 1 ~
helpcard,rtn,keymap,"cua",rtn		^D

:Pasteprompt
type					^@ TO ÿ
nop					^L
keymap,"prompt",rtn,msg,rtn,rtn		^M
msg,"Entered bracketed paste mode",rtn	^[ [ 2 0 0 ~
keymap,"prompt",rtn,msg,rtn		^[ [ 2 0 1 ~
keymap,"prompt",rtn			^D

:main			Text editing window
:inherit windows

 compile
 :def compile switch,"*Build-Log*",rtn,markb,eof," ",markk,blkdel,filt,query,parserr
:def compile querysave,query,scratch,"* Build Log *",rtn,bof,markb,eof," ",markk,blkdel,build

 spell check
:def aspellfile filt,"SPLTMP=ispell.tmp;cat >$SPLTMP;aspell -x -c $SPLTMP </dev/tty >/dev/tty;cat $SPLTMP;/bin/rm $SPLTMP",rtn,retype
:def aspellword psh,nextword,markk,prevword,markb,filt,"SPLTMP=ispell.tmp;cat >$SPLTMP;aspell -x -c $SPLTMP </dev/tty >/dev/tty;tr -d <$SPLTMP '\\012';/bin/rm $SPLTMP",rtn,retype,nextword
:def ispellfile filt,"cat >ispell.tmp;ispell ispell.tmp </dev/tty >/dev/tty;cat ispell.tmp;/bin/rm ispell.tmp",rtn,retype
:def ispellword psh,nextword,markk,prevword,markb,filt,"cat >ispell.tmp;ispell ispell.tmp </dev/tty >/dev/tty;tr -d <ispell.tmp '\\012';/bin/rm ispell.tmp",rtn,retype,nextword

 #HOOK#5 main keybindings

@SPELL@file	^[ l
@SPELL@word	^[ n

helpcard,"Paste",rtn,keymap,"Paste",rtn	^[ [ 2 0 0 ~
nop					^[ [ 2 0 1 ~

begin_marking,uparw,toggle_marking	^[ [ 1 ; 2 A	xterm shift-up mark
begin_marking,dnarw,toggle_marking	^[ [ 1 ; 2 B	xterm shift-down mark
begin_marking,rtarw,toggle_marking	^[ [ 1 ; 2 C	xterm shift-right mark
begin_marking,ltarw,toggle_marking	^[ [ 1 ; 2 D	xterm shift-left mark
begin_marking,bol,toggle_marking	^[ [ 1 ; 2 H	xterm shift-home
begin_marking,eol,toggle_marking	^[ [ 1 ; 2 F	xterm shift-end
begin_marking,bof,toggle_marking	^[ [ 1 ; 6 H	xterm shift-ctrl-home
begin_marking,eof,toggle_marking	^[ [ 1 ; 6 F	xterm shift-ctrl-end

 Here we guess some common key sequences which either do not have termcap
 sequences or which are frequently wrong. Note that if the termcap entry is
 correct, it will override these later on.

blkdel,nmark	^[ [ 3 ; 5 -	Gnome-terminal Ctrl-Del
blkdel,nmark	^[ [ 3 ; 5 ~	Xterm Ctrl-Del

yank		^[ [ 2 ; 5 -	Gnome-terminal Ctrl-Ins
yank		^[ [ 2 ; 5 ~	Xterm Ctrl-Ins

 Extra functions not really part of Joe user interface:

delbol		^[ o		Delete to beginning of line
delbol		^[ ^O		Delete to beginning of line
dnslide		^[ z		Scroll down one line
dnslide		^[ Z		Scroll down one line
dnslide		^[ ^Z		Scroll down one line
compile		^[ c		Compile
compile		^[ ^C		Compile
execmd		^[ x		Prompt for command to execute
execmd		^[ X		Prompt for command to execute
execmd		^[ ^X		Prompt for command to execute
finish		^[ ^I		Complete word in document
finish		^[ ^M		Complete word: used to be math
isrch		^[ s		Forward incremental search
isrch		^[ S		Forward incremental search
isrch		^[ ^S		Forward incremental search
notmod		^[ ~		Not modified
nxterr		^[ =		To next error
parserr		^[ e		Parse errors in current buffer
parserr		^[ E		Parse errors in current buffer
parserr		^[ ^E		Parse errors in current buffer
prverr		^[ -		To previous error
rsrch		^[ r		Backward incremental search
rsrch		^[ R		Backward incremental search
rsrch		^[ ^R		Backward incremental search
run		^[ !		Run a program in a window
tomarkb		^[ b		Go to beginning of marked block
tomarkb		^[ ^B		Go to beginning of marked block
tomarkk		^[ k		Go to end of marked block
tomarkk		^[ ^K		Go to end of marked block
tomarkk		^[ K		Go to end of marked block
txt		^[ i		Prompt for text and insert it
txt		^[ I		Prompt for text and insert it
upslide		^[ w		Scroll up one line
upslide		^[ ^W		Scroll up one line
upslide		^[ W		Scroll up one line
yank		^[ y		Undelete text
yankpop		^[ ^Y		Undelete text
yank		^[ Y		Undelete text

toggle_marking	^@		Ctrl-space block selection method
				Ctrl-space used to insert a space

 bufed		^[ d		Menu of buffers
nbuf		^[ v		Next buffer
nbuf		^[ V		Next buffer
nbuf		^[ ^V		Next buffer
pbuf		^[ u		Prev buffer
pbuf		^[ U		Prev buffer
pbuf		^[ ^U		Prev buffer
 query		^[ q		Quoted insert
 byte		^[ n		Goto byte
 col		^[ c		Goto column
 abortbuf	^[ k		Kill current buffer- don't mess with windows
 ask		^[ a		Ask to save current buffer
 bop		^[ p		Backwards paragraph
 bos		^[ x		Bottom of screen
 copy		^[ ^W		Copy block into yank
 dupw		^[ \		Split window
 eop		^[ n		Forwards paragraph
 format		^[ j		Format paragraph ignore block
 markl		^[ l		Mark line
 nmark		^[ @		Turn off ^KB ^KK
 pop		^[ >		Pop ^KB ^KK
 psh		^[ <		Push ^KB ^KK
 swap		^[ x		Swap ^KB and cursor
 tomarkbk	^[ g		Switch between beginning and end of marked
 tos		^[ e		Top of screen
 tw0		^[ 0		Kill current window (orphans buffer)
 tw1		^[ 1		Kill all other windows (orphans buffers)
 uarg		^[ u		Universal argument
 yank		^[ ^Y		Undelete previous text
 yapp		^[ w		Append next delete to previous yank

 Standard Joe user interface

quote8		^\		Enter Meta chars
quote		`		Enter Ctrl chars

backs		^?		Backspace
backs		^H
backw		^O		Backspace word
bknd		^K '		Shell window
blkcpy		^K C		Copy marked block
blkcpy		^K ^C
blkcpy		^K c
blkdel		^K Y		Delete marked block
blkdel		^K ^Y
blkdel		^K y
blkmove		^K M		Move marked block
blkmove		^K ^M
blkmove		^K m
blksave		^K W		Save marked block
blksave		^K ^W
blksave		^K w
bof		^K U		Goto beginning of file
bof		^K ^U
bof		^K u
bof		^[ [ 1 ; 5 H
home		^A		Goto beginning of line
home		.kh
home		^[ [ 1 ~
home		^[ [ 7 ~
home		^[ [ H
center		^K A		Center line
center		^K ^A
center		^K a
crawll		^K <		Pan left
crawlr		^K >		Pan right
delch		.kD		Delete character
delch		^D
delch		^[ [ 3 ~
deleol		^J		Delete to end of line
dellin		^Y		Delete entire line
delw		^W		Delete word to right
dnarw		.kd		Go down
dnarw		^N
dnarw		^[ O B
dnarw		^[ [ B
edit		^K E		Edit a file
edit		^K ^E
edit		^K e
eof		^K V		Go to end of file
eof		^K ^V
eof		^K v
eof		^[ [ 1 ; 5 F
eol		.@7
eol		.kH		Go to end of line
eol		^E
eol		^[ [ 4 ~
eol		^[ [ 8 ~
eol		^[ [ F
exsave		^K X		Save and exit
exsave		^K ^X
exsave		^K x
ffirst		^K F		Find first
ffirst		^K ^F
ffirst		^K f
filt		^K /		Filter block
 finish		^K ^M		Complete text under cursor
fnext		^L		Find next
fnext		.k3
fnext		^[ [ 1 3 ~
fmtblk		^K J		Format paragraphs in block
fmtblk		^K ^J
fmtblk		^K j
gomark		^[ 0 TO 9	Goto bookmark
groww		^K G		Grow window
groww		^K ^G
groww		^K g
insc		.kI		Insert a space
insc		^[ [ 2 ~
insc		^[ [ L		SCO
insf		^K R		Insert a file
insf		^K ^R
insf		^K r
lindent		^K ,		Indent to left
line		^K L		Goto line number
line		^K ^L
line		^K l
ltarw		.kl		Go left
ltarw		^B
ltarw		^[ O D
ltarw		^[ [ D
macros		^[ d		Dump keyboard macros
macros		^[ ^D
markb		^K B		Set beginning of marked block
markb		^K ^B
markb		^K b
markk		^K K		Set end of marked block
markk		^K ^K
markk		^K k
mode		^T		Options menu
nextpos		^K =		Goto next position in position history
nextword	^X		Goto next word
nextword	^[ [ 1 ; 5 C
open		^]		Split line
prevpos		^K -		Previous position in history
prevword	^Z		Previous word
prevword	^[ [ 1 ; 5 D
redo		^^		Redo changes
rindent		^K .		Indent to right
rtarw		.kr		Go right
rtarw		^F
rtarw		^[ O C
rtarw		^[ [ C
run		^K !		Run a shell command
save		^K D		Save file
save		^K S
save		^K ^D
save		^K ^S
save		^K d
save		^K s
setmark		^[ ^[		Set bookmark
shrinkw		^K T		Shrink window
shrinkw		^K ^T
shrinkw		^K t
splitw		^K O		Split window
splitw		^K ^O
splitw		^K o
stat		^K SP		Show status
tag		^K ;		Tags file search
tomatch		^G		Goto matching parenthasis
undo		^_		Undo changes
uparw		.ku		Go up
uparw		^P
uparw		^[ O A
uparw		^[ [ A

:prompt			Prompt windows
:inherit main
complete	^I
nop		^L
keymap,"Pasteprompt",rtn,msg,"Entered bracketed paste mode",rtn	^[ P
keymap,"Pasteprompt",rtn,msg,"Entered bracketed paste mode",rtn	^[ p
keymap,"Pasteprompt",rtn,msg,"Entered bracketed paste mode",rtn	^[ [ 2 0 0 ~

:menu			Selection menus
:inherit windows
abort		^[ ^[
backsmenu	^?
backsmenu	^H
bofmenu		^K U
bofmenu		^K ^U
bofmenu		^K u
bofmenu		^[ [ 1 ; 5 H
bolmenu		^A
bolmenu		.kh
bolmenu		^[ [ 1 ~
bolmenu		^[ [ 7 ~
bolmenu		^[ [ H
dnarwmenu	.kd
dnarwmenu	^N
dnarwmenu	^[ [ B
dnarwmenu	^[ O B
eofmenu		^K V
eofmenu		^K ^V
eofmenu		^K v
eofmenu		^[ [ 1 ; 5 F
eolmenu		.@7
eolmenu		.kH
eolmenu		^E
eolmenu		^[ [ 4 ~
eolmenu		^[ [ 8 ~
eolmenu		^[ [ F
ltarwmenu	.kl
ltarwmenu	^B
ltarwmenu	^[ [ D
ltarwmenu	^[ O D
pgdnmenu	.kN
pgdnmenu	^V
pgdnmenu	^[ [ 6 ~
pgdnmenu	^[ [ G
pgupmenu	.kP
pgupmenu	^U
pgupmenu	^[ [ 5 ~
pgupmenu	^[ [ I
rtarwmenu	.kr
rtarwmenu	^F
rtarwmenu	^[ [ C
rtarwmenu	^[ O C
rtn		SP
rtn		^I
rtn		^K H
rtn		^K h
rtn		^K ^H
tabmenu		^I
uparwmenu	.ku
uparwmenu	^P
uparwmenu	^[ [ A
uparwmenu	^[ O A

:query			Single-key query window
:inherit windows

:querya			Single-key query window for quoting
type		^@ TO ÿ

:querysr		Search & replace query window
type		^@ TO ÿ

:cua			Undo/Cut/Copy/Paste, CUA style
:inherit main
 #HOOK#6 extra keybindings in CUA mode
:def pastecua helpcard,"Paste",rtn,keymap,"Pastecua",rtn
undo		^Z
blkdel,nmark	^X
copy		^C
yank		^V
pastecua	^[ P
pastecua	^[ p
pastecua	^[ [ 2 0 0 ~