home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
411b.lha
/
dme_1.42
/
support
/
macros.edrc
< prev
next >
Wrap
Text File
|
1990-09-08
|
3KB
|
113 lines
# MACROS FROM BRYCE
# Some people do not like the default cursor key mappings
# (see DME.DOC). Here is an example of remapping them.
map `c-up' `scrollup'
map `c-dow' `scrolldown'
map `s-up' `pageup'
map `s-dow' `pagedown'
map `s-lef' `wleft'
map `s-rig' `wright'
map `a-dow' `bottom'
map `a-up' `top'
map `a-rig' `last'
map `a-lef' `first'
# MACROS FROM KIM AND FRIENDS
insertmode on
savetabs on
tabstop 8
pageset 96
# spltjoin
map `f1' `ifelse r `join del' split'
# sos lineadd
map `f2' `ifelse b `last split down first deline' `last split down first''
# fffile
map `f3' `ifelse m `saveold quit' `quit''
map `f4' `join'
map `f5' `escimm `insfile ''
map `f6' `escimm `insfile df1:readme.list''
map `f7' `pageup screentop first'
map `f8' `pagedown screentop first'
map `f9' `insertmode toggle'
map `f10' `ifelse t bottom top'
map `s-f7' `top screentop first'
map `s-f8' `bottom screentop first'
# capitalize word
map `nk0' `wleft if c=34 right if c=39 right if c=96 right if cl `tlate -32' while ca right'
# Uncapitalize word
map `s-nk0' `wleft if c=34 right if c=39 right if c=96 right if cu `tlate +32' while ca right'
map `nk3' `ifelse m `saveold quit' `quit''
# save current line in ram file
map `nk4' `unblock block block bsave ram:dmesave deline'
# get line from ram file (works across edit files
map `nk5' `insfile ram:dmesave down'
# move current line up 1 line within the file
map `nk7' `ifelse t `right left' `unblock block block up bmove unblock' '
# move current line down 1 line within the file
map `nk8' `down unblock block block up bmove unblock down'
map c-k `remeol'
map `c-s' `escimm `find ''
# delete with end-of-line join and handling of DME bug with join at the bottom of the file
map del `ifelse !r del `if !b `down ifelse b `settoggle 1' `resettoggle 1' up join if 1 down'''
# return which handles DME bug of adding 2 lines at the end of a file
map return `ifelse b `split down first down deline' `split down first''
map `s- ' `` ''
# backspace with end-of-line join and handling of DME bug with join at the bottom of the file
map `bs' `ifelse !l bs `ifelse b `settoggle 1' `resettoggle 1' up last join if 1 down del''
map `tab' `tab'
map `s-tab' `backtab'
map `help' `newwindow newfile df1:s/dme.help'
# make current character upper case and move the cursor right one character
map `nk-' `if cl `tlate -32' right'
# MACROS FROM STEVEN SWEETING
savetabs on
map return `ifelse r `return insline up firstnb down' `split first down''
map backspace `ifelse l `up repeat cright right join if c=32 del' `back''
map delete `ifelse r `join if c=32 del' `del''
map left `ifelse l `up repeat cright right' `left''
map help `'
map A-c `saveold execute `run make' iconify'
map sA-c `saveold execute `run make -f SRC:makefile' iconify'
map A-p `escimm `Press [RETURN] to Print, [ESC] to stop' saveas `PRT:''
map A-s `bsave vd0:tmp'
map A-l `insfile vd0:tmp'
map A-n `execute `newcli''
map c-k `ifelse r `join first' `remeol''
map c-right wright
map c-left wleft
map `sc-/' `escimm `findr ''
map `sc-n' `nextr'
map `sc-p' `prevr'
map `sL-lmb' `tomouse firstnb repeat tr `` '''
map `sR-rmb' `tomouse firstnb repeat tl bs'