home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / AUROR21A.ZIP / AUKBD.AML < prev    next >
Text File  |  1995-09-01  |  20KB  |  489 lines

  1.  
  2. // -------------------------------------------------------------------
  3. // The Aurora Editor v2.1
  4. // Copyright 1993-1995 nuText Systems. All Rights Reserved Worldwide.
  5. //
  6. // Aurora Keyboard definitions (included by MAIN.AML)
  7. //
  8. // If you have made any changes, save this file and select 'Recompile
  9. // the Editor' from the Set menu. Exit and re-enter the editor for
  10. // your changes to take effect.
  11. // -------------------------------------------------------------------
  12.  
  13. // -------------------------------------------------------------------
  14. //  Edit and File Manager windows
  15. // -------------------------------------------------------------------
  16.  
  17.   object  edit_fmgr
  18.  
  19.   // Controls
  20.   function  '≡'                                // close window
  21.     close
  22.   end
  23.  
  24.   // Menu activation
  25.   key  <esc>           gotobar                 // to last menu bar item
  26.   key  <f10>           gotobar                 // to last menu bar item
  27.   key  <alt f10>       gotomenu                // goto last pull-down menu
  28.   key  <f1>            gotomenu "help"         // to help menu
  29.   key  <alt t>         gotobar2                // to last toolbar/drive item
  30.  
  31.   // Scroll
  32.   key  <pgdn>          pagedown                // scroll down
  33.   key  <pgup>          pageup                  // scroll up
  34.   key  <ctrl home>     row (getviewtop)        // to page top
  35.   key  <ctrl end>      row (getviewbot)        // to page bottom
  36.   key  <ctrl pgup>     row 1                   // to file top
  37.   key  <ctrl pgdn>     row (getlines)          // to file bottom
  38.   key  <center>        adjustrow               // center cursor
  39.   key  <ctrl f9>       adjustrow 1             // scroll to page top
  40.   key  <ctrl f10>      adjustrow (getviewrows) // scroll to page bottom
  41.   key  <ctrl up>       rollrow -1              // scroll up one line
  42.   key  <ctrl down>     rollrow  1              // scroll down one line
  43.   key  <ctrl ->        lastpos                 // to last cursor position
  44.  
  45.   // File
  46.   key  <ctrl n>        opennew                 // new edit window
  47.   key  <alt e>         askopen                 // open prompt
  48.   key  <alt z>         openlast                // open last window
  49.   key  <alt ->         filelist                // file list
  50.   key  <alt q>         close                   // close window
  51.   key  <alt x>         closeall                // close all windows
  52.   key  <shift f1>      quickref 'qw'           // quick function reference
  53.   key  <shift f2>      quickref 'fw'           // function reference
  54.  
  55.   // Window
  56.   key  <alt w>         winlist                 // window list
  57.   key  <ctrl z>        maximize                // maximize window
  58.   key  <ctrl a>        nextwindow              // next window
  59.   key  <f12>           prevwindow              // prev window
  60.   key  <shift f3>      tile 'v'                // tile vertical
  61.   key  <shift f4>      tile 'h'                // tile horizontal
  62.   key  <shift f5>      cascade                 // cascade
  63.   key  <ctrl k><q>     close                   // close window
  64.  
  65.   // Search
  66.   key  <ctrl s>        askscan                 // file scan prompt
  67.   key  <ctrl b>        gotomark 't'            // find top of block
  68.   key  <ctrl 6>        cyclebook               // cycle through bookmarks
  69.  
  70.   // Print
  71.   key  <ctrl p>        print                   // print
  72.   key  <alt p>         print 'b'               // print block
  73.  
  74.   // Set
  75.   key  <ctrl f1>       togglemode              // toggle video mode
  76.   key  <alt f2>        recompile               // recompile the editor
  77.  
  78.   // Macro
  79.   key  <ctrl v>        askeval                 // macro command prompt
  80.   key  <alt f9>        askrun                  // DOS command prompt
  81.   key  <alt f8>        askruncap               // DOS capture prompt
  82.   key  <f9>            shell                   // exit to DOS
  83.   key  <shift f12>     pickmacro               // macro picklist
  84.   key  <ctrl f12>      runmac "maclist"        // macro menu
  85.  
  86.   // Other
  87.   key  <alt f5>        opencfg "tran"          // edit translation table
  88.  
  89.   // undefined or unnamed keys
  90.   key <otherkey> (keycode)
  91.     say (getkeyname (keycode)) + " not defined"
  92.   end
  93.  
  94.  
  95. // -------------------------------------------------------------------
  96. //  Prompts and Edit windows
  97. // -------------------------------------------------------------------
  98.  
  99.   object  prompt
  100.  
  101.   // Controls
  102.   function  '≡'        close                   // close window
  103.   end
  104.  
  105.   function  '*'        enter                   // simulate <enter>
  106.   end                                          //  (2-line box only)
  107.  
  108.   // Cursor
  109.   key  <left>          left                    // move cursor left
  110.   key  <right>         right                   // move cursor right
  111.   key  <home>          col 1                   // to column one
  112.   key  <end>           col  getlinelen + 1     // to end of line
  113.  
  114.   // Cursor + CUA-marking
  115.   key  <shift left>    left
  116.                        smark
  117.   key  <shift right>   right
  118.                        smark
  119.   key  <shift home>    col 1
  120.                        smark
  121.   key  <shift end>     col getlinelen + 1
  122.                        smark
  123.  
  124.   // Scroll
  125.   key  <f7>            rollcol -(getviewcols - 1)   // page left
  126.   key  <f8>            rollcol   getviewcols - 1    // page right
  127.  
  128.   // Editing
  129.   key  <ins>           setting 'I' TOGGLE      // toggle insert mode
  130.   key  <del>           delchar                 // delete character
  131.  
  132.   key  <backspace>     backsp                  // delete left character
  133.   key  <f6>            delchar (getlinelen)    // erase to end of line
  134.   key  <alt f6>                                // erase to beginning of line
  135.     ovltext (copystr ' ' (getcol)) 1
  136.   end
  137.   key  <ctrl [>        literal                 // enter literal character
  138.   key  <alt =>         asciilist               // display ascii chart
  139.  
  140.   // Block
  141.   key  <alt a>         markchar                // mark character
  142.   key  <alt b>         markcolumn              // mark column
  143.   key  <alt 1>         markword                // mark word
  144.   key  <alt 2>         markeol                 // mark to end of line
  145.   key  <alt u>         destroymark             // unmark
  146.  
  147.   // copy block to prompt
  148.   key  <alt c>
  149.     instext (getmarktext)
  150.     col  getlinelen + 1
  151.   end
  152.  
  153.   // paste from clipboard to prompt
  154.   key  <grey*>
  155.     oldmark = usemark _ClipName
  156.     instext (getmarktext)
  157.     usemark oldmark
  158.     col  getlinelen + 1
  159.   end
  160.   key  <shift ins>     call <grey*>
  161.  
  162.   // copy from prompt to clipboard
  163.   key  <grey+>         copy
  164.   key  <ctrl ins>      copy
  165.  
  166.   // Prompt history
  167.   key  <up>            prevhist                // retrieve prev prompt
  168.   key  <down>          nexthist                // retrieve next prompt
  169.   key  <pgup>          askhistory              // history popup menu
  170.   key  <pgdn>          askhistory              // history popup menu
  171.  
  172.   // Exit
  173.   key  <esc>           close                   // quit prompt
  174.   key  <alt q>         close                   // quit prompt
  175.  
  176.   // non-function keys
  177.   key  <char> (character)                      // typeable keys
  178.     write character
  179.   end
  180.  
  181.   // filename completion
  182.   key  <ctrl tab>      askcomplete             // filename completion
  183.   key  <tab>           askcomplete             // filename completion
  184.   end
  185.  
  186.  
  187. // -------------------------------------------------------------------
  188. //  Edit windows
  189. // -------------------------------------------------------------------
  190.  
  191.   object  edit
  192.  
  193.   // Controls
  194.   function  '≡'
  195.     close                                      // close window
  196.   end
  197.  
  198.   // Menu
  199.   key  <esc>           gotobar                 // to last menu bar item
  200.  
  201.   // Cursor
  202.   key  <up>            up                      // move cursor up
  203.   key  <down>          down                    // move cursor down
  204.  
  205.   // Cursor + CUA-marking
  206.   key  <shift up>      up
  207.                        smark
  208.   key  <shift down>    down
  209.                        smark
  210.  
  211.   key  <enter>         enter                   // enter key
  212.   key  <greyenter>     enter                   // keypad enter key
  213.   key  <del>           delchar2                // delete character
  214.   key  <backspace>     backsp                  // delete left char
  215.   key  <ctrl t>        delword _CSet           // delete right word
  216.   key  <tab>           tabright                // tab right
  217.   key  <shift tab>     tableft                 // tab left
  218.  
  219.   key  <ctrl left>     prevword                // find left word
  220.                        smark                   // cua marking
  221.   key  <ctrl right>    nextword                // find right word
  222.                        smark                   // cua marking
  223.  
  224.   // Scroll
  225.   key  <pgdn>          pagedown                // page down
  226.   key  <pgup>          pageup                  // page up
  227.  
  228.   // Scroll + CUA-marking
  229.   key  <shift pgdn>    pagedown
  230.                        smark
  231.   key  <shift pgup>    pageup
  232.                        smark
  233.  
  234.   key  <ctrl home>     row (getviewtop)        // to page top
  235.                        smark
  236.   key  <ctrl end>      row (getviewbot)        // to page bottom
  237.                        smark
  238.  
  239.   key  <ctrl pgup>     row 1                   // to file top
  240.                        smark
  241.   key  <ctrl pgdn>     row (getlines)          // to file bottom
  242.                        smark
  243.  
  244.   key  <ctrl up>       rollrow -1              // scroll up one line
  245.                        smark
  246.   key  <ctrl down>     rollrow  1              // scroll down one line
  247.                        smark
  248.  
  249.   // File
  250.   key  <alt i>         askinsert               // open and insert prompt
  251.   key  <ctrl ]>        openword                // open file at cursor
  252.   key  <alt n>         askname                 // rename prompt
  253.   key  <f3>            save                    // save file
  254.   key  <ctrl del>      nextfile                // next file
  255.   key  <ctrl ins>      prevfile                // prev file
  256.   key  <f4>            open "*.*"              // display file manager
  257.   key  <alt q>         close                   // close file/window
  258.   key  <ctrl x>        close 's'               // save & close file/window
  259.  
  260.   // Window
  261.   key  <ctrl c>        copywin                 // copy window
  262.   key  <alt h>         splitwin 'h'            // split window horizontal
  263.   key  <alt v>         splitwin 'v'            // split window vertical
  264.   key  <ctrl f8>       toolbar                 // display tool bar
  265.  
  266.   // Block
  267.   key  <alt l>         markline                // mark line
  268.   key  <alt 3>         markpara "tb"           // mark paragraph
  269.   key  <alt c>         copyblock2              // copy block
  270.   key  <alt o>         copyblockover           // overlay block
  271.   key  <alt m>         moveblock2              // move block
  272.   key  <ctrl m>        moveblockover           // move block over
  273.   key  <alt d>         deleteblock2            // delete block
  274.   key  <shift f7>      shiftblock -1           // unindent block
  275.   key  <shift f8>      shiftblock  1           // indent block
  276.   key  <ctrl k><f>     fillblock2              // fill block with string
  277.   key  <alt r>         formatblock2            // reformat block
  278.   key  <alt y>         formatblock2 "rj"       // reformat & right just block
  279.   key  <ctrl k><s>     saveblock2              // save block
  280.   key  <ctrl k><o>     sortblock2              // sort block
  281.   key  <ctrl k><u>     caseblock               // change block to uppercase
  282.   key  <shift f9>      quote                   // quote a block
  283.   key  <ctrl k><c>     justblock2 'c'          // center a block
  284.  
  285.   // Search
  286.   key  <f5>            askfind                 // find prompt
  287.   key  <ctrl f>        askfind                 // find prompt
  288.   key  <ctrl g>        askrepl                 // replace prompt
  289.   key  <ctrl i>        isearch                 // incremental search
  290.   key  <ctrl h>        askfindo                // find occurrences
  291.  
  292.   key  <ctrl l>        findlast                // do last find/replace
  293.   key  <ctrl 2>        quickbook               // set quick bookmark
  294.   key  <ctrl j>        askrow                  // go to line prompt
  295.   key  <alt 7>         search2 "f/f"           // go to next fold
  296.   key  <alt f3>        gotomatch2              // find matching char
  297.   key  <alt f7>        gotoerror               // go to compiler error
  298.  
  299.   // Fold
  300.   key  <alt 8>         foldline                // fold next line
  301.   key  <alt 9>         foldline 'u'            // unfold next line
  302.   key  <alt g>         destroyfold2            // destroy closed/open fold
  303.   key  <alt f>         foldblock2              // fold block
  304.   key  <alt \>                                 // open or close fold
  305.     if fold? then
  306.        openfold
  307.     else
  308.        closefold
  309.     end
  310.   end
  311.   key  <alt 0>         foldall 'ds'            // destroy all folds
  312.   key  <alt [>         foldall 'os'            // open all folds
  313.   key  <alt ]>         foldall 'cs'            // close all folds
  314.  
  315.   // Edit
  316.   key  <ctrl u>        undo                    // undo last change
  317.   key  <ctrl y>        redo                    // redo last change
  318.   key  <f2>            insabove                // insert line above
  319.   key  <ctrl enter>    insline2                // insert line
  320.   key  <ctrl backspace> delline                // delete line
  321.   key  <alt s>         splitline2              // split line
  322.   key  <alt j>         joinline                // join line
  323.   key  <alt 4>         insline (gettext)       // duplicate line
  324.   key  <alt 5>         swapline                // swap line
  325.   key  <alt 6>         centerline              // center line
  326.   key  <alt f1>        commentline             // comment/uncomment line
  327.   key  <ctrl k><t>     timestamp               // date/time stamp
  328.   key  <ctrl k><x>     tabfile                 // expand tabs
  329.   key  <ctrl \>        hiliteword              // highlight words
  330.  
  331.   // Clipboard
  332.   key  <grey->         cut                     // cut
  333.   key  <shift del>     cut                     // cut
  334.   key  <ctrl grey->    cut 'a'                 // cut append
  335.   key  <grey+>         copy                    // copy
  336.   key  <ctrl grey+>    copy 'a'                // copy append
  337.   key  <grey*>         paste                   // paste
  338.   key  <shift ins>     paste                   // paste
  339.   key  <ctrl grey*>    paste 'o'               // paste over
  340.   key  <ctrl grey/>    clear                   // clear clipboard
  341.  
  342.   // Set
  343.   key  <ctrl w>        setting 'L' TOGGLE      // live word wrap toggle
  344.   key  <ctrl d>        setting 'D' TOGGLE      // line draw toggle
  345.   key  <alt f4>        setting 'T' TOGGLE      // text translate toggle
  346.  
  347.   // Macro
  348.   key  <shift f10>     compilemacro2 (getbufname)  // compile current file
  349.   key  <shift f11>     runmacro2 (getbufname)      // run current file
  350.  
  351.   // non-function (typeable) keys
  352.   key  <char> (character)                      // typeable keys
  353.     write character
  354.   end
  355.  
  356.   // Other
  357.   key  <ctrl q><q>     askrepkey               // repeat entered keys
  358.  
  359.   // invoke a spell checker from within an edit window
  360.   // (replace 'jspell' with your favorite spell checker)
  361.   key  <f11>
  362.     save                                       // save the current file
  363.     run  "jspell " + getbufname  "ck"          // call spellchecker
  364.     reopen                                     // reopen current file
  365.   end
  366.  
  367. // -------------------------------------------------------------------
  368. //  File Manager windows
  369. // -------------------------------------------------------------------
  370.  
  371.   object  fmgr
  372.  
  373.   // Menu activation
  374.   key  <tab>           gotobar2                // to drive menu bar
  375.  
  376.   // Cursor
  377.   key  <left>          rollcol -1              // scroll left one column
  378.   key  <right>         rollcol  1              // scroll right one column
  379.   key  <home>          col 1                   // scroll to column one
  380.  
  381.   key  <up>            up                      // move cursor up
  382.   key  <down>          down                    // move cursor down
  383.  
  384.   key  <shift up>      fmark                   // mark files
  385.                        up
  386.   key  <shift down>    fmark                   // mark files
  387.                        down
  388.  
  389.  
  390.   // file manager commands (single character command codes)
  391.   key  <char> (c)
  392.  
  393.     // toggle file mark
  394.     if c == ' ' then
  395.       fmark
  396.  
  397.     // <shift-character> commands
  398.     elseif shiftkey? then
  399.       case  locase c
  400.         when 'o'     fopen 'o'                   // open file/directory
  401.         when 'e'     fopen 'e'                   // open file/directory
  402.         when 'z'     fopen "ze"                  // open maximized
  403.         when 'b'     fopen 'b'                   // open binary file
  404.         when 'y'     fopen "be"                  // open binary in one window
  405.         when 'k'     openkey2 (getffile)         // open key macro file
  406.         when 'm'     fmove                       // move file
  407.         when 'c'     fcopy                       // copy file
  408.         when 'd'     fdelete                     // delete file
  409.         when 'n'     frename                     // rename file
  410.         when 'r'     frun 'c'                    // run program/batch file
  411.         when 'p'     fprint                      // print file
  412.         when 'a'     fattr                       // change file attributes
  413.         when 't'     ftouch                      // touch file
  414.  
  415.         // spell checker
  416.         when 's'     run "jspell " + getffile  "ck"
  417.  
  418.         // unarchive .ZIP or .LZH files
  419.         when 'u'
  420.           f = getffile
  421.           run (if? (pos ".lzh" f 'i') "lha e " "pkunzip ") + f  "ck"
  422.           reopen
  423.  
  424.         // view .ZIP or .LZH archives
  425.         when 'v'
  426.           f = getffile
  427.           runcap (if? (pos ".lzh" f 'i') "lha v " "pkunzip -v ") + f
  428.       end
  429.  
  430.     // hotkey to files
  431.     else
  432.       onhotkey c
  433.     end
  434.  
  435.   key  <backspace>     onhotkey '\x08'         // undo hotkey
  436.  
  437.   // File
  438.   key  <ctrl backspace>   fup                  // parent directory
  439.  
  440.   // Mark
  441.   key  <alt m>         fmark "ma"              // mark all files
  442.   key  <alt u>         fmark "ua"              // unmark all
  443.  
  444.   // Command
  445.   key  <enter>         fopen '1'               // open file (one only)
  446.   key  <ctrl enter>    fopen 'q'               // open file (close fmgr)
  447.   key  <del>           fdelete                 // delete file
  448.  
  449.   // Sort
  450.   key  <alt n>         fsort 'n'               // sort by name
  451.   key  <alt s>         fsort 's'               // sort by size
  452.   key  <alt d>         fsort 'd'               // sort by date/time
  453.   key  <alt o>         fsort 'o'               // no sort (DOS order)
  454.  
  455.   // Print
  456.   key  <ctrl p>        print                   // print fmgr contents
  457.   end
  458.  
  459.  
  460. // -------------------------------------------------------------------
  461. //  Movable/Sizable windows
  462. // -------------------------------------------------------------------
  463.  
  464.   object  win
  465.  
  466.   key  <ctrl f5>       sizekey                 // move/size with kbd
  467.   key  <ctrl f6>       pankey                  // pan video with kbd
  468.  
  469.   key  <alt ins>       sizewin -2 -1 -2 -1 2   // move window northwest
  470.   key  <alt del>       sizewin  2  1  2  1 2   // move window southeast
  471.   end
  472.  
  473.  
  474. // -------------------------------------------------------------------
  475. //  All windows
  476. // -------------------------------------------------------------------
  477.  
  478.   object  mon
  479.  
  480.   // key macros
  481.   key  <ctrl r>        record                  // toggle record setting
  482.   key  <ctrl e>        play                    // play scrap key macro
  483.  
  484.   // define multi-key prefixes
  485.   key  <ctrl k>        prefix <ctrl k>         // define <ctrl k> prefix
  486.   key  <ctrl o>        prefix <ctrl o>         // define <ctrl o> prefix
  487.   key  <ctrl q>        prefix <ctrl q>         // define <ctrl q> prefix
  488.  
  489.