home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / text / jed / macros / jed-startup < prev    next >
Text File  |  1995-02-27  |  4KB  |  120 lines
  1.  
  2. ; JED-STARTUP
  3. ;
  4. ; 15-Jan-93
  5.  
  6. (addsym
  7.     `STF_GCOM' 1 2
  8.     `STF_GVAR' 2 2
  9.     `STF_LCOM' 3 2
  10.     `STF_LVAR' 4 2
  11.  
  12.     `VTF_NONE' 0 2
  13.     `VTF_STR'  1 2
  14.     `VTF_NUM'  2 2
  15. )
  16.  
  17. (addsym `macro' {
  18.     (addsym (arg 1 `s') (arg 2 `s') STF_GCOM)
  19. } STF_GCOM)
  20.  
  21. (macro `local' {
  22.     (addsym `__i' 0 STF_LVAR)
  23.     (while {(>= (- nargs __i) 2)} {
  24.     (addsym (arg (+ __i 1) `s') (arg (+ __i 2) `e') STF_LVAR)
  25.     (export (arg (+ __i 1) `s') 2)
  26.     (= `__i' (+ __i 2))
  27.     })
  28. })
  29.  
  30. (macro `global' {
  31.     (local `__i' 0)
  32.     (while {(>= (- nargs __i) 2)} {
  33.     (addsym (arg (+ __i 1) `s') (arg (+ __i 2) `e') STF_GVAR)
  34.     (= `__i' (+ __i 2))
  35.     })
  36. })
  37.  
  38. ; Lots of keybindings.
  39. (bind
  40.     `esc'               { (cli) }
  41.     `help'              { (if (info `asleep') {(unsleep)} {(sleep)}) }
  42.     `control \\'        { (close) }
  43.     `control tab'       { (insert `a' ~\t) }
  44.     `shift tab'         { (move `lt' 1) }
  45.     `tab'               { (move `rt' 1) }
  46.     `return'            { (split) }
  47.     `backspace'         { (delete `p') }
  48.     `del'               { (delete `c') }
  49.     `shift backspace'   { (delete `sl') }
  50.     `shift del'         { (delete `el') }
  51.     `control del'       { (delete `l') }
  52.     `control backspace' { (delete `w') }
  53.  
  54.     `control b'         { (block `t') }
  55.     `alt b'             { (block `s') }
  56.     `alt B'             { (block `e') }
  57.     `control alt b'     { (block `k') }
  58.     `control i'         { (insert `b') }
  59.     `control z'         { (delete `b') }
  60.     `control x'         { (cut `b' 0) }
  61.     `control c'         { (copy `b' 0) }
  62.     `control v'         { (insert `cb' 0) }
  63.     `control q'         { (cut `el' -1) }
  64.     `control y'         { (cut `l' -1) }
  65.     `control u'         { (insert `cb' -1) }
  66.  
  67.     `control l'         { (undo `l') }
  68.     `control L'         { (undo `L') }
  69.  
  70.     `control o'         { (openfile (getstr `file> ')) }
  71.     `alt control o'     { (openfile (freq `r' `file...' (info `fullname'))) }
  72.     `control I'         { (insert `f' (getstr `file> ')) }
  73.     `alt control I'     { (insert `f' (freq `r' `include file...' (info `dirname'))) }
  74.     `control O'         { (newfile (getstr `new file> ')) }
  75.     `alt control O'     { (newfile (freq `r' `new file...' (info `dirname'))) }
  76.     `control n'         { (newview) }
  77.     `control W'         { (savefileas (getstr `file> ')) }
  78.     `alt control W'     { (savefileas (freq `w' `save as...' (info `fullname'))) }
  79.     `control w'         { (savefile) }
  80.     `control N'         { (rename (getstr `new name> ')) }
  81.     `control d'         { (cd (getstr `cd> ')) }
  82.     `control k'         { (clear) }
  83.  
  84.     `control F'         { (if (find `s' (getstr `find> ')) {(find `n')}) }
  85.     `control f'         { (find `n') }
  86.     `control alt f'     { (find `p') }
  87.     `control R'         { (replace `s' (getstr `replace> ')) }
  88.     `control r'         { (if (replace `r') {(find `n')}) }
  89.     `control g'         { (getref) }
  90.     `control G'         { (getref (getstr `reference> ')) }
  91.     `control h'         { (move `mb') }
  92.     `control j'         { (move `ln' (getnum `line> ')) }
  93.  
  94.     `control .'         { (nextwind `a') }
  95.     `control ,'         { (prevwind `a') }
  96.  
  97.     `control s'         { (script `x' (getstr `script file> ')) }
  98.     `alt control s'     { (script `l') }
  99.     `control S'         { (script `b') }
  100.     `alt control S'     { (script `f') }
  101.  
  102.     `f1'                { (move `bm' 1) }
  103.     `f2'                { (move `bm' 2) }
  104.     `f3'                { (move `bm' 3) }
  105.     `f4'                { (move `am') }
  106.     `shift f1'          { (move `sm' 1) }
  107.     `shift f2'          { (move `sm' 2) }
  108.     `shift f3'          { (move `sm' 3) }
  109.  
  110.     `alt d'             { (insert `s' (info `date')) }
  111.     `control e'         { (system (getstr `system> ')) }
  112. )
  113.  
  114. ; Create the menus, comment out the next line if you don't want menus.
  115. (setmenu `s:jed/jed-menus')
  116.  
  117. ; Path for references.
  118. (addpath `')
  119.  
  120.