home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / modes / multi-forms-mode / forms-simple-menus.el < prev    next >
Encoding:
Text File  |  1992-01-03  |  4.5 KB  |  116 lines
  1. ;;;; -*- Mode: Emacs-Lisp -*- 
  2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3. ;;;; 
  4. ;;;; File            : forms-simple-menus.el
  5. ;;;; Author          : Frank Ritter
  6. ;;;; Created On      : Tue Sep 10 12:01:48 1991
  7. ;;;; Last Modified By: Frank Ritter
  8. ;;;; Last Modified On: Fri Jan  3 17:56:00 1992
  9. ;;;; Update Count    : 39
  10. ;;;; 
  11. ;;;; PURPOSE
  12. ;;;;     Menus for forms-mode
  13. ;;;; TABLE OF CONTENTS
  14. ;;;;     |>Contents of this module<|
  15. ;;;; 
  16. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  17.  
  18. (require 'simple-menu)
  19. (provide 'forms-simple-menus)
  20.  
  21. (defun forms-run-menu ()
  22.   "Provide a menu of commands for forms-mode."
  23.   (interactive)
  24.   (run-menu 'forms-menu))
  25.  
  26. (def-menu  'forms-menu
  27.   "Forms-mode commands" ;main prompt
  28.   "The menu key allows you to select various forms command options"
  29.    ;123456789012345
  30.  '(
  31.    ("File          File manipulation commands." forms-file-command-menu)
  32.    ("Movement      Movement commands." forms-movement-command-menu)
  33.    ("Commands      Commands for forms-mode, and changing file parameters."
  34.                      forms-commands-menu)
  35.    ("Analyses      Analysis programs internal to the mode."
  36.                      forms-analysis-menu)
  37.    ("Reload        Reload forms.  Used mostly/only by Frank"
  38.                      (progn (byte-compile-file "forms.el")
  39.                         (load "forms.elc")))
  40.    ("EReload       Reload forms.el.  Used mostly/only by Frank"
  41.                     (progn (if (file-exists-p "forms.elc")
  42.                                (delete-file "forms.elc"))
  43.                      (load "forms.el")))
  44. ))
  45.  
  46. (def-menu  'forms-file-command-menu
  47.   "" ;main prompt
  48.   "The menu key allows you to select various forms file commands" ;help prompt
  49.  '(
  50.    ("Open            Open new or old forms-mode file." forms-find-file)
  51.    ("Save            Save a forms-mode file."   forms-save-buffer)
  52.    ("Write           Save a forms-mode file to another file name."
  53.         forms-write-buffer)
  54.    ("View            Put file in forms view only submode." forms-view-mode)
  55.    ("Edit            Put file in forms edit submode." forms-edit-mode)
  56.    ("RRevert         Revert current RECORD to original form."
  57.                       forms-revert-record)
  58.    ("BRevert         Revert current BUFFER to original form."
  59.                       forms-revert-buffer)
  60.    ("Comments        Edit the comment header." forms-edit-comments-header)
  61.    ("Header          Edit the command header." forms-edit-commands-header)
  62.    ("AutoRep         View the autoreport." forms-view-auto-report-header)
  63.    ("Quit            Quit forms-mode and get rid of buffer."
  64.                       forms-exit)
  65. ))
  66.  
  67. (def-menu 'forms-commands-menu
  68.   "" ;main prompt
  69.   "The menu key allows you to select various command options" ;help prompt
  70.  '(
  71.    ("Help            Short quick help." forms-quick-help)
  72.    ("Full-help       Full mode help." describe-mode)
  73.    ("Renumber        Renumber number field in segments.")
  74.    ("Hedit           Edit the form header bits.")
  75.    ("Front           Edit the leading comments.")
  76.    ("ToggleV         Toggle making invisible segments visible (or not).")
  77.    ("Combine         Combine two segments together.")
  78.    ("2Dupl           Split a segment in two through duplicating it."
  79.                      forms-duplicate-record)
  80.    ("Del             Delete a record" forms-delete-record)
  81.    ("Insert          Insert a record" forms-insert-record)
  82. ))
  83.  
  84. (def-menu 'forms-movement-command-menu
  85.   "" ;main prompt
  86.   "This menu allows you to select various forms movement commands" ;help prompt
  87.  '(
  88.    ("Up        Scroll up."   forms-scroll-up)
  89.    ("Down      Scroll down."   forms-scroll-down)
  90.    ("<         Beginning of records."   forms-first-record)
  91.    (">         End of records."   forms-last-record)
  92.    ("Tab       Next field." forms-next-field)
  93.    ("Next      Next record." forms-next-record)
  94.    ("Back      Previous record." forms-prev-record)
  95.    ("Jump      Jump to a record." forms-jump-record)
  96.    ("Search    Search. " forms-search)
  97. ))
  98.  
  99. (def-menu 'forms-analysis-menu
  100.   ""
  101.   "Analysis programs internal to forms-mode."
  102.  '(
  103.    ("Tally      Tally the types of fields in a queried for field." 
  104.                 forms-tally-fields)
  105.    ("Picture    Save a picture of the forms window." forms-picture-menu)
  106. ))
  107.   
  108. (def-menu 'forms-picture-menu
  109.   "" ;main prompt
  110.   "The menu key allows you to select various command options" ;help prompt
  111.  '(
  112.    ("Buffer            Picture of the entire buffer." forms-make-report)
  113.    ("Window            Picture what's in the current window.")
  114. ))
  115.  
  116.