home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / packages / big-menubar.el < prev    next >
Encoding:
Text File  |  1993-03-10  |  11.7 KB  |  248 lines
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;; FILE                 
  3. ;;    fib-menubar.el
  4. ;;    Source: /usr/junk/emacs-19.3/lisp/local/fib-menubar.el,v 
  5. ;;                      
  6. ;; PURPOSE              
  7. ;;    Lucid EMACS menus
  8. ;;                      
  9. ;; PROGRAMMER           
  10. ;;    Dror Caspi (Author: dror ) (Locker: dror )
  11. ;;    slightly modified by jwz
  12. ;;                      
  13. ;; REVISION             
  14. ;;    Revision: 1.11 
  15. ;;
  16. ;; DATE
  17. ;;    Date: 1993/01/31 13:29:35 
  18. ;;
  19. ;; REMARKS
  20. ;;                                                                
  21. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  22.  
  23. (defconst big-menubar
  24.   '(("File"
  25.      ["Open File..."               find-file                         t]
  26.      ["Open File, New Screen..."   find-file-new-screen              t]
  27.      ["Open Alternate File..."     find-alternate-file               t]
  28.      "-----"
  29.      ["Include File..."            insert-file                       t]
  30.      "-----"
  31.      ["Toggle Read Only"           toggle-read-only                  t]
  32.      "-----"
  33.      ["Save Buffer"                save-buffer                       t]
  34.      ["Save Buffer As..."          write-file                        t]
  35.      ["Save Some Buffers"          save-some-buffers                 t]
  36.      ["Save Region As..."          write-region                      t]
  37.      ["Revert Buffer"              revert-buffer                     t]
  38.      "-----"
  39.      ["Print Buffer"               lpr-buffer                        t]
  40.      ["Print Region"               lpr-region                        t]
  41.      "-----"
  42.      ["Kill Buffer..."             kill-buffer                       t]
  43.      ["Exit Emacs"                 save-buffers-kill-emacs           t]
  44.      )
  45.     ("Screen"
  46.      ["New Screen"                 x-new-screen                      t]
  47.      ["Delete Screen"              delete-screen                     t]
  48.      ["One Screen"                 one-screen                        t]
  49.      "-----"
  50.      ["Split"                      split-window-vertically           t]
  51.      ["Un-split (Keep This)"       delete-other-windows              t]
  52.      ["Un-split (Keep Others)"     delete-window                     t]
  53.      ["Save Configuration..."      window-config-to-register         t]
  54.      ["Restore Configuration..."   register-to-window-config         t]
  55.      )
  56.     ("Edit"
  57.      ["Undo"                       advertised-undo                   t]
  58.      ["Redo"                       electric-command-history          t]
  59.      "-----"
  60.      ["Cut"                        x-kill-primary-selection          t]
  61.      ["Copy"                       x-copy-primary-selection          t]
  62.      ["Paste"                      x-yank-clipboard-selection        t]
  63.      ["Clear"                      x-delete-primary-selection        t]
  64.      "-----"
  65.      ["Copy to Register..."        copy-to-register                  t]
  66.      ["Paste Register..."          insert-register                   t]
  67.      "-----"
  68.      ["Toggle Overwrite/Insert"    overwrite-mode                    t]
  69.      ["Quoted Insert..."           quoted-insert                     t]
  70.      "-----"
  71.      ("Mark"
  72.       ["Here"                       set-mark-command                  t]
  73.       ["Word"                       mark-word                         t]
  74.       ["Sentence"                   mark-end-of-sentence              t]
  75.       ["Paragraph"                  mark-paragraph                    t]
  76.       ["Page"                       mark-page                         t]
  77.       ["Balanced Expression"        mark-sexp                         t]
  78.       ["Lisp Function"              mark-defun                        t]
  79.       ["C Function"                 mark-c-function                   t]
  80.       ["Whole Buffer"               mark-whole-buffer                 t]
  81.       )
  82.      "-----"
  83.      ("Search"
  84.       ["Forward..."                 isearch-forward                   t]
  85.       ["Backward..."                isearch-backward                  t]
  86.       "-----" 
  87.       ["Regexp Forward..."          isearch-forward-regexp            t]
  88.       ["Regexp Backward..."         isearch-backward-regexp           t]
  89.       "-----"
  90.       ["Words Forward..."           word-search-forward               t]
  91.       ["Words Backward..."          word-search-backward              t]
  92.       )
  93.      ("Replace"
  94.       ["Query..."                   query-replace                     t]
  95.       ["Regexp Query..."            query-replace-regexp              t]
  96.       "-----"
  97.       ["All..."                     replace-string                    t]
  98.       ["Regexp All..."              replace-regexp                    t]
  99.       )
  100.      "-----"
  101.      ("Transpose"
  102.       ["Characters"                 transpose-chars                   t]
  103.       ["Words"                      transpose-words                   t]
  104.       ["Lines"                      transpose-lines                   t]
  105.       ["Sentencess"                 transpose-sentences               t]
  106.       ["Paragraphs"                 transpose-paragraphs              t]
  107.       ["Balanced Expressions"       transpose-sexps                   t]
  108.       )
  109.      ("Sort"
  110.       ["Lines"                      sort-lines                        t]
  111.       ["Paragraphs"                 sort-paragraphs                   t]
  112.       ["Pages"                      sort-pages                        t]
  113.       ["Columns"                    sort-columns                      t]
  114.       ["Regexp..."                  sort-regexp-fields                t]
  115.       )
  116.      ("Center"
  117.       ["Line"                       center-line                       t]
  118.       ["Paragraph"                  center-paragraph                  t]
  119.       ["Region"                     center-region                     t]
  120.       )
  121.      ("Indent"
  122.       ["As Previous Line"           indent-relative                   t]
  123.       ["To Column..."               indent-to-column                  t]
  124.       "-----"
  125.       ["Region"                     indent-region                     t]
  126.       ["Balanced Expression"        indent-sexp                       t]
  127.       ["C Expression"               indent-c-exp                      t]
  128.       )
  129.      "-----"
  130.      ("Narrow"
  131.       ["To Region"                  narrow-to-region                  t]
  132.       ["To Page"                    narrow-to-page                    t]
  133.       "-----"
  134.       ["Cancel"                     widen                             t]
  135.       )
  136.      )
  137.     ("Motion"
  138.      ["Goto Mark"                       exchange-point-and-mark           t]
  139.      ["Goto Line..."                    goto-line                         t]
  140.      "-----"
  141.      ["End of Balanced Parentheses ()"       forward-list            t]
  142.      ["Beginning of Balanced Parentheses ()" backward-list           t]
  143.      ["Next Openning Parenthesis ("          down-list               t]
  144.      ["Previous Openning Parenthesis ("      backward-up-list        t]
  145.      ["Next Closing Parenthesis )"           up-list                 t]
  146.      "-----"
  147.      ["End of Balanced Expression"           forward-sexp            t]
  148.      ["Beginning of Balanced Expression"     backward-sexp           t]
  149.      "-----"
  150.      ["End of Function"            end-of-defun                      t]
  151.      ["Beginning of Function"      beginning-of-defun                t]
  152.      "-----"
  153.      ["Next Page"                  forward-page                      t]
  154.      ["Previous Page"              backward-page                     t]
  155.      "-----"
  156.      ["End of Buffer"              end-of-buffer                     t]
  157.      ["Beginning of Buffer"        beginning-of-buffer               t]
  158.      "-----"
  159.      ["Save Current Position..."   point-to-register                 t]
  160.      ["Goto Saved Position..."     register-to-point                 t]
  161.      "-----"
  162.      ["Set Marker..."              set-user-marker                   t]
  163.      ["Goto Marker..."             goto-user-marker                  t]
  164.      ["List Markers"               list-markers                      t]
  165.      "-----"
  166.      ["Set Goal Column"            set-goal-column                   t]
  167.      ["Cancel Goal Column"         (set-goal-column t)               t]
  168.      )
  169.     ("Buffers"   "")
  170.     ("Run"
  171.      ["Compile..."                 compile                           t]
  172.      ["Kill Compilation"           kill-compilation                  t]
  173.      "-----"
  174.      ["Next Error"                 next-error                        t]
  175.      ["Previous Error"             previous-error                    t]
  176.      ["Goto Error"                 compile-goto-error                t]
  177.      "-----"
  178.      ["GDB Debuger"                gdb                               t]
  179.      )
  180.     ("Utilities"
  181.      ["Shell"                      shell                             t]
  182.      "-----"
  183.      ("Mail"
  184.       ["Send"                       mail                              t]
  185.       ["Read"                       rmail                             t]
  186.       ["Read Folder..."             rmail-input                       t]
  187.       )
  188.      ["Dired..."                   dired                             t]
  189.      "-----"
  190.      ["Grep..."                    grep                              t]
  191.      ("Tags"
  192.       ["Set Tags Table File..."     visit-tags-table                  t]
  193.       "-----"
  194.       ["Show Occurance..."          find-tag                          t]
  195.       ["Show Occurance (Other)..."  find-tag-other-window             t]
  196.       ["Next Occurance"             (find-tag nil)                    t]
  197.       ["Next Occurance (Other)"     (find-tag-other-window nil)       t]
  198.       "-----"
  199.       ["Search by Tags..."          tags-search                       t]
  200.       ["Query Replace by Tags..."   tags-query-replace                t]
  201.       ["Continue Search/Replace"    tags-loop-continue                t]
  202.       "-----"
  203.       ["Next File"                  next-file                         t]
  204.       "-----"
  205.       ["List Tags in File..."       list-tags                         t]
  206.       ["List Tags by Regexp..."     tags-apropos                      t]
  207.       )
  208.      "-----"
  209.      ("Spell Check"
  210.       ["Word"                       ispell-word                       t]
  211.       ["Region"                     ispell-region                     t]
  212.       ["Whole Buffer"               ispell-buffer                     t]
  213.       )
  214.      "-----"
  215.      ("Compare Windows"
  216.       ["Exact Match"                 compare-windows                   t]
  217.       ["Ignore White Space"          (compare-windows t)         t]
  218.       )
  219.      "-----"
  220.      ["Hex Edit File..."           hexl-find-file                     t]
  221.      )
  222.     ("Macro"
  223.      ["Start Macro Recording"      start-kbd-macro                    t]
  224.      ["End Macro Recording"        end-kbd-macro                      t]
  225.      ["Name Last Macro..."         name-last-kbd-macro                t]
  226.      ["Insert Macro in Buffer..."  insert-kbd-macro                   t]
  227.      ["Execute Last Macro"         call-last-kbd-macro                t]
  228.      )
  229.     nil
  230.     ("Help"
  231.      ["Info"                       info                               t]
  232.      ["Describe Mode"              describe-mode                      t]
  233.      ["Command Apropos..."         command-apropos                    t]
  234.      ["Full Apropos..."            apropos                            t]
  235.      ["List Keybindings"           describe-bindings                  t]
  236.      ["Describe Key..."            describe-key                       t]
  237.      ["Describe Function..."       describe-function                  t]
  238.      ["Describe Variable..."       describe-variable                  t]
  239.      "-----"
  240.      ["Unix Manual..."             manual-entry                       t]
  241.      ["Emacs Tutorial"             help-with-tutorial                 t]
  242.      ["Emacs News"                 view-emacs-news                    t]
  243.      "-----"
  244.      ["Total Frustration"          doctor                             t]
  245.      )))
  246.  
  247. (set-menubar big-menubar)
  248.