From: Eshel Yaron <me@eshelyaron.com>
Date: Fri, 30 Sep 2022 11:50:11 +0000 (+0300)
Subject: ADDED: Menu for sweep commands
X-Git-Tag: v0.4.4~1
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4f1611fad5411e22df143ea777fd447d329baaad;p=sweep.git

ADDED: Menu for sweep commands
---

diff --git a/sweeprolog.el b/sweeprolog.el
index 12583c4..0a6f6bb 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -1634,6 +1634,20 @@ Interactively, a prefix arg means to prompt for BUFFER."
     map)
   "Keymap for `sweeprolog-mode'.")
 
+(easy-menu-define sweeprolog-menu (list sweeprolog-mode-map
+                                        sweeprolog-top-level-mode-map)
+  "`sweep' menu."
+  '("Sweep"
+    [ "Set Prolog flag"        sweeprolog-set-prolog-flag t ]
+    [ "Install Prolog package" sweeprolog-pack-install    t ]
+    [ "Load Prolog buffer"     sweeprolog-load-buffer     t ]
+    [ "Find Prolog module"     sweeprolog-find-module     t ]
+    [ "Find Prolog predicate"  sweeprolog-find-predicate  t ]
+    [ "Open top-level"         sweeprolog-top-level       t ]
+    "--"
+    [ "Reset sweep"            sweeprolog-restart         t ]
+    [ "View sweep messages"    sweeprolog-view-messages   t ]))
+
 (defun sweeprolog-token-boundaries (&optional pos)
   (let ((point (or pos (point))))
     (save-excursion