From: Eshel Yaron <me@eshelyaron.com>
Date: Sat, 27 Aug 2022 18:19:01 +0000 (+0300)
Subject: ENHANCED: make the prompts used in sweep-find-* customizable
X-Git-Tag: v0.2.0~78
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d9546b9414dd7fae79859856f75a7121dcf80c78;p=sweep.git

ENHANCED: make the prompts used in sweep-find-* customizable
---

diff --git a/sweep.el b/sweep.el
index ed8c7af..012bd05 100644
--- a/sweep.el
+++ b/sweep.el
@@ -19,6 +19,18 @@
   "SWI-Prolog Embedded in Emacs."
   :group 'prolog)
 
+(defcustom sweep-read-module-prompt "Module: "
+  "Prompt used for reading a Prolog module name from the minibuffer."
+  :package-version '((sweep . "0.1.0"))
+  :type 'string
+  :group 'sweep)
+
+(defcustom sweep-read-predicate-prompt "Predicate: "
+  "Prompt used for reading a Prolog precicate name from the minibuffer."
+  :package-version '((sweep . "0.1.0"))
+  :type 'string
+  :group 'sweep)
+
 (defvar sweep-install-buffer-name "*Install sweep*"
   "Name of the buffer used for compiling sweep-module.")
 
@@ -55,12 +67,13 @@
                   (expand-file-name "sweep.pl"
                                     (sweep-home-directory)))
 
-(declare-function sweep-initialize "sweep-module")
+(declare-function sweep-initialize    "sweep-module")
 (declare-function sweep-initialized-p "sweep-module")
-(declare-function sweep-open-query "sweep-module")
-(declare-function sweep-cut-query "sweep-module")
-(declare-function sweep-close-query "sweep-module")
-(declare-function sweep-cleanup "sweep-module")
+(declare-function sweep-open-query    "sweep-module")
+(declare-function sweep-cut-query     "sweep-module")
+(declare-function sweep-close-query   "sweep-module")
+(declare-function sweep-next-solution "sweep-module")
+(declare-function sweep-cleanup       "sweep-module")
 
 (defun sweep-predicates-collection ()
   (sweep-open-query "user" "sweep" "sweep_predicates_collection" nil)
@@ -90,7 +103,7 @@
                     (if val
                         (concat (make-string (- 64 (length key)) ? ) (car val))
                       nil))))))
-    (completing-read "Predicate: " col)))
+    (completing-read sweep-read-predicate-prompt col)))
 
 ;;;###autoload
 (defun sweep-find-predicate (mfn)
@@ -134,7 +147,7 @@ module name, F is a functor name and N is its arity."
                             (if des
                                 (concat pat (make-string (max 0 (- 80 (length pat))) ? ) des)
                               pat)))))))
-    (completing-read "Module: " col)))
+    (completing-read sweep-read-module-prompt col)))
 
 ;;;###autoload
 (defun sweep-find-module (mod)