home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / packages / MouseAndMenuEmacs / cl-menus.el < prev    next >
Encoding:
Text File  |  1990-05-31  |  5.5 KB  |  136 lines
  1. ;;;; Menu definitions for Allegro Common Lisp.
  2. ;;;; Russell Ritchie, Scottish HCI Centre, <russell@uk.ac.strath.hci>.
  3. ;;;; Wed May  9 18:01:39 1990 
  4.  
  5. (if (eq window-system 'x)
  6.     (progn
  7.       (require 'x-menus)
  8.       (require 'x-cl-fns))
  9.   (require 'hci-menus))
  10. (provide 'cl-menus)
  11.  
  12. (if (eq window-system 'x)
  13.  
  14.     (progn
  15.  
  16. (defXmenu 'cl-menu
  17.   '("Allegro Common Lisp Menu"
  18.     ("Eval Menu"
  19.      ("Eval defun at point" call-interactively 'fi:lisp-eval-defun)
  20.      ("Eval region" call-interactively 'fi:lisp-eval-region)
  21.      ("Eval buffer" call-interactively 'fi:lisp-eval-current-buffer)
  22.      ("Compile defun at point" prefix-arg-supplied 'fi:lisp-eval-defun)
  23.      ("Compile region" prefix-arg-supplied 'fi:lisp-eval-region)
  24.      ("Compile buffer" prefix-arg-supplied 'fi:lisp-eval-current-buffer))
  25.     ("Help Menu"
  26.      ("Complete symbol at point" call-interactively 'fi:lisp-complete-symbol)
  27.      ("Describe symbol" call-interactively 'fi:lisp-describe)
  28.      ("Display CLtL manual entry" fi:clman)
  29.      ("Display source code" call-interactively 'fi:lisp-find-tag)
  30.      ("Display function documentation"
  31.       call-interactively 'fi:lisp-function-documentation)
  32.      ("Display argument list" call-interactively 'fi:lisp-arglist)
  33.      ("Display all callers" call-interactively 'fi:lisp-who-calls)
  34.      ("Display macroexpansion" fi:lisp-macroexpand)
  35.      ("Display full macroexpansion" call-interactively 'fi:lisp-walk)
  36.      ("Display full macroexpansion (compiler style)"
  37.       prefix-arg-supplied 'fi:lisp-walk))
  38.     ("Print Menu"
  39.      ("Print defun"
  40.       save-excursion
  41.       (mark-defun) (enscript-region (region-beginning) (region-end)))
  42.      ("Print region" enscript-region (region-beginning) (region-end))
  43.      ("Print buffer" enscript-buffer)
  44.      ("Show Printer Queue" lpq))
  45.     ("Miscellaneous Menu"
  46.      ("Justify current defun" indent-defform)
  47.      ("Describe Common Lisp mode" describe-mode)
  48.      ("Describe Key Bindings" describe-bindings)
  49.      ("Other Menus" x-mouse-other-menus))))
  50.  
  51. (defXmenu 'cl-process-menu
  52.   '("Allegro Inferior Common Lisp Menu"
  53.     ("Command Menu"
  54.      ("Previous command" call-interactively 'fi:pop-input)
  55.      ("Next command" call-interactively 'fi:push-input)
  56.      ("List command ring" call-interactively 'fi:list-input-ring)
  57.      ("Search command ring forwards"
  58.       call-interactively 'fi:re-search-forward-input)
  59.      ("Search command input backwards"
  60.       call-interactively 'fi:re-search-backward-input)     
  61.      ("Flush command" fi:subprocess-kill-input)
  62.      ("Move to start of last output" fi:subprocess-show-output)
  63.      ("Flush last output" fi:subprocess-kill-output))
  64.     ("Signal Menu"
  65.      ("Send End-Of-File signal" fi:subprocess-send-eof)
  66.      ("Send Suspend signal" fi:subprocess-suspend)
  67.      ("Send Interrupt signal" fi:subprocess-quit)
  68.      ("Send Quit signal" fi:subprocess-quit)
  69.      ("Send Kill signal" fi:subprocess-kill))
  70.     ("Help Menu"
  71.      ("Complete symbol at point" call-interactively 'fi:lisp-complete-symbol)
  72.      ("Describe symbol" call-interactively 'fi:lisp-describe)
  73.      ("Display CLtL manual entry" fi:clman)
  74.      ("Display source code" call-interactively 'fi:lisp-find-tag)
  75.      ("Display function documentation"
  76.       call-interactively 'fi:lisp-function-documentation)
  77.      ("Display argument list" call-interactively 'fi:lisp-arglist)
  78.      ("Display all callers" call-interactively 'fi:lisp-who-calls)
  79.      ("Display macroexpansion" fi:lisp-macroexpand)
  80.      ("Display full macroexpansion" call-interactively 'fi:lisp-walk)
  81.      ("Display full macroexpansion (compiler style)"
  82.       prefix-arg-supplied 'fi:lisp-walk))
  83.     ("Print Menu"
  84.      ("Print defun" save-excursion (mark-defun) (enscript-region))
  85.      ("Print region" enscript-region (region-beginning) (region-end))
  86.      ("Print buffer" enscript-buffer)
  87.      ("Show Printer Queue" lpq))
  88.     ("Miscellaneous Menu"
  89.      ("Describe Inferior Common Lisp mode" describe-mode)
  90.      ("Describe Key Bindings" describe-bindings)
  91.      ("Other Menus" x-mouse-other-menus)))))
  92.         
  93. (defHCImenu cl-eval-menu
  94.   ("Eval Menu")
  95.   ("Eval defun at point" call-interactively 'fi:lisp-eval-defun)
  96.   ("Eval region" call-interactively 'fi:lisp-eval-region)
  97.   ("Eval buffer" call-interactively 'fi:lisp-eval-current-buffer)
  98.   ("Compile defun at point" fi:lisp-eval-defun t)
  99.   ("Compile region" fi:lisp-eval-region t)
  100.   ("Compile buffer" fi:lisp-eval-current-buffer t))
  101.  
  102. (defHCImenu cl-help-menu
  103.   ("Help Menu")
  104.   ("Complete symbol at point" call-interactively 'fi:lisp-complete-symbol)
  105.   ("Describe symbol" call-interactively 'fi:lisp-describe)
  106.   ("Display CLtL manual entry" fi:clman)
  107.   ("Display source code" call-interactively 'fi:lisp-find-tag)
  108.   ("Display function documentation"
  109.    call-interactively 'fi:lisp-function-documentation)
  110.   ("Display argument list" call-interactively 'fi:lisp-arglist)
  111.   ("Display all callers" call-interactively 'fi:lisp-who-calls)
  112.   ("Display macroexpansion" fi:lisp-macroexpand)
  113.   ("Display full macroexpansion" call-interactively 'fi:lisp-walk)
  114.   ("Display full macroexpansion (compiler style)" fi:lisp-walk t))
  115.  
  116. (defHCImenu cl-print-menu
  117.   ("Print Menu")
  118.   ("Print defun" progn (mark-defun) (lpr-region))
  119.   ("Print region" call-interactively 'lpr-region)
  120.   ("Print buffer" lpr-buffer)
  121.   ("Show Printer Queue" lpq))
  122.  
  123. (defHCImenu cl-menu
  124.   ("Allegro Common Lisp Menu")
  125.   ("Eval" . cl-eval-menu)
  126.   ("Help" . cl-help-menu)
  127.   ("Print". cl-print-menu)
  128.   ("Justify current defun" indent-defform)
  129.   ("Describe Common Lisp mode" describe-mode)
  130.   ("Describe Key Bindings" describe-bindings)
  131.   ("Other menus" . other-menus-menu)
  132.   ("Quit" . emacs-quit-menu))
  133.  
  134.   )
  135.  
  136.