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