From: Eshel Yaron <me@eshelyaron.com>
Date: Sun, 11 Sep 2022 16:07:02 +0000 (+0300)
Subject: ENHANCED: (sweep-load-buffer): use read-buffer to choose a buffer
X-Git-Tag: v0.2.0~6
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e991b1a92c038b87ec490d1620fa7669a9b9045d;p=sweep.git

ENHANCED: (sweep-load-buffer): use read-buffer to choose a buffer
---

diff --git a/sweep.el b/sweep.el
index ac15758..4766151 100644
--- a/sweep.el
+++ b/sweep.el
@@ -867,9 +867,25 @@ module name, F is a functor name and N is its arity."
           (sweep-close-query)
           sol)))))
 
-(defun sweep-load-buffer (&optional buffer)
-  (interactive)
-  (with-current-buffer (or buffer (current-buffer))
+(defun sweep-load-buffer (buffer)
+  "Load the Prolog buffer BUFFER into the embedded SWI-Prolog runtime.
+
+Interactively, if the major mode of the current buffer is
+`sweep-mode' and the command is called without a prefix argument,
+load the current buffer.  Otherwise, prompt for a `sweep-mode'
+buffer to load."
+  (interactive (if (and (not current-prefix-arg)
+                        (eq major-mode 'sweep-mode))
+                   (list (current-buffer))
+                 (read-buffer "Load buffer: "
+                              (when (eq major-mode 'sweep-mode)
+                                (buffer-name))
+                              t
+                              (lambda (b)
+                                (let ((n (or (and (consp b) (car b)) b)))
+                                  (with-current-buffer n
+                                    (eq major-mode 'sweep-mode)))))))
+  (with-current-buffer buffer
     (let* ((beg (point-min))
            (end (point-max))
            (contents (buffer-substring-no-properties beg end)))