home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 103.lha / DME_1.29 / macros.edrc < prev    next >
Encoding:
Text File  |  1980-07-10  |  2.4 KB  |  71 lines
  1.  
  2. #   MACROS FROM BRYCE
  3.  
  4.  
  5. #   Some people do not like the default cursor key mappings
  6. #   (see DME.DOC).  Here is an example of remapping them.
  7.  
  8. map `c-up'  `scrollup'
  9. map `c-dow' `scrolldown'
  10.  
  11. map `s-up'  `pageup'
  12. map `s-dow' `pagedown'
  13. map `s-lef' `wleft'
  14. map `s-rig' `wright'
  15.  
  16. map `a-dow' `bottom'
  17. map `a-up'  `top'
  18. map `a-rig' `last'
  19. map `a-lef' `first'
  20.  
  21.  
  22. #       MACROS FROM KIM AND FRIENDS
  23. insertmode on
  24. savetabs on
  25. tabstop 8
  26. pageset 96
  27. # spltjoin
  28.   map `f1'  `ifelse r `join del' split'
  29. # sos lineadd
  30.   map `f2'  `ifelse b `last split down first deline' `last split down first''
  31. # fffile
  32.   map `f3'  `ifelse m `saveold quit' `quit''
  33.   map `f4'  `join'
  34.   map `f5'  `escimm `insfile ''
  35.   map `f6'  `escimm `insfile df1:readme.list''
  36.   map `f7'  `pageup screentop first'
  37.   map `f8'  `pagedown screentop first'
  38.   map `f9'  `insertmode toggle'
  39.   map `f10' `ifelse t bottom top'
  40.   map `s-f7'  `top screentop first'
  41.   map `s-f8'  `bottom screentop first'
  42. # capitalize word
  43.   map `nk0' `wleft if c=34 right if c=39 right if c=96 right if cl `tlate -32' while ca right'
  44. # Uncapitalize word
  45.   map `s-nk0' `wleft if c=34 right if c=39 right if c=96 right if cu `tlate +32' while ca right'
  46.   map `nk3' `ifelse m `saveold quit' `quit''
  47. # save current line in ram file
  48.   map `nk4' `unblock block block bsave ram:dmesave deline'
  49. # get line from ram file (works across edit files
  50.   map `nk5' `insfile ram:dmesave down'
  51. # move current line up 1 line within the file
  52.   map `nk7' `ifelse t `right left' `unblock block block up bmove unblock' '
  53. # move current line down 1 line within the file
  54.   map `nk8' `down unblock block block up bmove unblock down'
  55.   map c-k `remeol'
  56.   map `c-s' `escimm `find ''
  57. # delete with end-of-line join and handling of DME bug with join at the bottom of the file
  58.   map del `ifelse !r del `if !b `down ifelse b `settoggle 1' `resettoggle 1' up join if 1 down'''
  59. # return which handles DME bug of adding 2 lines at the end of a file
  60.   map return `ifelse b `split down first down deline' `split down first''
  61.   map `s- ' `` ''
  62. # backspace with end-of-line join and handling of DME bug with join at the bottom of the file
  63.   map `bs' `ifelse !l bs `ifelse b `settoggle 1' `resettoggle 1' up last join if 1 down del''
  64.   map `tab' `tab'
  65.   map `s-tab' `backtab'
  66.   map `help'  `newwindow newfile df1:s/dme.help'
  67. # make current character upper case and move the cursor right one character
  68.   map `nk-' `if cl `tlate -32' right'
  69.  
  70.  
  71.