home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR8 / AUROR101.ZIP / AKBD.A < prev    next >
Text File  |  1993-08-30  |  16KB  |  379 lines
  1.  
  2. //┌────────────────────────────────────────────────────────────────────┐
  3. //│ The Aurora Editor v1.01 - Keyboard and Mouse definitions           │
  4. //│                                                                    │
  5. //│ Please keep a backup copy of this file.                            │
  6. //│                                                                    │
  7. //│ For a description of these keyboard and mouse definitions and how  │
  8. //│ to change them, select the "Key/Mouse/Menu Config" item from the   │
  9. //│ "Help" pull-down menu. Then then select "Defining the Keyboard"    │
  10. //│ from the submenu.                                                  │
  11. //│                                                                    │
  12. //│ If you have made any changes, save this file and select "Restore   │
  13. //│ Settings" from the "Set" pulldown menu. Exit and re-enter the      │
  14. //│ editor for your changes to take effect.                            │
  15. //│                                                                    │
  16. //│ Key prefixes used:                                                 │
  17. //│   "k_c_" =  <Ctrl> keys                                            │
  18. //│   "k_a_" =  <Alt> keys                                             │
  19. //│   "k_s_" =  <Shift> keys                                           │
  20. //│                                                                    │
  21. //└────────────────────────────────────────────────────────────────────┘
  22.  
  23.  
  24.   // edit and file manager windows
  25.   obj  edit-fmgr (
  26.  
  27.   fun
  28.  
  29.     // Controls
  30.     ≡            (quit %p)                   ,// close window
  31.  
  32.     // Menu activation
  33.     k_esc        (menb)                      ,// to last menu bar item
  34.     k_f10        (menb)                      ,// to last menu bar item
  35.     k_a_f10      (men)                       ,// last pull-down menu
  36.     k_f1         (menh)                      ,// help pull-down
  37.     k_a_t        (men2)                      ,// to last toolbar control
  38.  
  39.     // Scroll
  40.     k_c_home     (cptop)                     ,// to page top
  41.     k_c_end      (cpbot)                     ,// to page bottom
  42.     k_c_pgup     (cgoto @ 1)                 ,// to file top
  43.     k_c_pgdn     (cgoto @ (qtexend))         ,// to file bottom
  44.     k_pad5       (ladj @ -1)                 ,// center cursor
  45.     k_c_f9       (ladj @ 1)                  ,// scroll to page top
  46.     k_c_f10      (ladj @ (qwinp @ %y1d))     ,// scroll to page bottom
  47.     k_c_up       (scry -1)                   ,// scroll up one line
  48.     k_c_down     (scry  1)                   ,// scroll down one line
  49.     k_c_-        (clast)                     ,// to last cursor position
  50.  
  51.     // File
  52.     k_c_n        (newf)                      ,// new edit window
  53.     k_a_e        (askopen)                   ,// open prompt
  54.     k_a_z        (openlast)                  ,// open last window
  55.     //k_esc        (quit %p)                   ,// close window
  56.     k_a_q        (quit %p)                   ,// close window
  57.     k_a_x        (gquit %p)                  ,// close all windows
  58.     k_s_f1       (qref)                      ,// quick reference
  59.  
  60.     // Window
  61.     k_a_w        (wlis)                      ,// window list
  62.     k_c_z        (wmax)                      ,// maximize window
  63.     k_c_a        (wnex)                      ,// next window
  64.     k_s_f3       (wtilev)                    ,// tile vertical
  65.     k_s_f4       (wtileh)                    ,// tile horizontal
  66.     k_s_f5       (wcasc)                     ,// cascade
  67.  
  68.     k_c_ins      (winsizt -2 -1 -2 -1 2)     ,// move window southeast
  69.     k_c_del      (winsizt  2  1  2  1 2)     ,// move window northwest
  70.  
  71.     // Search
  72.     k_c_s        (askscan)                   ,// file scan prompt
  73.     k_c_b        (mloc @ %t)                 ,// find top of block
  74.     k_c_6        (bget)                      ,// to previous bookmark
  75.  
  76.     // Print
  77.     k_c_p        (print)                     ,// print
  78.     k_a_p        (print %m)                  ,// print block
  79.  
  80.     // Set
  81.     k_c_f1       (vfont %t)                  ,// toggle video mode
  82.     k_a_f2       (setres)                    ,// restore settings
  83.  
  84.     // Macro
  85.     k_c_v        (askmcmd)                   ,// macro command prompt
  86.     k_a_f9       (askoscmd %ck)              ,// DOS command prompt
  87.     k_a_f8       (askoscap)                  ,// DOS capture prompt
  88.     k_f9         (osshell)                   ,// exit to DOS
  89.  
  90.     // Mouse
  91.     m_r_down_client    (men)                 ,// last menu pull-down
  92.     m_l_dbclick_bkgnd  (wlis)                .// window list
  93.  
  94.   ).
  95.  
  96.  
  97.   // Prompts and Edit windows
  98.   obj  prompt (
  99.  
  100.   fun
  101.  
  102.     // Cursor
  103.     k_left       (left)                      ,// move cursor left
  104.     k_right      (right)                     ,// move cursor right
  105.     k_home       (chome)                     ,// to column one
  106.     k_end        (ceol)                      ,// to end of line
  107.  
  108.     // Scroll
  109.     k_f7         (scrx (- (xpagsiz)))        ,// page left
  110.     k_f8         (scrx (xpagsiz))            ,// page right
  111.  
  112.     // Editing
  113.     k_ins        (cmtog)                     ,// toggle insert mode
  114.     k_del        (delch)                     ,// delete character
  115.     k_backspace  (baksp)                     ,// delete left character
  116.     k_f6         (leol)                      ,// erase to end of line
  117.     k_a_f6       (leol %l)                   ,// erase to beginning of line
  118.     k_c_t        (wrddel CSet)               ,// delete right word
  119.     k_c_[        (lit)                       ,// enter literal character
  120.     k_a_=        (wasc)                      ,// display ascii chart
  121.  
  122.     // Block
  123.     k_a_a        (mset %s)                   ,// mark character
  124.     k_a_b        (mset %r)                   ,// mark column
  125.     k_a_1        (wrdmrk CSet)               ,// mark word
  126.     k_a_2        (meol)                      ,// mark to end of line
  127.     k_a_u        (mdes)                      ,// unmark
  128.     k_a_c        (mcpyp. ceol)               ,// copy block to prompt
  129.  
  130.     // Prompt history
  131.     k_up         (wrtv %p)                   ,// retrieve prev prompt
  132.     k_down       (wrtv %n)                   ,// retrieve next prompt
  133.  
  134.     // Exit
  135.     k_esc        (quit)                      ,// quit prompt
  136.     k_a_q        (quit)                      ,// quit prompt
  137.  
  138.  
  139.     // Mouse
  140.  
  141.     // mouse left button down                 // begin mouse mark
  142.     m_l_down_client (
  143.       arg  w x y r.
  144.       moubegmrk  x y MouMrkS.
  145.     ),
  146.  
  147.     // mouse move
  148.     m_move_client (                           // extend mouse mark
  149.       arg  x y r.
  150.       moumovmrk  x y.
  151.     ),
  152.  
  153.     // mouse left button up
  154.     m_l_up_client (                           // end mouse mark
  155.       arg  x y.
  156.       mouendmrk  x y
  157.     ).
  158.  
  159.   ).
  160.  
  161.  
  162.   // edit windows only
  163.   obj  edit (
  164.  
  165.   fun
  166.  
  167.     // tool bar
  168.     <≡>            (wtool)                   ,// close tool bar
  169.     <?>            (hlp 18 6 %f)             ,// tool bar help
  170.     <*>            (fmgr)                    ,// display file manager
  171.     </>            (wcopy)                   ,// copy window
  172.     <─>            (wspl %h)                 ,// split window horz
  173.     <|>            (wspl %v)                 ,// split window vert
  174.     <o>            (askopen)                 ,// open prompt
  175.     <s>            (save)                    ,// save file
  176.     <F>            (askfind)                 ,// find prompt
  177.     <f>            (finl)                    ,// do last find/replace
  178.     <r>            (mrfl %b)                 ,// reflow block
  179.     <«>            (undo)                    ,// undo last change
  180.     <»>            (undo %r)                 ,// redo last change
  181.     <>>            (mfld %f)                 ,// fold block
  182.     <<>            (lfld %u)                 ,// unfold line
  183.  
  184.     // Cursor
  185.     k_up           (up)                      ,// move cursor up
  186.     k_down         (down)                    ,// move cursor down
  187.     k_enter        (enteredit)               ,// enter key
  188.     k_tab          (ctab)                    ,// tab right
  189.     k_s_tab        (ctab %l)                 ,// tab left
  190.     k_c_right      (cwrd @  CSet)            ,// find right word
  191.     k_c_left       (cwrd %r CSet)            ,// find left word
  192.  
  193.     // File
  194.     k_a_i          (askopenins)              ,// open and insert prompt
  195.     k_c_]          (wrdlod CSetB)            ,// open file at cursor
  196.     k_a_n          (askname)                 ,// rename prompt
  197.     k_f3           (save)                    ,// save file
  198.     k_f4           (fmgr)                    ,// display file manager
  199.     k_c_x          (quit %f)                 ,// save file and close window
  200.  
  201.     // Window
  202.     k_c_c          (wcopy)                   ,// copy window
  203.     k_a_h          (wspl %h)                 ,// split window horizontal
  204.     k_a_v          (wspl %v)                 ,// split window vertical
  205.     k_c_f8         (wtool)                   ,// display tool bar
  206.     k_c_f7         (wsty)                    ,// change window style
  207.  
  208.     // Block
  209.     k_a_l          (mset %l)                 ,// mark line
  210.     k_a_3          (mpgh %tb)                ,// mark paragraph
  211.     k_a_c          (mcpy)                    ,// copy block
  212.     k_a_o          (mmov %o)                 ,// overlay block
  213.     k_a_m          (mmov)                    ,// move block
  214.     k_c_m          (mmov %of)                ,// move block over
  215.     k_a_d          (mdel)                    ,// delete block
  216.     k_s_f7         (mshf -1)                 ,// unindent block
  217.     k_s_f8         (mshf 1)                  ,// indent block
  218.     k_c_k+f        (askmfill)                ,// fill block prompt
  219.     k_a_r          (mrfl %b)                 ,// reflow block
  220.     k_a_y          (mrfl %br)                ,// reflow & right just block
  221.     k_c_k+s        (msave)                   ,// save block
  222.     k_c_k+o        (msrt)                    ,// sort block
  223.     k_c_k+u        (mcase %u)                ,// change block to uppercase
  224.     k_c_k+c        (mjust %c)                ,// center block
  225.  
  226.     // Search
  227.     k_f5           (askfind)                 ,// find prompt
  228.     k_c_f          (askfind)                 ,// find prompt
  229.     k_c_g          (askrpl)                  ,// replace prompt
  230.     k_c_l          (finl)                    ,// do last find/replace
  231.     k_c_2          (bset)                    ,// set quick bookmark
  232.     k_c_j          (askglin)                 ,// go to line prompt
  233.     k_a_7          (cfld)                    ,// go to next fold
  234.     k_a_f3         (finm)                    ,// find matching char
  235.     k_a_f7         (finc)                    ,// go to compiler error
  236.  
  237.     // Fold
  238.     k_a_8          (lfld)                    ,// fold next line
  239.     k_a_9          (lfld %s)                 ,// unfold next line
  240.     k_a_0          (mflda %ua)               ,// unfold all
  241.     k_a_f          (mfld %f)                 ,// fold block
  242.     k_a_g          (lfld %u)                 ,// unfold line
  243.  
  244.     // Edit
  245.     k_c_u          (undo)                    ,// undo last change
  246.     k_c_y          (undo %r)                 ,// redo last change
  247.     k_c_enter      (lins %a)                 ,// insert line
  248.     k_c_backspace  (ldel)                    ,// delete line
  249.     k_a_s          (lspl)                    ,// split line
  250.     k_a_j          (ljoin)                   ,// join line
  251.     k_a_4          (ldup)                    ,// duplicate line
  252.     k_a_5          (lswp)                    ,// swap line
  253.     k_a_6          (lcen)                    ,// center line
  254.     k_a_f1         (lcom)                    ,// comment/uncomment line
  255.     k_c_k+t        (stamp)                   ,// date/time stamp
  256.     k_c_k+x        (exptab)                  ,// expand tabs
  257.  
  258.     // Clipboard
  259.     k_grey-        (clpcpy %d)               ,// cut
  260.     k_c_grey-      (clpcpy %ad)              ,// cut append
  261.     k_grey+        (clpcpy)                  ,// copy
  262.     k_c_grey+      (clpcpy %a)               ,// copy append
  263.     k_grey*        (clppst)                  ,// paste
  264.     k_c_grey*      (clppst %o)               ,// paste over
  265.     k_c_grey/      (clpclr)                  ,// clear clipboard
  266.  
  267.     // Set
  268.     k_c_w          (wmwrap)                  ,// word wrap toggle
  269.     k_c_d          (wmdraw)                  ,// line draw toggle
  270.  
  271.  
  272.     // Mouse
  273.  
  274.     // double-click in client area
  275.     m_l_dbclick_client (                      // begin mouse mark (dbl-click)
  276.       arg  w x y r.
  277.       moubegmrk  x y MouMrkD %d.
  278.     ),
  279.  
  280.     // right button down
  281.     m_r_down_border (                         // display file manager
  282.       arg  w x y r.
  283.       if (eq r 11 12) (fmgr).
  284.     ).
  285.   ).
  286.  
  287.  
  288.   // file manager windows only
  289.   obj  fmgr (
  290.  
  291.   fun
  292.  
  293.     // Menu activation
  294.     k_tab          (men2)                    ,// to drive menu bar
  295.  
  296.     // Cursor
  297.     k_left         (scrx -1)                 ,// scroll left one column
  298.     k_right        (scrx  1)                 ,// scroll right one column
  299.     k_home         (cgoto 1)                 ,// scroll to column one
  300.     k_up           (up)                      ,// move cursor up
  301.     k_down         (down)                    ,// move cursor down
  302.  
  303.     // Commands (single character command codes)
  304.     k_chr (
  305.       arg  k c.
  306.       = %c (chc c %l).
  307.       if (eqi c %z %o)  (fopen c) (           // open file/directory
  308.       if (eqi c %b)  (fopen %b) (             // open binary file
  309.       if (eqi c %k)  (fopenk) (               // open key macro file
  310.       if (eqi c %m)  (fmov) (                 // move file
  311.       if (eqi c %c)  (fcpy) (                 // copy file
  312.       if (eqi c %d)  (fdel) (                 // delete file
  313.       if (eqi c %n)  (fren) (                 // rename file
  314.       if (eqi c %r)  (frun %c) (              // run program/batch file
  315.       if (eqi c %p)  (fprt) (                 // print file
  316.       if (eqi c %a)  (fatt) (                 // change file attributes
  317.       if (eqi c %t)  (ftch) (                 // touch file
  318.       if (eqi c " ") (fmtog) (                // mark/unmark file
  319.       if (eqi c %u)  (                        // pkunzip
  320.         os (cat %pkunzip " " (dn)) %ck.
  321.         refresh
  322.       ) (
  323.       ))))))))))))).
  324.     ),
  325.  
  326.     // File
  327.     k_c_backspace  (fpar)                    ,// parent directory
  328.  
  329.     // Mark
  330.     k_a_m          (fmrk)                    ,// mark all files
  331.     k_a_u          (fumrk)                   ,// unmark all
  332.  
  333.     // Command
  334.     k_enter        (fopen %1)                ,// open file (one only)
  335.     k_c_enter      (fopen %q)                ,// open file (close fmgr)
  336.     k_del          (fdel)                    ,// delete file
  337.  
  338.     // Sort
  339.     k_a_n          (fsrt %n)                 ,// sort by name
  340.     k_a_s          (fsrt %s)                 ,// sort by size
  341.     k_a_d          (fsrt %d)                 ,// sort by date/time
  342.     k_a_o          (fsrt %o)                 ,// no sort (DOS order)
  343.  
  344.     // Print
  345.     k_c_p          (print %d)                ,// print fmgr contents
  346.  
  347.     m_l_dbclick_client (                      // double-click to open
  348.       fopen %1
  349.     ).
  350.  
  351.   ).
  352.  
  353.  
  354.   // movable/sizable windows
  355.   obj  win (
  356.  
  357.   fun
  358.     k_c_f5         (wkey)                    ,// move/size windows
  359.     k_c_f6         (wkey %p)                 .// pan video background
  360.  
  361.   ).
  362.  
  363.  
  364.   // all windows
  365.   obj  mon (
  366.  
  367.   fun
  368.     k_c_r          (krec)                    ,// record key macro toggle
  369.     k_c_e          (kplay)                   ,// play scrap key macro
  370.     k_c_i          (kdel)                    ,// erase scrap key macro
  371.  
  372.     // define compound key prefixes
  373.     k_c_k          (keyx %k_c_k)             ,// define <Ctrl-K> prefix
  374.     k_c_o          (keyx %k_c_o)             ,// define <Ctrl-O> prefix
  375.     k_c_q          (keyx %k_c_q)             .// define <Ctrl-Q> prefix
  376.  
  377.   ).
  378.  
  379.