[nongnu] elpa/forth-mode b9586a57a5 147/153: Add menu

[ELPA Syncer]

branch: elpa/forth-mode
commit b9586a57a5b82117810880fb5d55cc840cdcfb3b
Author: Jeronimo Pellegrini <j_p@aleph0.info>
Commit: Lars Brinkhoff <lars@nocrew.org>

    Add menu
    
    Adds menu to Emacs menu bar, with entries for all commands
    except forth-switch-to-output-buffer.
---
 forth-mode.el | 48 +++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 47 insertions(+), 1 deletion(-)

diff --git a/forth-mode.el b/forth-mode.el
index f672cf76ae..2c18798931 100644
--- a/forth-mode.el
+++ b/forth-mode.el
@@ -61,6 +61,49 @@
     (modify-syntax-entry ?\" "\"" table)
     table))
 
+;; forth-menu-entries:
+;; In the list,  the three elements are
+;; 1. menu name (internal)
+;; 2. menu string (shown to the user)
+;; 3. function name (to be called whe this menu entry iss
+;;    clicked on
+(defvar forth-menu-entries
+  (reverse (list
+           '(see          "See"                   forth-see)
+           '(eval         "Eval"                  forth-eval)
+           '(eval-defun   "Eval defun"            forth-eval-defun)
+           '(eval-region  "Eval region"           forth-eval-region)
+           '(eval-last    "Eval last"             forth-eval-last-expression)
+           '(eval-display "Eval last and display" 
forth-eval-last-expression-display-output)
+           '(separator1   "--")
+           '(lookup-1994  "Lookup 1994 spec"      forth-spec-lookup-1994)
+           '(lookup-2012  "Lookup-2012 spec"      forth-spec-lookup-2012)
+           '(separator2   "--")
+           '(load-file    "Load file"             forth-load-file)
+           '(run          "Run Forth"             run-forth)
+           '(kill         "Kill"                  forth-kill))))
+
+;; forth-create-menu will actually call define-key to
+;; add meu entries. The format is that of the variable
+;; forth-menu-entries.
+(defun forth-create-menu (entries)
+  (mapcar (lambda (entry)
+            (let ((menu-name (first entry))
+                  (menu-string (second entry))
+                  (menu-function (third entry)))
+                 (define-key forth-mode-map
+                   (vector 'menu-bar 'forth menu-name)
+                   (cons menu-string menu-function))))
+         entries))
+
+(defun forth-mode-init-menu ()
+  (define-key-after
+    forth-mode-map
+    [menu-bar forth]
+    (cons "Forth" (make-sparse-keymap "Forth"))
+    'tools)
+  (forth-create-menu forth-menu-entries))
+
 (defvar forth-mode-hook)
 
 (defun forth-symbol-start ()
@@ -161,7 +204,8 @@
          ("Variables"
           
"^\\s-*2?\\(variable\\|create\\|value\\)\\s-+\\(\\(\\sw\\|\\s_\\)+\\)" 2)
          ("Constants"
-          "\\s-2?constant\\s-+\\(\\(\\sw\\|\\s_\\)+\\)" 1))))
+          "\\s-2?constant\\s-+\\(\\(\\sw\\|\\s_\\)+\\)" 1))) 
+  (forth-mode-init-menu))
 
 ;;;###autoload
 (add-to-list 'auto-mode-alist '("\\.\\(f\\|fs\\|fth\\|4th\\)\\'" . forth-mode))
@@ -180,5 +224,7 @@
 (defun forth-beginning ()
   (goto-char (point-min)))
 
+(add-hook 'forth-mode-hook 'forth-mode-init-menu)
+
 (provide 'forth-mode)
 ;;; forth-mode.el ends here