home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 171.lha / DME_v1.30 / macros.edr < prev    next >
Text File  |  1988-04-28  |  3KB  |  113 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. #    MACROS FROM STEVEN SWEETING
  72.  
  73. savetabs on
  74.  
  75. map return `ifelse r `return insline up firstnb down' `split first down''
  76.  
  77. map backspace `ifelse l `up repeat cright right join if c=32 del' `back''
  78.  
  79. map delete `ifelse r `join if c=32 del' `del''
  80.  
  81. map left `ifelse l `up repeat cright right' `left''
  82.  
  83. map help `'
  84.  
  85. map A-c `saveold execute `run make' iconify'
  86. map sA-c `saveold execute `run make -f SRC:makefile' iconify'
  87.  
  88. map A-p `escimm `Press [RETURN] to Print, [ESC] to stop' saveas `PRT:''
  89.  
  90. map A-s `bsave vd0:tmp'
  91. map A-l `insfile vd0:tmp'
  92.  
  93. map A-n `execute `newcli''
  94.  
  95. map c-k `ifelse r `join first' `remeol''
  96.  
  97. map c-right wright
  98.  
  99. map c-left  wleft
  100.  
  101. map `sc-/' `escimm `findr ''
  102.  
  103. map `sc-n' `nextr'
  104.  
  105. map `sc-p' `prevr'
  106.  
  107. map `sL-lmb' `tomouse firstnb repeat tr `` '''
  108.  
  109. map `sR-rmb' `tomouse firstnb repeat tl bs'
  110.  
  111.  
  112.  
  113.