Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.1 6/24/83; site umcp-cs.UUCP
Path: utzoo!watmath!clyde!cbosgd!gatech!seismo!umcp-cs!smd
From: smd@umcp-cs.UUCP (Stanley Dunn)
Newsgroups: net.micro,net.micro.cpm,net.micro.pc
Subject: Emacs Setup file for the MIX Editor
Message-ID: <2488@umcp-cs.UUCP>
Date: Sat, 7-Dec-85 19:04:06 EST
Article-I.D.: umcp-cs.2488
Posted: Sat Dec  7 19:04:06 1985
Date-Received: Sun, 8-Dec-85 07:00:13 EST
Distribution: net
Organization: U of Maryland, Computer Science Dept., College Park, MD
Lines: 141
Xref: watmath net.micro:12989 net.micro.cpm:4962 net.micro.pc:6124

My apologies for being so late with this, but finally
I have posted my Emacs setup file for the MIX Editor.

This setup is by no means perfect, and I am sure many of you
will have better ideas on how I did some of the conversions.
If you do make changes, I would like to know so that my 
setup can be updated.

My wish list --

1. You still have to type the file name to exit MIX (^X ^F),
since I did not modify the editor to use a variable
to keep the file name.

2. I would like to fix delete line (^K) but too many troubles
with the MIX =JL command. Any ideas?

3. Blank compression is still a problem.  I have turned it 
off in this setup.

Enjoy, and keep me informed.  Thanks.

-- Stanley Dunn
Univ. of Md. Dept. of Computer Science

Here it is --
;
INIT "^GLoading	EMACS setup file ..."	;send message to terminal
;
; Terminal Characteristics for the Morrow MT-70	(ADM 31)
;
TERMINAL CLEAR	  '^[*'
TERMINAL CLREOS	  '^[Y'
TERMINAL CLREOL	  '^[T'
TERMINAL INSLINE  '^[E'
TERMINAL DELLINE  '^[R'
TERMINAL DELCHAR  '^[W'
TERMINAL INSONE	  '^[Q'
TERMINAL CURSOR	  '^[='
TERMINAL SCROLL	  '^J'
TERMINAL RSCROLL  '^[E^K'
CURSOR	 ROWCOL
HEIGHT	       24
WIDTH	       80
;
TRANSKEY "^H" "=RU"		     ;Make Back	Space delete
;
;     Attempt to define	equivalent EMACS commands.
;     Stanley Dunn, August 10, 1985.
;
TRANSKEY "^[x" "=CM"		     ;Command Mode (^[ is ESC key)
TRANSKEY "^[u" "^u"		     ;Help escape character
;
TRANSKEY "^n" "=LD"		     ;Line down
TRANSKEY "^p" "=LU"		     ;Line up
TRANSKEY "^v" "=SD"		     ;Screen down
TRANSKEY "^[v" "=SU"		     ;Screen up
TRANSKEY "^a" "=LB"		     ;Line beginning
TRANSKEY "^e" "=LE"		     ;Line end
TRANSKEY "^f" "=CR"		     ;Character	right
TRANSKEY "^[f" "=WR"		     ;Word right
TRANSKEY "^b" "=CL"		     ;Character	left
TRANSKEY "^[b" "=WL"		     ;Word left
TRANSKEY "^o" "=OL"		     ;Open line
;
MACKEY "^[<"  "=GO1=NL"		     ;Go to top	of file
MACKEY "^[>" "=GO-1=NL=SU"	     ;Go to bottom of file, up 1 screen
;
TRANSKEY "^d" "=DC"		     ;Delete character
TRANSKEY "^[d" "=DW"		     ;Delete word
;
; Because of the problem with using the	=JL
; function in MIX, the EMACS ^k	function is altered.
; In EMACS, ^k deletes to end of line, and hitting
; ^k a second time will	delete the line	break.
; If 2 windows are open	in MIX,	doing a	=JL to
; delete the line break	will scroll EVERYTHING up,
; including the	second window!
;
; More often than not an entire	line will be deleted, so
; ^k is	made to	delete the line, and esc-k is made to
; delete to end, if it is absolutely needed.
;
TRANSKEY "^k" "=DL"		     ;Delete an	entire line
TRANSKEY "^[k" "=DE"		     ;Delete to	end if needed (watch out!)
;
TRANSKEY "^s" "=FS"		     ;Find string
;
; Macro	to get parameters for the replacing functions.
; This uses variables 0	and 1.
;
MACNAME	"M1" "=GV0=NL'Replace:'=NL=GV1=NL'With:'=NL"
MACKEY "^[q" "=CMM1=NL=QR=0=NL=1=NL=PP"	;Query replace,	then go	back
MACKEY "^[r" "=CMM1=NL=RG=0=NL=1=NL=PP"	;Global	replace, then go back
;
; Set mark in Emacs is a ^@ which does not seem	to work
; in the Mix Editor, so	I used ^x<sp> instead.
;
TRANSKEY "^x " "=XB"		     ;Mark the beginning of a block
MACKEY "^w" "=XE=OB=DB"		     ;Mark the end, and	output
;
; In Emacs, ^y is an undo for the delete buffer
; which	can contain single lines.
; This ^y will only undelete marked buffers.
;
TRANSKEY "^y" "=IB"		     ;Restore the block
;
TRANSKEY "^x^s"	"=SA"		     ;Write file, continue editing
TRANSKEY "^x^f"	"=EX"		     ;Really exit
;
; Macro	to read	filename for opening a second window.
; uses variable	2, so as not to	conflict with the
; search and replace variables 0 and 1.
;
MACNAME	"M2" "=GV2=NL'Visit file:'=NL"
MACKEY "^x^v" "=CMM2=NL=SS12=NL=NL=OW=ED=2=NL"	   ;Open new window with file
;
; This will only work if one window is open.
; In Emacs both	windows	are closed, and	the
; the editor exits.
;
MACKEY "^c" "=QTY=NL"		     ;Abort (I think this is correct)
;
TRANSKEY "^u" "=RP"		     ;Repeat a command
;
MACKEY "^x2" "=SS12=NL=NL"	     ;Open an empty second window
TRANSKEY "^xp" "=OW"		     ;Dummy these for the time being
TRANSKEY "^xn" "=OW"		     ;They should go up	and down
;
; Initial commands:
;   - set tabs stops at	8
;   - turn off auto indent
;   - set cursor to beginning of line
;
START "=TB8=NL=AI=LB"
;
; Leaving Editor:
;   - ring bell
;   - clear screen
;
EXIT "^G^Z"			     ;send message to terminal