export module jupp tag joe-3_1jupp18 jupp-3_1_18
authorThorsten Glaser <tg@mirbsd.org>
Wed, 5 Oct 2011 20:41:41 +0000 (20:41 +0000)
committerThorsten Glaser <tg@mirbsd.org>
Wed, 5 Oct 2011 20:41:41 +0000 (20:41 +0000)
18 files changed:
HINTS
INFO
NEWS
TODO
builtins.c
configure
configure.ac
jmacsrc.in
joe.1.in
joe.txt
joerc.in
jpicorc.in
jstarrc.in
jupprc
main.c
rc.c
rjoerc.in
scrn.c

diff --git a/HINTS b/HINTS
index 1e089c9..1c99698 100644 (file)
--- a/HINTS
+++ b/HINTS
@@ -80,7 +80,7 @@ can jump to markb with ^[ b and jump to markk with ^[ k.
 then hit Ctrl-space to complete the block.  Hit Ctrl-space in the block to
 cancel it.  Hit Ctrl-space outside of the block to start selecting a new
 one.  This uses the "toggle_marking" function.  Also any block command will
-complete the block.
+complete the block. (joe flavour only)
 
        New way no.2: hit Ctrl-rtarw to start selecting rightward.  Each
 time you hit Ctrl-rtarw, the block is extended one more to the right.  This
@@ -91,10 +91,21 @@ sequence yourself and enter it directly in the joerc file.  Some examples
 are given for xterm and gnome-terminal.  Hit ` rtarw to have the sequence
 shown on your screen.  Note that Putty uses ^[ ^[ [ C which will not appear
 with ` rtarw (also ^[ ^[ is set book mark, so you need to unbind it to do
-this in Putty).
+this in Putty). (joe flavour only)
 
        Also you can hit Ctrl-delete to cut and Ctrl-insert to paste if the
-sequence for these keys are known.
+sequence for these keys are known. (joe flavour only)
+
+       New way No.3: press down shift, then move the cursor with the
+arrow keys or, optionally with ctrl, the Home and End keys; release the
+shift key when done and remember that the cursor indicator on screen is
+not part of the selection. (all flavours)
+
+       Also, you can pass "-keymap cua" on the command line to change
+the key bindings for ^Z (Undo), ^X (Cut), ^C (Copy), ^V (Paste) as in
+contemporary GUI editors. (joe, rjoe, jstar, jupp flavours only)
+
+       Using Picture mode and Rectangle mode may help with that.
 
 Hex edit mode
 -------------
@@ -117,4 +128,4 @@ will not insert.
 - Search, incremental search, and search & replace all operate as usual.
 
 __________________________________________________________________
-$MirOS: contrib/code/jupp/HINTS,v 1.5 2011/07/16 21:57:55 tg Exp $
+$MirOS: contrib/code/jupp/HINTS,v 1.6 2011/10/04 22:47:50 tg Exp $
diff --git a/INFO b/INFO
index 4aaefb7..92f0b1b 100644 (file)
--- a/INFO
+++ b/INFO
@@ -1,5 +1,5 @@
-$MirOS: contrib/code/jupp/INFO,v 1.9 2008/05/13 16:17:42 tg Exp $
------------------------------------------------------------------
+$MirOS: contrib/code/jupp/INFO,v 1.10 2011/10/04 22:47:51 tg Exp $
+------------------------------------------------------------------
 
                                     Jupp
                             Joe's Own Editor 3.1
@@ -7,7 +7,7 @@ $MirOS: contrib/code/jupp/INFO,v 1.9 2008/05/13 16:17:42 tg Exp $
                   A Free ASCII-Text Screen Editor for UNIX
                           by Joseph Allen (<= 2.8)
                          Marek 'Marx' Grac (=> 2.9)
-                        by Joseph Allen again (=>3.0)
+                        by Joseph Allen again (=> 3.0)
                  by Thorsten "mirabilos" Glaser (jupp mods)
 
 Get it from:
diff --git a/NEWS b/NEWS
index 5a8df71..d21de4c 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -1,6 +1,18 @@
-$MirOS: contrib/code/jupp/NEWS,v 1.37 2011/07/27 18:43:11 tg Exp $
+$MirOS: contrib/code/jupp/NEWS,v 1.43 2011/10/04 22:35:44 tg Exp $
 ------------------------------------------------------------------
 
+JOE 3.1jupp18
+
+- Fix displaying ASCII tilde in non-UTF-8 encodings
+- To not make backups is now the default for all flavours
+- The jmacs flavour behaves a bit more like the jupp flavour
+  (patch contributed by Johannes Langøy)
+- In xterm, Shift-{Cur{Up,Down,Left,Right},{,Ctrl-}{Home,End}}
+  now select text (idea contributed by Dmitry Geurkov)
+- Fix bugs in *rc files; sync joerc and rjoerc with each other
+- Unbreak passing -keymap on the command line
+- New keymap "cua" (not jpico, jmacs) for GUI-like ^Z ^X ^C ^V
+
 JOE 3.1jupp17
 
 - Skip restoring the terminal after exiting jupp
diff --git a/TODO b/TODO
index fa787a8..1effc0f 100644 (file)
--- a/TODO
+++ b/TODO
@@ -112,7 +112,7 @@ Shift-home: \e[1;2H
 Shift-end: \e[1;2F
 Shift-pgup: -
 Shift-pgdn: -
-Shift-ins\bttp://www.gush-shalom.org/archives/kurdi_eng.html
+Shift-ins *DOES NOT WORK* but inserts the X PRIMARY SELECTION
 Shift-del: \e[3;2~
 
 Shift-ctrl-arrow: \e[1;6C \e[1;6D \e[1;6A \e[1;6B
@@ -389,10 +389,10 @@ notepad/cua mode?
 ^O     edit file (asks to save current)
 ^P     print
 ^S     save
-^V     paste
-^Z     undo
-^X     cut
-^C     copy
+^V     paste           (done)
+^Z     undo            (done)
+^X     cut             (done)
+^C     copy            (done)
 F3     find next
 F5     date/time
 
@@ -449,7 +449,7 @@ Fix for next release highlight:
 
  Reload modified files (or current window)
 
-  don't use -notite by default.
+  don't use -notite by default. (why? we switched back to -notite…)
 
 Watch loaded file for changes
 
@@ -457,7 +457,7 @@ Save all history buffers and keyboard macros in ~/.joe_state file?
 
   Update documentation.
 
-shift/alt/ctrl arrow key stuff.
+shift/alt/ctrl arrow key stuff. (partially done)
 
 regex: character classes? a-z matches any letter?
 
@@ -468,13 +468,11 @@ regex: character classes? a-z matches any letter?
   can't load terminfo- should switch to termcap or provide compiled
   ANSI terminfo built in.
 
-  gettext patch
-
 
 New features:
 -----------------------
 
-  move *rc files to .joe directory?
+  move *rc files to .etc/joe directory?
 
   check all instances of 'chars': use unicode to locale symbols instead.
   EBCDIC ?
@@ -492,6 +490,8 @@ mode where wordwrap wraps rest of paragraph?
 
 mode where all editing wraps rest of paragraph?
 
+soft wrap (i.e. wrap on screen but not in the file)!
+
 Improvements for programming
 ----------------------------
 
@@ -591,6 +591,7 @@ Prompts:
 Terminal handling:
 
  Emit ESC c to reset terminal on startup?
+ -> no, this power-cycles a hardware DEC VT420 (takes 1-2 minutes)
 
  Look into clearing right-most column.
 
@@ -648,4 +649,4 @@ Other requests:
 • …
 
 _________________________________________________________________
-$MirOS: contrib/code/jupp/TODO,v 1.7 2011/07/16 21:57:55 tg Exp $
+$MirOS: contrib/code/jupp/TODO,v 1.8 2011/10/04 22:47:51 tg Exp $
index c269fea..2800cbf 100644 (file)
@@ -1,11 +1,13 @@
 /* Built-in files */
 
+/* while IFS= read -r x; do x=${x//\\/\\\\}; print -r -- $'\t\t'\""${x//\"/\\\"}\n"\"; done */
+
 #include "types.h"
 
 const unsigned char * const builtins[]=
 {
-       US "jupprc",
-               US "-asis\n"
+       US "jupprc", US
+               "-asis\n"
                "-assume_color\n"
                "-dopadding\n"
                "--force\n"
@@ -13,6 +15,7 @@ const unsigned char * const builtins[]=
                "-mid\n"
                "-nobackups\n"
                "-noxon\n"
+               "-notite\n"
                "-pg 2\n"
                "-lmsg \\i%k%T%*\\b%n\\b%R\n"
                "-rmsg  R%r<%l C%c\\u%o|%O\\i\\b%a|%A\\b\\i\\u %u\n"
@@ -127,12 +130,26 @@ const unsigned char * const builtins[]=
                "}\n"
                "\n"
                "{Joe\n"
-               "\\i   Help Screen    turn off with ^J     prev. screen ^[,                        \\i\n"
+               "\\i   Help Screen    turn off with ^J     prev. screen ^[,    next screen ^[.     \\i\n"
                "\\i \\i \\bJUPP\\b is based upon JOE (Joe's Own Editor) 2.8/3.x \\d(GPL v1)\\d by Joe H. Allen; \\i \\i\n"
                "\\i \\i go to \\uhttp://sf.net/projects/joe-editor/\\u for upstream bug reports. JUPP 2.8 \\i \\i\n"
                "\\i \\i for DOS compiled by A. Totlis, packed with LHarc 2.13; JUPP 3.x for UNIX\\d(R)\\d \\i \\i\n"
                "\\i \\i at \\uhttp://mirbsd.de/jupp\\u and by \\bThorsten \"\\dmirabilos\\d\" Glaser <\\utg@mirbsd.org\\u>\\b \\i \\i\n"
-               "\\i \\i @(#) blt_in 2011-07-02; autoCR-LF; UTF-8 tty by LC_CTYPE; per-file encoding \\i \\i\n"
+               "\\i \\i @(#) blt_in 2011-10-04; 3.1; autoCR-LF; UTF-8 via locale; per-file encoding \\i \\i\n"
+               "}\n"
+               "\n"
+               "{CharTable\n"
+               "\\i   Help Screen    turn off with ^J     prev. screen ^[,    \\uCharacter Map\\u       \\i\n"
+               "\\i \\i Dec Hex  \\u 0123 4567  89AB CDEF    0123 4567  89AB CDEF \\u  Hex Dec            \\i \\i\n"
+               "\\i \\i         |                                              |                    \\i \\i\n"
+               "\\i \\i   0  00 | \\u@ABC\\u \\uDEFG\\u  \\uHIJK\\u \\uLMNO\\u    \\i\\u@ABC\\u\\i \\i\\uDEFG\\u\\i  \\i\\uHIJK\\u\\i \\i\\uLMNO\\u\\i | 80  128            \\i \\i\n"
+               "\\i \\i  16  10 | \\uPQRS\\u \\uTUVW\\u  \\uXYZ[\\u \\u\\\\]^_\\u    \\i\\uPQRS\\u\\i \\i\\uTUVW\\u\\i  \\i\\uXYZ[\\u\\i \\i\\u\\\\]^_\\u\\i | 90  144            \\i \\i\n"
+               "\\i \\i  32  20 |  !\"# $%&'  ()*+ ,-./     ¡¢£ ¤¥¦§  ¨©ª« ¬­®¯ | A0  160            \\i \\i\n"
+               "\\i \\i  48  30 | 0123 4567  89:; <=>?    °±²³ ´µ¶·  ¸¹º» ¼½¾¿ | B0  176            \\i \\i\n"
+               "\\i \\i  64  40 | @ABC DEFG  HIJK LMNO    ÀÁÂàÄÅÆÇ  ÈÉÊË ÌÍÎÏ | C0  192            \\i \\i\n"
+               "\\i \\i  80  50 | PQRS TUVW  XYZ[ \\\\]^_    ÐÑÒÓ ÔÕÖ×  ØÙÚÛ ÜÝÞß | D0  208            \\i \\i\n"
+               "\\i \\i  96  60 | `abc defg  hijk lmno    àáâã äåæç  èéêë ìíîï | E0  224            \\i \\i\n"
+               "\\i \\i 112  70 | pqrs tuvw  xyz{ |}~\7f    ðñòó ôõö÷  øùúû üýþÿ | F0  240            \\i \\i\n"
                "}\n"
                "\n"
                ":windows\n"
@@ -183,6 +200,10 @@ const unsigned char * const builtins[]=
                "bof,qrepl,\"\\\\[\",quote,\"i\",quote,\"k\",quote,\"l\",quote,\"m ]\\\\+\\\\[\",quote,\"i\",quote,\"k\",quote,\"l\",quote,\"m ]\\\\$\",rtn,rtn,rtn,\"r\",eof   ^K ]\n"
                "edit,rtn,filt,query,parserr    ^[ C\n"
                "edit,rtn,filt,query,parserr    ^[ c\n"
+               "begin_marking,uparw,toggle_marking     ^[ [ 1 ; 2 A\n"
+               "begin_marking,dnarw,toggle_marking     ^[ [ 1 ; 2 B\n"
+               "begin_marking,rtarw,toggle_marking     ^[ [ 1 ; 2 C\n"
+               "begin_marking,ltarw,toggle_marking     ^[ [ 1 ; 2 D\n"
                "backs          ^?\n"
                "backs          ^H\n"
                "backw          ^[ o\n"
@@ -463,5 +484,5 @@ const unsigned char * const builtins[]=
                ":querysr\n"
                "type           ^@ TO ÿ\n"
 ,      NULL
-,      "@(#) $MirOS: contrib/code/jupp/builtins.c,v 1.4 2011/07/03 00:35:03 tg Exp $"
+,      "@(#) $MirOS: contrib/code/jupp/builtins.c,v 1.5 2011/10/04 21:25:21 tg Exp $"
 };
index 77dc246..342078d 100644 (file)
--- a/configure
+++ b/configure
@@ -1,6 +1,6 @@
 #! /bin/sh
 # Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.61-MirPorts-1 for joe 3.1jupp17.
+# Generated by GNU Autoconf 2.61-MirPorts-1 for joe 3.1jupp18.
 #
 # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001,
 # 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
@@ -572,8 +572,8 @@ SHELL=${CONFIG_SHELL-/bin/sh}
 # Identity of this package.
 PACKAGE_NAME='joe'
 PACKAGE_TARNAME='joe'
-PACKAGE_VERSION='3.1jupp17'
-PACKAGE_STRING='joe 3.1jupp17'
+PACKAGE_VERSION='3.1jupp18'
+PACKAGE_STRING='joe 3.1jupp18'
 PACKAGE_BUGREPORT=''
 
 ac_unique_file="b.c"
@@ -1223,7 +1223,7 @@ if test "$ac_init_help" = "long"; then
   # Omit some internal or obsolete options to make the list less imposing.
   # This message is too long to be a string in the A/UX 3.1 sh.
   cat <<_ACEOF
-\`configure' configures joe 3.1jupp17 to adapt to many kinds of systems.
+\`configure' configures joe 3.1jupp18 to adapt to many kinds of systems.
 
 Usage: $0 [OPTION]... [VAR=VALUE]...
 
@@ -1294,7 +1294,7 @@ fi
 
 if test -n "$ac_init_help"; then
   case $ac_init_help in
-     short | recursive ) echo "Configuration of joe 3.1jupp17:";;
+     short | recursive ) echo "Configuration of joe 3.1jupp18:";;
    esac
   cat <<\_ACEOF
 
@@ -1383,7 +1383,7 @@ fi
 test -n "$ac_init_help" && exit $ac_status
 if $ac_init_version; then
   cat <<\_ACEOF
-joe configure 3.1jupp17
+joe configure 3.1jupp18
 generated by GNU Autoconf 2.61-MirPorts-1
 
 Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001,
@@ -1397,7 +1397,7 @@ cat >config.log <<_ACEOF
 This file contains any messages produced by compilers while
 running configure, to aid debugging if configure makes a mistake.
 
-It was created by joe $as_me 3.1jupp17, which was
+It was created by joe $as_me 3.1jupp18, which was
 generated by GNU Autoconf 2.61-MirPorts-1.  Invocation command line was
 
   $ $0 $@
@@ -2198,7 +2198,7 @@ fi
 
 # Define the identity of the package.
  PACKAGE='joe'
- VERSION='3.1jupp17'
+ VERSION='3.1jupp18'
 
 
 cat >>confdefs.h <<_ACEOF
@@ -10271,7 +10271,7 @@ exec 6>&1
 # report actual input values of CONFIG_FILES etc. instead of their
 # values after options handling.
 ac_log="
-This file was extended by joe $as_me 3.1jupp17, which was
+This file was extended by joe $as_me 3.1jupp18, which was
 generated by GNU Autoconf 2.61-MirPorts-1.  Invocation command line was
 
   CONFIG_FILES    = $CONFIG_FILES
@@ -10324,7 +10324,7 @@ Report bugs to <bug-autoconf@gnu.org>."
 _ACEOF
 cat >>$CONFIG_STATUS <<_ACEOF
 ac_cs_version="\\
-joe config.status 3.1jupp17
+joe config.status 3.1jupp18
 configured by $0, generated by GNU Autoconf 2.61-MirPorts-1,
   with options \\"`echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`\\"
 
index ae96537..d3b1495 100644 (file)
@@ -1,4 +1,4 @@
-# $MirOS: contrib/code/jupp/configure.ac,v 1.28 2011/07/27 18:43:11 tg Exp $
+# $MirOS: contrib/code/jupp/configure.ac,v 1.29 2011/10/04 22:47:51 tg Exp $
 #-
 # Process this file with autoconf to produce a configure script.
 
@@ -6,7 +6,7 @@
 AC_PREREQ(2.54)
 
 #### Here's the only place where to change version number ####
-AC_INIT(joe, 3.1jupp17)
+AC_INIT(joe, 3.1jupp18)
 #### But see main.c for the Copyright (c) owner and year! ####
 AC_CONFIG_SRCDIR([b.c])
 
index c4b0897..fc45bf7 100644 (file)
@@ -1,7 +1,7 @@
- $MirOS: contrib/code/jupp/jmacsrc.in,v 1.4 2011/07/16 18:41:39 tg Exp $
+ $MirOS: contrib/code/jupp/jmacsrc.in,v 1.8 2011/10/04 22:35:44 tg Exp $
 
                          Initialization file for JOE
-                                Gnu-Emacs Joe
+                                GNU-Emacs Joe
 
  JOE looks for this file in:
        1 - $HOME/.jmacsrc
@@ -24,8 +24,9 @@
  -mid          Cursor is recentered when scrolling is necessary
  -marking      Text between ^KB and cursor is highlighted
  -asis         Characters 128 - 255 shown as-is
+ -hex          Hex editing mode
  -force                Force final newline when files are saved
- -nobackups    If you don't want backup files to be created
+-nobackups     If you don't want backup files to be created
  -lightoff     Turn off highlighting after block copy or move
  -exask                ^KX always confirms file name
 -beep          Beep on errors and when cursor goes past extremes
   \f  Blink
 
 -lmsg \i%k%T%W%I%X %* [%n] %y %M
--rmsg  %S Row %r Col %c %t  Ctrl-X H for help
+-rmsg  %S Row %r Col %c %u
 -hmsg Help: ^Xh
 
  SECOND SECTION: File name dependant local option settings:
 
  Default local options
 -highlight
--istep 2
-
- No '.' in file name?  Assume it's a text file and we want wordwrap on.
-*
--wordwrap
-
- File name with '.'?  It's probably not a text file.
-*.*
-
- Diff
-*
-+--- 
--syntax diff
-
-*
-+*** 
--syntax diff
-
-*
-+\[1-9]\+\[0-9]\[cda]
--syntax diff
-
- Text file.
-*.txt
--wordwrap
+-tab 8
+-indentc 9
+-istep 1
+--autoindent
+-smartbacks
+--wordwrap
 
- Assembly language
+ === Assembly
 *.asm
--wordwrap
--syntax asm
-
-*.s
--wordwrap
 -syntax asm
 
 *.S
--wordwrap
 -syntax asm
 
- Mason
-*.mas
--autoindent
--syntax mason
--smarthome
--smartbacks
-
- Perl
-*
-+#!\+\[        ]\+\[a-z/]/perl\>
--autoindent
--syntax perl
--smarthome
--smartbacks
-
-*.pl
--autoindent
--syntax perl
--smarthome
--smartbacks
+*.s
+-syntax asm
 
-*.pm
--autoindent
--syntax perl
--smarthome
--smartbacks
+ === C, C++, Objective-C
+*.C
+-syntax c
 
- C language file
 *.c
--autoindent
 -syntax c
--smarthome
--smartbacks
--purify
+
+*.cc
+-syntax c
 
 *.cpp
--autoindent
 -syntax c
--smarthome
--smartbacks
--purify
+
+*.cxx
+-syntax c
 
 *.c++
--autoindent
 -syntax c
--smarthome
--smartbacks
--purify
 
- C language header file
 *.h
--autoindent
 -syntax c
--smarthome
--smartbacks
--purify
+
+*.hh
+-syntax c
 
 *.hpp
--autoindent
 -syntax c
--smarthome
--smartbacks
--purify
 
 *.h++
--autoindent
 -syntax c
--smarthome
--smartbacks
--purify
 
- Verilog file
-*.v
--autoindent
--syntax verilog
--istep 2
--smarthome
--smartbacks
--purify
+*.m
+-syntax c
 
- Verilog header file
-*.vh
--autoindent
--syntax verilog
--istep 2
--smarthome
--smartbacks
--purify
+ === C Shell
+*.csh
+-syntax csh
 
- VHDL file
-*.vhd
--autoindent
--syntax vhdl
--istep 2
--smarthome
--smartbacks
--purify
+*.login
+-syntax csh
 
- XML
-*.xml
--wordwrap
--autoindent
--syntax xml
+*.logout
+-syntax csh
 
- HTML
-*.htm
--wordwrap
--autoindent
--syntax html
+*.tcsh
+-syntax csh
 
-*.html
--wordwrap
--autoindent
--syntax html
+*.tcshrc
+-syntax csh
 
- JAVA
-*.java
--autoindent
--syntax java
--smarthome
--smartbacks
--purify
+*
++#!\+\[         ]\+\[a-z/]/\+tcsh\>
+-syntax csh
 
- Hypertext preprocessor file
-*.php
--autoindent
--syntax php
--smarthome
--smartbacks
--purify
+*
++#!\+\[         ]\+\[a-z/]/env\+\[      ]\+tcsh\>
+-syntax csh
+
+ === Diff
+*.diff
+-syntax diff
+
+*.patch
+-syntax diff
 
- Python
 *
-+#!\+\[        ]\+\[a-z/]/python
--autoindent
--syntax python
--smarthome
--smartbacks
--purify
++--- 
+-syntax diff
 
-*.py
--autoindent
--syntax python
--smarthome
--smartbacks
--purify
+*
++*** 
+-syntax diff
 
- CSH
 *
-+#!\+\[        ]\+\[a-z/]/csh\>
--autoindent
--syntax csh
++\[1-9]\+\[0-9]\[cda]
+-syntax diff
 
-*.cshrc
--autoindent
--syntax csh
+*
++Index: \*\n======================================================
+-syntax diff
 
-*.login
--autoindent
--syntax csh
+ === eMail
+*tmp/mutt-*
+-syntax mail
 
-*.logout
--autoindent
--syntax csh
+*/mail/*
+-syntax mail
 
-*.csh
--autoindent
--syntax csh
+*.eml
+-syntax mail
 
- TCSH
-*
-+#!\+\[        ]\+\[a-z/]/tcsh\>
--autoindent
--syntax csh
+ === FORTRAN
+*.f
+-syntax fortran
 
-*.tcsh
--autoindent
--syntax csh
+*.for
+-syntax fortran
 
-*.tcshrc
--autoindent
--syntax csh
+*.FOR
+-syntax fortran
 
- Shell
-*
-+#!\+\[        ]\+\[a-z/]/sh\>
--autoindent
--syntax sh
+*.f77
+-syntax fortran
 
-*.sh
--autoindent
--syntax sh
+*.F77
+-syntax fortran
 
-*profile
--autoindent
--syntax sh
+*.f90
+-syntax fortran
 
- BASH Shell
-*
-+#!\+\[        ]\+\[a-z/]/bash\>
--autoindent
--syntax sh
+*.F90
+-syntax fortran
 
-*.bash
--autoindent
--syntax sh
+ === GNU autoconf
+*.ac
+-syntax conf
 
-*.bash_login
--autoindent
--syntax sh
+*.am
+-syntax conf
 
-*.bash_logout
--autoindent
--syntax sh
+ === HTML
+*.htm
+-encoding utf8
+-syntax html
 
- KSH
-*
-+#!\+\[        ]\+\[a-z/]/ksh\>
--autoindent
--syntax sh
+*.html
+-encoding utf8
+-syntax html
 
-*.ksh
--autoindent
--syntax sh
+ === Java
+*.java
+-encoding utf8
+-syntax java
+
+ === Joe Syntax File
+*.jsf
+-syntax conf
 
- LISP
+ === flex
+*.l
+-syntax lex
+
+ === LISP
 *.lisp
--autoindent
 -syntax lisp
 
 *.lsp
--autoindent
 -syntax lisp
 
 *.el
--autoindent
 -syntax lisp
 
- Makefile
+ === M4
+*.m4
+-syntax m4
+
+ === Make
 *akefile
--autoindent
 -syntax conf
 
 *AKEFILE
--autoindent
 -syntax conf
 
- Pascal
+ === Mason
+*.mas
+-syntax mason
+
+ === Pascal
 *.p
--autoindent
 -syntax pascal
--smarthome
--smartbacks
--purify
 
 *.pas
--autoindent
 -syntax pascal
--smarthome
--smartbacks
--purify
 
- Fortran
-*.f
--autoindent
--syntax fortran
+ === Perl
+*.pl
+-syntax perl
 
-*.for
--autoindent
--syntax fortran
+*.pm
+-syntax perl
 
-*.FOR
--autoindent
--syntax fortran
+*
++#!\+\[         ]\+\[a-z/]/perl
+-syntax perl
 
- YACC
-*.y
--autoindent
--syntax yacc
+*
++#!\+\[         ]\+\[a-z/]/env\+\[      ]perl
+-syntax perl
 
- LEX
-*.l
--autoindent
--syntax lex
+ === PHP
+*.php
+-syntax php
 
- TCL
+ === Python
+*.py
+-encoding utf8
+-syntax python
+--guess_indent
+-tab 4
+-indentc 32
+-istep 4
+-spaces
+
+*
++#!\+\[         ]\+\[a-z/]/python
+-encoding utf8
+-syntax python
+--guess_indent
+-tab 4
+-indentc 32
+-istep 4
+-spaces
+
+*
++#!\+\[         ]\+\[a-z/]/env\+\[      ]python
+-encoding utf8
+-syntax python
+--guess_indent
+-tab 4
+-indentc 32
+-istep 4
+-spaces
+
+ === Bourne, Korn, POSIX Shell
+*.sh
+-syntax sh
+
+*.ksh
+-syntax sh
+
+*.mksh
+-syntax sh
+
+*.bash
+-syntax sh
+
+*.bash_login
+-syntax sh
+
+*.bash_logout
+-syntax sh
+
+*profile
+-syntax sh
+
+*
++:\[    \n]
+-syntax sh
+
+*
++#!\+\[         ]\+\[a-z/]/\+\[bd]\+ash\>
+-syntax sh
+
+*
++#!\+\[         ]\+\[a-z/]/env\+\[      ]\+\[bd]\+ash\>
+-syntax sh
+
+*
++#!\+\[         ]\+\[a-z/]/\+\[a-z]ksh\+\[0-9._-]\>
+-syntax sh
+
+*
++#!\+\[         ]\+\[a-z/]/env\+\[      ]\+\[a-z]ksh\+\[0-9._-]\>
+-syntax sh
+
+ === TCL
 *.tcl
--autoindent
 -syntax tcl
 
- Joe Syntax File
-*.jsf
--autoindent
--syntax conf
-
- Autoconfig file
-*.ac
--autoindent
--syntax conf
+ === Verilog
+*.v
+-syntax verilog
+-istep 2
 
- M4 file
-*.m4
--autoindent
--syntax m4
+*.vh
+-syntax verilog
+-istep 2
 
- Automake file
-*.am
--autoindent
--syntax conf
+ === VHDL
+*.vhd
+-syntax vhdl
+-istep 2
 
+ === XML
+*.xml
+-encoding utf8
+-syntax xml
 
- Mail file
-*tmp/mutt-*
--wordwrap
--syntax mail
+ === yacc
+*.y
+-syntax yacc
 
  THIRD SECTION: Named help screens:
 
 \i \i\|^R  backward     \|^[G to line No. \|^[ DEL word<\|  replace \|^XX swap   \|^X^B switch\|\i \i
 }
 
-{Editing 
+{Editing
 \i   Help Screen    \|turn off with ^XH   prev. screen ^X,  next screen ^X.        \i
 \i \i\|\uCASE\u           \|\uTRANSPOSE\u  \|\uINSERT\u    \|\uMACROS\u            \|\uPROGRAMS\u               \|\i \i
 \i \i\|^[U  Up word   \|^T   Chars \|^O  line  \|^X( record        \|^X^I Indent region     \|\i \i
 
 {Joe
 \i   Help Screen    \|turn off with ^XH   prev. screen ^X,                         \i
-\i \i Send bug reports to: http://sourceforge.net/projects/joe-editor             \|\i \i
+\i \i For bug reports and other information, refer to: \uhttp://mirbsd.de/jupp\u      \|\i \i
+}
+
+{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    \i\u@ABC\u\i \i\uDEFG\u\i  \i\uHIJK\u\i \i\uLMNO\u\i | 80  128            \i \i
+\i \i  16  10 | \uPQRS\u \uTUVW\u  \uXYZ[\u \u\\]^_\u    \i\uPQRS\u\i \i\uTUVW\u\i  \i\uXYZ[\u\i \i\u\\]^_\u\i | 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{ |}~\7f    ðñòó ôõö÷  øùúû üýþÿ | F0  240            \i \i
 }
 
  FOURTH SECTION: Key bindings:
  Simple macros can be made by comma seperating 2 or more command names.  For
  example:
 
bof,bol       ^T Z            Goto beginning of last line
eof,bol       ^T Z            Goto beginning of last line
 
  Also quoted matter is typed in literally:
 
@@ -754,6 +723,14 @@ blkmove,rtarw      ^T                              Transpose chars
 psh,uparw,bol,markb,dnarw,markk,
 dnarw,blkmove,dnarw            ^X ^T           Transpose lines
 
+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
 
  Old way- broken at end of line
  psh,prevword,markb,nextword,
@@ -782,7 +759,7 @@ ask                 ^X s
 drop,msg,"Mark set",rtn        ^@                      Drop anchor
 nextw,pgdn,prevw       ^[ ^V                   Scroll other window down
 nextw,pgup,prevw       ^[ ^Z                   Scroll other window up
- bol,nedge,pedge       ^[ m                    Gnu-emacs goto indentation
+ bol,nedge,pedge       ^[ m                    GNU-Emacs goto indentation
 nextw,nbuf,prevw       ^X 4 b                  Switch buffers other window
 nextw,edit,query,prevw ^X 4 f                  Find file other window
 nextw,edit,query,prevw ^X 4 ^F
@@ -791,7 +768,7 @@ nextw,tag,query,prevw       ^X 4 .                  Find tag other window
  Old way...
  exsave                        ^X ^C                   Save file and exit
 
- More like gnu-emacs...
+ More like GNU Emacs...
 querysave,query,killjoe        ^X ^C                   Query to save files, then exit
 
  Old way...
@@ -895,9 +872,9 @@ save                ^X ^W           Write file
 setmark                ^X j            Set bookmark
 shrinkw                ^X ^Z           (uemacs)
 splitw         ^X 2            Split window
-stat           ^X l            Gnu-Emacs Show status
+stat           ^X l            GNU-Emacs Show status
 stat           ^X ?            JED
-stat           ^X =            Gnu-Emacs
+stat           ^X =            GNU-Emacs
 swap           ^X ^X           Swap mark and cursor
 tag            ^[ .            Tag search
 tomatch                ^X g            Goto matching parenthasis (joe)
index a180c07..2f61f3d 100644 (file)
--- a/joe.1.in
+++ b/joe.1.in
@@ -1,4 +1,4 @@
-.\" $MirOS: contrib/code/jupp/joe.1.in,v 1.11 2010/01/02 15:41:03 tg Exp $
+.\" $MirOS: contrib/code/jupp/joe.1.in,v 1.12 2011/10/04 22:35:45 tg Exp $
 .\"-
 .TH JOE 1
 .SH Name
@@ -247,6 +247,13 @@ The file is read only.
 
 .IP -keymap\ name
 Use an alternate section of the joerc file for the key sequence bindings.
+For example,
+.B joe, jstar, rjoe
+and
+.B jupp
+support
+.B \-keymap cua
+to make ^Z, ^X, ^C and ^V do the same thing as in contemporary GUI editors.
 
 .LP
 These options can also be specified in the joerc file.  They can be set
diff --git a/joe.txt b/joe.txt
index 9eb6ac0..37be9b2 100644 (file)
--- a/joe.txt
+++ b/joe.txt
@@ -275,7 +275,9 @@ Command Line Options
 \r
      -keymap name\r
           Use an alternate section of the joerc file for the key\r
-          sequence bindings.\r
+          sequence bindings. For example, joe, jstar, rjoe and
+          jupp support -keymap cua to make ^Z, ^X, ^C and ^V do
+          the same thing as in contemporary GUI editors.
 \r
      These options can also be specified in the joerc file.  They\r
      can be set depending on the file-name extension.  Programs\r
index cb76dd9..43eae8b 100644 (file)
--- a/joerc.in
+++ b/joerc.in
@@ -1,11 +1,11 @@
- $MirOS: contrib/code/jupp/joerc.in,v 1.4 2011/07/16 18:41:39 tg Exp $
+ $MirOS: contrib/code/jupp/joerc.in,v 1.8 2011/10/04 22:35:45 tg Exp $
 
                          Initialization file for JOE
                                 Standard Joe
 
  JOE looks for this file in:
        1 - $HOME/.joerc
-       2 - ${prefix}/etc/joerc
+       2 - @sysconfdir@/joerc
 
  This file can include other files by placing the following include command
  in the first column:
@@ -29,7 +29,7 @@
 
  -force                Force final newline when files are saved
 
- -nobackups    If you don't want backup files to be created
+-nobackups     If you don't want backup files to be created
 
  -lightoff     Turn off highlighting after block copy or move
 
 -autoindent
 -syntax csh
 
+*.cshrc
+-autoindent
+-syntax csh
+
 *.login
 -autoindent
 -syntax csh
 
 {Joe
 \i   Help Screen    \|turn off with ^KH    prev. screen ^[,                        \i
-\i \i Send bug reports to: http://sourceforge.net/projects/joe-editor             \|\i \i
+\i \i For bug reports and other information, refer to: \uhttp://mirbsd.de/jupp\u      \|\i \i
+}
+
+{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    \i\u@ABC\u\i \i\uDEFG\u\i  \i\uHIJK\u\i \i\uLMNO\u\i | 80  128            \i \i
+\i \i  16  10 | \uPQRS\u \uTUVW\u  \uXYZ[\u \u\\]^_\u    \i\uPQRS\u\i \i\uTUVW\u\i  \i\uXYZ[\u\i \i\u\\]^_\u\i | 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{ |}~\7f    ðñòó ôõö÷  øùúû üýþÿ | F0  240            \i \i
 }
 
  FOURTH SECTION: Key bindings:
@@ -825,6 +843,15 @@ blkdel,nmark   ^[ [ 3 ; 5 ~        Xterm Ctrl-Del
 yank           ^[ [ 2 ; 5 -    Gnome-terminal Ctrl-Ins
 yank           ^[ [ 2 ; 5 ~    Xterm Ctrl-Ins
 
+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
+
  Extra functions not really part of JOE user interface:
 
 delbol         ^[ o            Delete to beginning of line
@@ -1044,7 +1071,7 @@ eolmenu                   ^[ [ F                  Xterm, Konsole
 eolmenu                        ^[ O F                  gnome-terminal
 eolmenu                        ^[ [ 8 ~                RxVT
 
-abort          ^[ ^[   Why?
+abort          ^[ ^[
 backsmenu      ^?
 backsmenu      ^H
 bofmenu                ^K U
@@ -1094,3 +1121,10 @@ type             ^@ TO 
 
 :querysr               Search & replace query window
 type           ^@ TO ÿ
+
+:cua                   Undo/Cut/Copy/Paste, CUA style
+:inherit main
+undo           ^Z
+blkdel,nmark   ^X
+copy           ^C
+yank           ^V
index bbba867..fc12252 100644 (file)
@@ -1,4 +1,4 @@
- $MirOS: contrib/code/jupp/jpicorc.in,v 1.4 2011/07/16 18:41:40 tg Exp $
+ $MirOS: contrib/code/jupp/jpicorc.in,v 1.7 2011/10/04 22:35:46 tg Exp $
 
                          Initialization file for JOE
                                  Super Pico
@@ -29,7 +29,7 @@
 
 -force         Force final newline when files are saved
 
- -nobackups    If you don't want backup files to be created
+-nobackups     If you don't want backup files to be created
 
 -lightoff      Turn off highlighting after block copy or move
 
 
 {Joe
 \i   Help Screen    \|turn off with ^G     prev. screen ^[,                        \i
-\i \i Send bug reports to: http://sourceforge.net/projects/joe-editor             \|\i \i
+\i \i For bug reports and other information, refer to: \uhttp://mirbsd.de/jupp\u      \|\i \i
+}
+
+{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    \i\u@ABC\u\i \i\uDEFG\u\i  \i\uHIJK\u\i \i\uLMNO\u\i | 80  128            \i \i
+\i \i  16  10 | \uPQRS\u \uTUVW\u  \uXYZ[\u \u\\]^_\u    \i\uPQRS\u\i \i\uTUVW\u\i  \i\uXYZ[\u\i \i\u\\]^_\u\i | 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{ |}~\7f    ðñòó ôõö÷  øùúû üýþÿ | F0  240            \i \i
 }
 
  FOURTH SECTION: Key bindings:
@@ -726,6 +740,15 @@ stop               ^[ )            Stop recording
 :main                  Text editing window
 :inherit windows
 
+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
+
  Spell-check macros
 
  Ispell
index 18fd217..c28240c 100644 (file)
@@ -1,11 +1,11 @@
- $MirOS: contrib/code/jupp/jstarrc.in,v 1.4 2011/07/16 18:41:40 tg Exp $
+ $MirOS: contrib/code/jupp/jstarrc.in,v 1.8 2011/10/04 22:35:46 tg Exp $
 
                          Initialization file for JOE
                            WordStar / Turbo-C Joe
 
  JOE looks for this file in:
        1 - $HOME/.jstarrc
-       2 - ${prefix}/etc/jstarrc
+       2 - @sysconfdir@/jstarrc
 
  This file can include other files by placing the following include command
  in the first column:
@@ -25,7 +25,7 @@
  -marking      Text between ^KB and cursor is highlighted (use with -lightoff)
  -asis         Characters 128 - 255 shown as-is
  -force                Force final newline when files are saved
- -nobackups    If you don't want backup files to be created
+-nobackups     If you don't want backup files to be created
  -lightoff     Turn off highlighting after block copy or move
  -exask                ^KX always confirms file name
  -beep         Beep on errors and when cursor goes past extremes
 
 {Joe
 \i   Help Screen    \|turn off with ^J     prev. screen ^[,                        \i
-\i \i Send bug reports to: http://sourceforge.net/projects/joe-editor             \|\i \i
+\i \i For bug reports and other information, refer to: \uhttp://mirbsd.de/jupp\u      \|\i \i
+}
+
+{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    \i\u@ABC\u\i \i\uDEFG\u\i  \i\uHIJK\u\i \i\uLMNO\u\i | 80  128            \i \i
+\i \i  16  10 | \uPQRS\u \uTUVW\u  \uXYZ[\u \u\\]^_\u    \i\uPQRS\u\i \i\uTUVW\u\i  \i\uXYZ[\u\i \i\u\\]^_\u\i | 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{ |}~\7f    ðñòó ôõö÷  øùúû üýþÿ | F0  240            \i \i
 }
 
  FOURTH SECTION: Key bindings:
  Simple macros can be made by comma seperating 2 or more command names.  For
  example:
 
bof,bol       ^T Z            Goto beginning of last line
eof,bol       ^T Z            Goto beginning of last line
 
  Also quoted matter is typed in literally:
 
@@ -719,6 +733,15 @@ stop               ^[ )
 :main                  Text editing window
 :inherit windows
 
+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
+
  Ispell
 :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
@@ -1036,3 +1059,10 @@ type             ^@ TO 
 
 :querysr               Search & replace query window
 type           ^@ TO ÿ
+
+:cua                   Undo/Cut/Copy/Paste, CUA style
+:inherit main
+undo           ^Z
+blkdel,nmark   ^X
+copy           ^C
+yank           ^V
diff --git a/jupprc b/jupprc
index 49a6a58..c224f3c 100644 (file)
--- a/jupprc
+++ b/jupprc
 \i \i go to \uhttp://sf.net/projects/joe-editor/\u for upstream bug reports. JUPP 2.8 \i \i
 \i \i for DOS compiled by A. Totlis, packed with LHarc 2.13; JUPP 3.x for UNIX\d(R)\d \i \i
 \i \i at \uhttp://mirbsd.de/jupp\u and by \bThorsten "\dmirabilos\d" Glaser <\utg@mirbsd.org\u>\b \i \i
-\i \i @(#) jupprc 2011-07-27; 3.1; autoCR-LF; UTF-8 via locale; per-file encoding \i \i
+\i \i @(#) jupprc 2011-10-04; 3.1; autoCR-LF; UTF-8 via locale; per-file encoding \i \i
 }
 
 {CharTable
@@ -487,6 +487,14 @@ stop               ^[ )
 bof,qrepl,"\\[",quote,"i",quote,"k",quote,"l",quote,"m ]\\+\\[",quote,"i",quote,"k",quote,"l",quote,"m ]\\$",rtn,rtn,rtn,"r",eof       ^K ]
 edit,rtn,filt,query,parserr    ^[ C
 edit,rtn,filt,query,parserr    ^[ c
+begin_marking,uparw,toggle_marking     ^[ [ 1 ; 2 A
+begin_marking,dnarw,toggle_marking     ^[ [ 1 ; 2 B
+begin_marking,rtarw,toggle_marking     ^[ [ 1 ; 2 C
+begin_marking,ltarw,toggle_marking     ^[ [ 1 ; 2 D
+begin_marking,bol,toggle_marking       ^[ [ 1 ; 2 H
+begin_marking,eol,toggle_marking       ^[ [ 1 ; 2 F
+begin_marking,bof,toggle_marking       ^[ [ 1 ; 6 H
+begin_marking,eof,toggle_marking       ^[ [ 1 ; 6 F
 backs          ^?
 backs          ^H
 backw          ^[ o
@@ -766,3 +774,10 @@ type               ^@ TO 
 
 :querysr
 type           ^@ TO ÿ
+
+:cua
+:inherit main
+undo           ^Z
+blkdel,nmark   ^X
+copy           ^C
+yank           ^V
diff --git a/main.c b/main.c
index 28a181b..da954c8 100644 (file)
--- a/main.c
+++ b/main.c
@@ -1,4 +1,4 @@
-/* $MirOS: contrib/code/jupp/main.c,v 1.14 2011/07/16 22:01:28 tg Exp $ */
+/* $MirOS: contrib/code/jupp/main.c,v 1.15 2011/10/04 22:25:52 tg Exp $ */
 
 #define JUPP_IS_COPYRIGHT_C_BY "2011 mirabilos"
 
@@ -359,6 +359,9 @@ int main(int argc, char **argv, char **envp)
 
                                bw->o.readonly = bw->b->rdonly;
                                if (backopt) {
+                                       unsigned char *old_context;
+
+                                       old_context = bw->o.context;
                                        while (backopt != c) {
                                                if (argv[backopt][0] == '+') {
                                                        sscanf((char *)(argv[backopt] + 1), "%ld", &lnum);
@@ -371,6 +374,12 @@ int main(int argc, char **argv, char **envp)
                                                        lazy_opts(&bw->o);
                                                }
                                        }
+                                       if (old_context != bw->o.context) {
+                                               /* update keymap */
+                                               rmkbd(bw->parent->kbd);
+                                               bw->parent->kbd =
+                                                   mkkbd(kmap_getcontext(bw->o.context));
+                                       }
                                }
                                bw->b->o = bw->o;
                                bw->b->rdonly = bw->o.readonly;
diff --git a/rc.c b/rc.c
index 3a36341..7e4af7e 100644 (file)
--- a/rc.c
+++ b/rc.c
@@ -1,4 +1,4 @@
-/* $MirOS: contrib/code/jupp/rc.c,v 1.14 2011/07/03 00:35:04 tg Exp $ */
+/* $MirOS: contrib/code/jupp/rc.c,v 1.15 2011/10/04 22:25:52 tg Exp $ */
 /*
  *     *rc file parser
  *     Copyright
@@ -455,12 +455,7 @@ int glopt(unsigned char *s, unsigned char *arg, OPTIONS *options_, int set)
                        ret = 1;
        } else if (!strcmp(s, "keymap")) {
                if (arg) {
-                       int y;
-
-                       for (y = 0; !joe_isspace(locale_map,arg[y]); ++y) ;
-                       if (!arg[y])
-                               arg[y] = 0;
-                       if (options_ && y)
+                       if (options_)
                                options_->context = (unsigned char *)strdup((char *)arg);
                        ret = 2;
                } else
index e11eedd..23d6d9d 100644 (file)
--- a/rjoerc.in
+++ b/rjoerc.in
@@ -1,4 +1,4 @@
- $MirOS: contrib/code/jupp/rjoerc.in,v 1.4 2011/07/16 18:41:40 tg Exp $
+ $MirOS: contrib/code/jupp/rjoerc.in,v 1.8 2011/10/04 22:35:46 tg Exp $
 
                          Initialization file for JOE
                             Restricted access Joe
@@ -29,7 +29,7 @@
 
  -force                Force final newline when files are saved
 
- -nobackups    If you don't want backup files to be created
+-nobackups     If you don't want backup files to be created
 
  -lightoff     Turn off highlighting after block copy or move
 
@@ -87,6 +87,8 @@
 
  -wrap          Search wraps
 
+ -autoswap     Swap markb with markk when necessary
+
  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
   %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:
  
   \d  Dim
   \f  Blink
 
--lmsg \i%k%T%W%I%X %n %m%y%R %M
+-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 Help: ^KH
 
  SECOND SECTION: File name dependant local option settings:
 
  Each line with '*' in the first column indicates the modes which should be
- set for files which match the regular expression.  If more than one regular
- expression matches the file name, then the last matching one is chosen.
+ 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.
 
  Here are the modes which can be set:
 
  Use \d to turn on/off dim
  Use \f to turn on/off flash
 
+ 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
 
 {Joe
 \i   Help Screen    \|turn off with ^KH    prev. screen ^[,                        \i
-\i \i Send bug reports to: http://sourceforge.net/projects/joe-editor             \|\i \i
+\i \i For bug reports and other information, refer to: \uhttp://mirbsd.de/jupp\u      \|\i \i
+}
+
+{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    \i\u@ABC\u\i \i\uDEFG\u\i  \i\uHIJK\u\i \i\uLMNO\u\i | 80  128            \i \i
+\i \i  16  10 | \uPQRS\u \uTUVW\u  \uXYZ[\u \u\\]^_\u    \i\uPQRS\u\i \i\uTUVW\u\i  \i\uXYZ[\u\i \i\u\\]^_\u\i | 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{ |}~\7f    ðñòó ôõö÷  øùúû üýþÿ | F0  240            \i \i
 }
 
  FOURTH SECTION: Key bindings:
  Simple macros can be made by comma seperating 2 or more command names.  For
  example:
 
bof,bol       ^T Z            Goto beginning of last line
eof,bol       ^T Z            Goto beginning of last line
 
  Also quoted matter is typed in literally:
 
 
  Macros may cross lines if they end with ,
 
+ 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 goto the beginning of the last line.
+
 :windows               Bindings common to all windows
 type           ^@ TO ÿ         Type a character
 abort          ^C              Abort window
@@ -697,7 +728,7 @@ hnext               ^[ .            Next help window
 hprev          ^[ ,            Previous help window
 math           ^[ m            Calculator
 math           ^[ M            Calculator
-math           ^[ ^M           Calculator
+ math          ^[ ^M           Calculator
 msg            ^[ h            Display a message
 msg            ^[ H            Display a message
 msg            ^[ ^H           Display a message
@@ -758,6 +789,42 @@ eol                        ^[ [ F                  Xterm, Konsole, SCO
 eol                    ^[ O F                  gnome-terminal
 eol                    ^[ [ 8 ~                RxVT
 
+begin_marking,rtarw,toggle_marking     ^[ [ 1 ; 5 C    Mark right Xterm
+begin_marking,rtarw,toggle_marking     ^[ [ 5 C        Mark right Gnome-terminal
+ (Almost all termcap entries have ^[ O C as an arrow key).
+ begin_marking,rtarw,toggle_marking    ^[ O C          Mark right Putty Ctrl-rtarw
+begin_marking,rtarw,toggle_marking     ^[ O c          Mark right RxVT Ctrl-rtarw
+
+begin_marking,ltarw,toggle_marking     ^[ [ 1 ; 5 D    Mark left
+begin_marking,ltarw,toggle_marking     ^[ [ 5 D        Mark left
+ begin_marking,ltarw,toggle_marking    ^[ O D          Mark left Putty Ctrl-ltarw
+begin_marking,ltarw,toggle_marking     ^[ O d          Mark left RxVT Ctrl-ltarw
+
+begin_marking,uparw,toggle_marking     ^[ [ 1 ; 5 A    Mark up
+begin_marking,uparw,toggle_marking     ^[ [ 5 A        Mark up
+ begin_marking,uparw,toggle_marking    ^[ O A          Mark up Putty Ctrl-uparw
+begin_marking,uparw,toggle_marking     ^[ O a          Mark up RxVT Ctrl-uparw
+
+begin_marking,dnarw,toggle_marking     ^[ [ 1 ; 5 B    Mark down
+begin_marking,dnarw,toggle_marking     ^[ [ 5 B        Mark down
+ begin_marking,dnarw,toggle_marking    ^[ O B          Mark down Putty Ctrl-dnarw
+begin_marking,dnarw,toggle_marking     ^[ O b          Mark down RxVT Ctrl-dnarw
+
+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
+
+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
+
  Extra functions not really part of JOE user interface:
 
 delbol         ^[ o            Delete to beginning of line
@@ -793,14 +860,16 @@ 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
 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
-yankpop                ^[ y            Undelete text
+yank           ^[ y            Undelete text
 yankpop                ^[ ^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
  pbuf          ^[ .            Next buffer
@@ -1028,3 +1097,10 @@ type             ^@ TO 
 
 :querysr               Search & replace query window
 type           ^@ TO ÿ
+
+:cua                   Undo/Cut/Copy/Paste, CUA style
+:inherit main
+undo           ^Z
+blkdel,nmark   ^X
+copy           ^C
+yank           ^V
diff --git a/scrn.c b/scrn.c
index 94dad48..9496009 100644 (file)
--- a/scrn.c
+++ b/scrn.c
@@ -1,4 +1,4 @@
-/* $MirOS: contrib/code/jupp/scrn.c,v 1.7 2010/04/08 15:31:03 tg Exp $ */
+/* $MirOS: contrib/code/jupp/scrn.c,v 1.8 2011/10/04 20:05:29 tg Exp $ */
 /*
  *     Device independant TTY interface for JOE
  *     Copyright
@@ -303,7 +303,7 @@ void outatr(struct charmap *map,SCRN *t,int *scrn,int *attrf,int xx,int yy,int c
                        }
 
                        c = to_uni(map,c);
-                       if (c == -1 || c < 32 || (c >= 0x7E && c < 0xA0)) {
+                       if (c == -1 || c < 32 || (c >= 0x7F && c < 0xA0)) {
                                c = 0x1000FFFE;
                                a = (a | UNDERLINE) ^ INVERSE;
                        }