[net.sources] WordStar emulation for jove

david@varian.UUCP (David Brown) (09/26/86)

: This is a shar archieve.  Extract with sh, not csh.
: The rest of this file will extract:
: README joverc.uu joverc.clif.uu jovemacros.uu
echo extracting - README
sed 's/^X//' > README << '/*EOF'
X		WORDSTAR EMULATION FOR JOVE
X
XA few weeks ago, I posted a request for help in customizing a version
X(any version) of emacs for WordStar emulation.  I got a couple of
Xreplies, including one from Clif Sothoron (lll-crg!seismo!BRL.ARPA!cbsoth)
Xwho provided me with a .joverc customization file for jove.
XI discovered that some of the key names have changed (I'm running
Xversion 4.5, which is in the contributed software on the 4.3BSD
Xdistribution tape), and made a few other changes and additions
X(e.g. reformat paragraph).
X
XI've included both his version and mine; both are uuencoded because
Xthey include binary characters (I'm amazed that Clif's mail arrived here
Xintact).   As Clif states in his letter, the macro file is in a binary
Xformat that is machine dependent; it has to be generated from within
Xjove.  I've included my macro file, which contains only one macro (^Y -
Xdelete line); it was generated on a VAX 11/750 running ULTRIX 1.2.
XI don't currently use the other bind-key-to-macro definitions.
X
XCreating macros is described in section 15.5 of the jove manual:
X
X	This will be a bit more difficult if you have ^X already
X	bound to something unusual (e.g. next-line for WordStar emulation)
X
X	type ^X(	or	ESC X start-remembering
X	type the keystokes to be stored in the macro
X	type ^X)	or	ESC X stop-remembering
X	ESC X name-keyboard-macro somename
X	ESC X write-macros-to-file .jovemacros
X
X	In .joverc, put some read-macros-from-file and bind-macro-to-key
X	statements.
X
XIn order to put ^S and ^Q into .joverc (using vi), I used stty
Xto temporarily change my start and stop characters.
X
XI haven't tested these customizations very much, so I'm sure there's
Xplenty of room for improvement.  I would appreciate feedback and fixes;
Xalso, if anyone converts them to other versions of emacs (e.g. GNU,
Xmicroemacs, etc.), I am also interested.
X
X	David Brown	 (415) 945-2199
X	Varian Instruments 2700 Mitchell Dr.  Walnut Creek, Ca. 94598
X	{zehntel,dual,amd,fortune,rtech,lll-crg,ista,ptsfa,csi}!varian!david
X
X
XCURRENT PROBLEMS AND NOTES:
X
XFor some reason, specifying a file name on the command line causes
Xauto-fill-mode not to be turned on.
X
XI've bound ^U to yank (unkill a line).
X
X^S and ^Q are bound to keys and "allow-^S-and^Q is set, so terminals
Xthat require flow control at high baud rates (e.g. DEC VT100 at 9600 baud)
Xwill have problems.
X
XThere seem to be some problems with reverse video on terminals with the
Xmagic cookie problem (attributes require a space), but this is more
Xlikely a problem in jove or a termcap entry rather than a problem with
Xthis customization.  I normally use a TVI955 (with no-space attributes
Xselected); I noticed a problem when I was demonstrating jove briefly to
Xsomething with a TVI925, and haven't investigated further.  The editor
Xworks OK, you just get annoying reverse video on the screen.
X
XSome of the things that are not implemented:
X	^Kx, ^Kd - various ways to exit
X	^Qz, ^Qw - scroll continuously up and down 
X	block commands
X	margin and tab setting
X	centering
X	ruler lines
X	some of the search parameters
X	Copy, delete, rename, print files (shell-type activities)
X	print controls
X	dot commands
X
X
X
XREPLIES RECEIVED (thanks Clif & Earl!):
X
XDate:     Thu, 11 Sep 86 9:09:34 EDT
XFrom: Clif Sothoron <varian!lll-crg!seismo!BRL.ARPA!cbsoth>
X
X   I rebound the keys for the jove editor to make jove resemble
XWordstar. The macros created for this purpose are in binary form and are
Xmachine dependent.See the jove manaul for writing your own I had to redo
Xthe macros for VAX, Perkin-Elmer and Gould machines(all running UNIX).
XThe actual jove tailorings file is not machine specific. By the way I am
Xunable to post to net.emacs. Could you post this?
X
X
X-------------------------
X
XDate: Wed, 10 Sep 86 08:21:31 PDT
XFrom: varian!pyramid!pyrps5.earls (Earl Stutes)
X
XThere are 2 wordstar .ml files in the maclib that is shipped with
XUnipress emacs.  I have not tried it, but there is a conversion
Xpackage to "fix up" .ml files so they can be used by GNU.  One of
Xthese things ought to work for you.
X
XMicro emacs has  key binding and macro capability, but the language is
Xnot even mocklisp, so the key binding job could be quite extensive. I
Xlike MicroEmacs and use it exclusively on my PC at home. But then again
XI am a emacs hacker here at work, so I don't do much in the way of
X"funny" ie. non-emacs key binding because most of the key bindings are
Xclose enough to GNU that I just use them that way.  You will notice that
Xthere is an extensive demo of key binding in MicroEmacs 3.7. The author
Xincludes a file that makes it into a menu driven editor.  I could not
Xget this to load on my PC, because the stack required was too large for
Xthe support package that comes with my compiler.  Maybe it is exactly
Xwhat you are looking for, or at least close enough to make the job easy.
X
/*EOF
echo extracting - joverc.uu
sed 's/^X//' > joverc.uu << '/*EOF'
Xbegin 644 .joverc
XM<V5T(')I9VAT+6UA<F=I;B W,@IS970@;W9E<BUW<FET92 P"G-E="!R96=U
XM;&%R+65X<')E<W-I;VYS(# *<V5T(&)A8VMU<"UF:6QE<R P"G-E="!A=71O
XM+6EN9&5N=" P"G-E="!A;&QO=RU>4RUA;F0M7E$*875T;RUF:6QL"@IB:6YD
XM+71O+6ME>2!0<F5F:7@M,2 +"F)I;F0M=&\M:V5Y(%!R969I>"TR(!$*=6YB
XM:6YD+6ME>2 8"G5N8FEN9"UK97D@#@H*<F5A9"UM86-R;W,M9G)O;2UF:6QE
XM("]U,"]D879I9"\N:F]V96UA8W)O<PIB:6YD+6UA8W)O+71O+6ME>2!K;&EN
XM92 9"F)I;F0M;6%C<F\M=&\M:V5Y(&QF=&1E;" 1" IB:6YD+6UA8W)O+71O
XM+6ME>2!F87-T+65X:70@&W@*8FEN9"UM86-R;RUT;RUK97D@9F%S="UE>&ET
XM(!L8"F)I;F0M;6%C<F\M=&\M:V5Y(&9A<W0M97AI=" ;9 IB:6YD+6UA8W)O
XM+71O+6ME>2!F87-T+65X:70@&P0*"F)I;F0M=&\M:V5Y(&1E;&5T92UN97AT
XM+6-H87(@!PIB:6YD+71O+6ME>2!F;W)W87)D+7=O<F0@!@IB:6YD+71O+6ME
XM>2!B86-K=V%R9"UW;W)D( $*8FEN9"UT;RUK97D@9F]R=V%R9"UC:&%R86-T
XM97(@! IB:6YD+71O+6ME>2!B86-K=V%R9"UC:&%R86-T97(@" IB:6YD+71O
XM+6ME>2!B86-K=V%R9"UC:&%R86-T97(@$PIB:6YD+71O+6ME>2!N97AT+6QI
XM;F4@& IB:6YD+71O+6ME>2!P<F5V:6]U<RUL:6YE( 4*8FEN9"UT;RUK97D@
XM<V-R;VQL+61O=VX@&@IB:6YD+71O+6ME>2!S8W)O;&PM=7 @%PIB:6YD+71O
XM+6ME>2!N97AT+7!A9V4@ R *8FEN9"UT;RUK97D@<')E=FEO=7,M<&%G92 2
XM"F)I;F0M=&\M:V5Y(&5N9"UO9BUL:6YE(!%D"F)I;F0M=&\M:V5Y(&5N9"UO
XM9BUL:6YE(!$$"F)I;F0M=&\M:V5Y(&)E9VEN;FEN9RUO9BUL:6YE(!%S"F)I
XM;F0M=&\M:V5Y(&)E9VEN;FEN9RUO9BUL:6YE(!$3"F)I;F0M=&\M:V5Y(&)E
XM9VEN;FEN9RUO9BUF:6QE(!%R"F)I;F0M=&\M:V5Y(&)E9VEN;FEN9RUO9BUF
XM:6QE(!$2"F)I;F0M=&\M:V5Y(&5N9"UO9BUF:6QE(!%C"F)I;F0M=&\M:V5Y
XM(&5N9"UO9BUF:6QE(!$#"F)I;F0M=&\M:V5Y(&)E9VEN;FEN9RUO9BUW:6YD
XM;W<@$64*8FEN9"UT;RUK97D@8F5G:6YN:6YG+6]F+7=I;F1O=R 1!0IB:6YD
XM+71O+6ME>2!E;F0M;V8M=VEN9&]W(!%X"F)I;F0M=&\M:V5Y(&5N9"UO9BUW
XM:6YD;W<@$1@*8FEN9"UT;RUK97D@;W9E<BUW<FET92UM;V1E(!8*"F)I;F0M
XM=&\M:V5Y(&5X96-U=&4M97AT96YD960M8V]M;6%N9" 1> IB:6YD+71O+6ME
XM>2!Q=6]T92UC:&%R(!LB"F)I;F0M=&\M:V5Y(&YU;6)E<BUL:6YE<R ;(PIB
XM:6YD+71O+6ME>2!C:&%R+71O+6]C=&%L+6EN<V5R=" ;0" @( IB:6YD+71O
XM+6ME>2!S970@&WX*8FEN9"UT;RUK97D@;6%K92UB=69F97(M=6YM;V1I9FEE
XM9" ;+0IB:6YD+71O+6ME>2!P<FEN=" ;8" @(" @(" @(" @(" @(" @(" @
XM"F)I;F0M=&\M:V5Y(&1E<V-R:6)E+6ME>2 ;/PIB:6YD+71O+6ME>2!D97-C
XM<FEB92UC;VUM86YD(!MJ"F)I;F0M=&\M:V5Y(&%P<F]P;W,@&TH*8FEN9"UT
XM;RUK97D@<F5D<F%W+61I<W!L87D@'@IB:6YD+71O+6ME>2!S:&5L;"UC;VUM
XM86YD+71O+6)U9F9E<B <"F)I;F0M=&\M:V5Y('1R86YS<&]S92UC:&%R(!MT
XM"F)I;F0M=&\M:V5Y(&MI;&PM=&\M96YD+6]F+6QI;F4@$7D*8FEN9"UT;RUK
XM97D@:VEL;"UT;RUE;F0M;V8M;&EN92 1&0IB:6YD+71O+6ME>2!K:6QL+6YE
XM>'0M=V]R9" 4( IB:6YD+71O+6ME>2!D96QE=&4M;F5X="UC:&%R( <*8FEN
XM9"UT;RUK97D@<V5T+6UA<FL@&V(*8FEN9"UT;RUK97D@=W)I=&4M<F5G:6]N
XM(!M?"F)I;F0M=&\M:V5Y(&%P<&5N9"UR96=I;VX@&W<*8FEN9"UT;RUK97D@
XM>6%N:R 5"F)I;F0M=&\M:V5Y(&-O<'DM<F5G:6]N(!MK"F)I;F0M=&\M:V5Y
XM(&EN<V5R="UF:6QE(!MR"F)I;F0M=&\M:V5Y(&1E;&5T92UT;RUK:6QL8G5F
XM9F5R(!MY"F)I;F0M=&\M:V5Y(&DM<V5A<F-H+7)E=F5R<V4@$78*8FEN9"UT
XM;RUK97D@:2US96%R8V@M<F5V97)S92 1%@H*8FEN9"UT;RUK97D@97AI="UJ
XM;W9E(!MQ"F)I;F0M=&\M:V5Y('-A=F4M9FEL92 ;<PIB:6YD+71O+6ME>2!S
XM879E+69I;&4@&Q,*"@IB:6YD+71O+6ME>2!S<&5L;"UB=69F97(@$6P*8FEN
XM9"UT;RUK97D@:2US96%R8V@M9F]R=V%R9" 19@IB:6YD+71O+6ME>2!I+7-E
XM87)C:"UF;W)W87)D(!$&"F)I;F0M=&\M:V5Y(')E<&QA8V4M<V5A<F-H(!%A
XM"F)I;F0M=&\M:V5Y(')E<&QA8V4M<V5A<F-H(!$!"F)I;F0M=&\M:V5Y('%U
XM97)Y+7)E<&QA8V4M<V5A<F-H( P*"F)I;F0M=&\M:V5Y(&9I;&PM<&%R86=R
X'87!H( (@"FQA
X 
Xend
/*EOF
echo extracting - joverc.clif.uu
sed 's/^X//' > joverc.clif.uu << '/*EOF'
Xbegin 644 .joverc.clif
XM<F5A9"UM86-R;W,M9G)O;2UF:6QE("]G+VEB9"]C8G-O=&@O+FIO=F5M86-R
XM;W,*8FEN9"UM86-R;RUT;RUK97D@:VQI;F4@&0IB:6YD+6UA8W)O+71O+6ME
XM>2!I;G-O9F8@#PIB:6YD+6UA8W)O+71O+6ME>2!I;G-R=" 6"F)I;F0M;6%C
XM<F\M=&\M:V5Y(&QF=&1E;" 8" IB:6YD+6UA8W)O+71O+6ME>2!F97AI=" ;
XM> IB:6YD+6UA8W)O+71O+6ME>2!F87-T+65X:70@&V0*"B @(" @(" @"F)I
XM;F0M=&\M:V5Y(&5X96-U=&4M97AT96YD960M8V]M;6%N9" 8> IB:6YD+71O
XM+6ME>2!Q=6]T92UC:&%R(!LB"F)I;F0M=&\M:V5Y(%!R969I>"TQ( L*8FEN
XM9"UT;RUK97D@;G5M8F5R+6QI;F5S(!LC"F)I;F0M=&\M:V5Y(&-H87(M=&\M
XM;V-T86PM:6YS97)T(!M (" @"F)I;F0M=&\M:V5Y('-E=" ;?@IB:6YD+71O
XM+6ME>2!M86ME+6)U9F9E<BUU;FUO9&EF:65D(!LM"F)I;F0M=&\M:V5Y('!R
XM:6YT(!M@(" @(" @(" @(" @(" @(" @(" *8FEN9"UT;RUK97D@9&5S8W)I
XM8F4M:V5Y(!L_"F)I;F0M=&\M:V5Y(&1E<V-R:6)E+6-O;6UA;F0@&VH*8FEN
XM9"UT;RUK97D@87!R;W!O<R ;2@IB:6YD+71O+6ME>2!R961R87<M9&ES<&QA
XM>2 >"F)I;F0M=&\M:V5Y('-H96QL+6-O;6UA;F0M=&\M8G5F9F5R(!P*8FEN
XM9"UT;RUK97D@8F%C:W=A<F0M8VAA<B ;8@IB:6YD+71O+6ME>2!F;W)W87)D
XM+6-H87(@&T8*8FEN9"UT;RUK97D@=')A;G-P;W-E+6-H87(@&W0*8FEN9"UT
XM;RUK97D@:VEL;"UT;RUE;F0M;V8M;&EN92 8>0IB:6YD+71O+6ME>2!D96QE
XM=&4M;F5X="UW;W)D(!0@"F)I;F0M=&\M:V5Y(&1E;&5T92UN97AT+6-H87(@
XM!PIB:6YD+71O+6ME>2!S970M;6%R:R ;8@IB:6YD+71O+6ME>2!W<FET92UR
XM96=I;VX@&U\*8FEN9"UT;RUK97D@87!P96YD+7)E9VEO;B ;=PIB:6YD+71O
XM+6ME>2!Y86YK(!MC"F)I;F0M=&\M:V5Y(&-O<'DM<F5G:6]N(!MK"F)I;F0M
XM=&\M:V5Y(&EN<V5R="UF:6QE(!MR"F)I;F0M=&\M:V5Y(&1E;&5T92UT;RUK
XM:6QL8G5F9F5R(!MY"F)I;F0M=&\M:V5Y(&DM<V5A<F-H+7)E=F5R<V4@&'8*
XM<V5T('1E>'0M9FEL;" Q"G-E="!R:6=H="UM87)G:6X@-S(*<V5T(&]V97(M
XM=W)I=&4@, IS970@<F5G=6QA<BUE>'!R97-S:6]N<R P"G-E="!B86-K=7 M
XM9FEL97,@, IS970@875T;RUI;F1E;G0@, H*8FEN9"UT;RUK97D@97AI="UJ
XM;W9E(!MQ"F)I;F0M=&\M:V5Y('=R:71E+6-U<G)E;G0M9FEL92 ;<R @( H*
XM8FEN9"UT;RUK97D@9F]R=V%R9"UW;W)D( 8*8FEN9"UT;RUK97D@8F%C:W=A
XM<F0M=V]R9" !"F)I;F0M=&\M:V5Y(&5N9"UO9BUL:6YE(!AD"F)I;F0M=&\M
XM:V5Y(&)E9VEN;FEN9RUO9BUL:6YE(!AS"F)I;F0M=&\M:V5Y(&)E9VEN;FEN
XM9RUO9BUF:6QE(!AR"F)I;F0M=&\M:V5Y(&5N9"UO9BUF:6QE(!AC"@IB:6YD
XM+71O+6ME>2!S<&5L;"UB=69F97(@&&P*8FEN9"UT;RUK97D@:2US96%R8V@M
XM9F]R=V%R9" 89@IB:6YD+71O+6ME>2!R97!L86-E+7-E87)C:" 880IB:6YD
XM+71O+6ME>2!Q=65R>2UR97!L86-E+7-E87)C:" ,"F)I;F0M=&\M:V5Y(&IU
XM<W1I9GDM<&%R86=R87!H( (@"@IB:6YD+71O+6ME>2!S8W)O;&PM9&]W;B :
XM"F)I;F0M=&\M:V5Y('-C<F]L;"UU<" 7"F)I;F0M=&\M:V5Y(&YE>'0M<&%G
XF92 #( IB:6YD+71O+6ME>2!P<F5V:6]U<RUP86=E(!(*"B @"@IE
X 
Xend
/*EOF
echo extracting - jovemacros.uu
sed 's/^X//' > jovemacros.uu << '/*EOF'
Xbegin 644 .jovemacros
X2    !     9K;&EN90 1$Q$9
X 
Xend
/*EOF
-- 
	David Brown	 (415) 945-2199
	Varian Instruments 2700 Mitchell Dr.  Walnut Creek, Ca. 94598
	{zehntel,dual,amd,fortune,rtech,lll-crg,rtgvax,ptsfa,csi}!varian!david