home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / DOS / TEKST / AURORA2 / MACLIST.AML < prev    next >
Text File  |  1995-04-28  |  4KB  |  105 lines
  1.  
  2. /* ------------------------------------------------------------------ */
  3. /* Macro:        MACLIST.AML                                          */
  4. /* Written by:   nuText Systems                                       */
  5. /*                                                                    */
  6. /* Description:  This macro displays a scrollable list of macros,     */
  7. /*               showing the macro name and description for each      */
  8. /*               macro in the list. Selecting a macro from the list   */
  9. /*               will run the macro.                                  */
  10. /*                                                                    */
  11. /* Usage:        Select the 'Macro List' item from the Macro menu.    */
  12. /*               If you use this macro regularly, assign it to a key  */
  13. /*               in the 'edit_fmgr' object. For example:              */
  14. /*                                                                    */
  15. /*                 object edit_fmgr                                   */
  16. /*                                                                    */
  17. /*                 key <shift f12>                                    */
  18. /*                   runmacro getbootpath + "MACRO\\MACLIST.X"        */
  19. /*                 end                                                */
  20. /* ------------------------------------------------------------------ */
  21.  
  22.   // compile time macros and function definitions
  23.   include  bootpath "define.aml"
  24.  
  25.   // macro list buffer id
  26.   buffer = "maclist"
  27.  
  28.   // create a macro list buffer
  29.   // (modify this list to suit your own preferences)
  30.   databuf buffer
  31.     " CALCPAD    Calculator"
  32.     " CALENDAR   Calendar"
  33.     " CLRCHART   Color Chart"
  34.     " COMPRESS   Display occurrences of a search string by folding lines"
  35.     " COUNTCHR   Count the characters in a file or block"
  36.     " COUNTWRD   Count the words in a file or block"
  37.     " DELBLANK   Delete blank Lines in a file or block"
  38.     " DELDUP     Delete duplicate lines in a file"
  39.     " DESKOPEN   Open and restore a previously saved desktop layout"
  40.     " DESKSAVE   Save the current desktop layout to a file"
  41.     " DRAWBOX    Draw a box around a column mark"
  42.     " FULLDATE   Display the current date and time in full-format"
  43.     " INSTALL    Run Installation"
  44.     " KEYCODES   Display various keycodes for any key pressed"
  45.     " KEYDEF     Display the assigned state of each assignable key"
  46.     " LONGLINE   Go to the longest line in the current file"
  47.     " PALETTE    Change the color palette"
  48.     " SCAN2      Find all occurrences of a search string in multiple files"
  49.     " SUMBLOCK   Add up numbers in a marked block"
  50.     " TABS       Detab a file or block"
  51.     " TABS e     Entab a file or block"
  52.     " WHERE      'Whereis' utility - locate files on any disk drive"
  53.   end
  54.  
  55.   // name the buffer so the menu position will be remembered
  56.   setbufname "mlist"
  57.  
  58.   // display the popup menu
  59.   line = popup buffer "Macro    Description"    69
  60.  
  61.   // destroy the menu
  62.   destroybuf buffer
  63.  
  64.   // run the selected macro
  65.   if line then
  66.     macro = line [1 : posnot ' ' line [1 : 11] 'r']
  67.  
  68.     // separate file and parameter (if any)
  69.     var parameter
  70.     splitstr ' ' macro ref macro ref parameter
  71.  
  72.     case macro
  73.  
  74.       // desktop functions are not implemented as external macros
  75.       when "DESKOPEN"
  76.         file = ask "Restore desktop from file" "_load"
  77.         if file then
  78.           if opendesk (qualify file (getbufname)) then
  79.             restoredesk
  80.           else
  81.             msgbox "Can't open " + file
  82.           end
  83.         end
  84.  
  85.       when "DESKSAVE"
  86.         file = ask "Save current desktop to file" "_load"
  87.         if file then
  88.           currdesk
  89.           if savedesk (qualify file (getbufname)) then
  90.             display
  91.           else
  92.             msgbox "Can't save " + file
  93.           end
  94.         end
  95.  
  96.       // queue for execution to minimize interpreter stack usage
  97.       when "INSTALL"
  98.         queue "runmacro" (bootpath  macro + ".X")
  99.  
  100.       otherwise
  101.         queue "runmacro" getbootpath + "MACRO\\" + macro + ".X"  parameter
  102.     end
  103.  
  104.   end
  105.