[nongnu] elpa/sweeprolog 5913f010b6 07/12: ADDED: new command for signaling the current top-level

[ELPA Syncer]

branch: elpa/sweeprolog
commit 5913f010b69a88d845492bbe3e5f23f78ba32d64
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>

    ADDED: new command for signaling the current top-level
    
    * sweeprolog.el:
    - sweeprolog-top-level-signal-current: new command
    - sweeprolog-top-level-mode-map: bind it to C-c C-c
---
 sweeprolog.el | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/sweeprolog.el b/sweeprolog.el
index 51e7522100..ef34ae8866 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -1585,6 +1585,17 @@ Interactively, a prefix arg means to prompt for BUFFER."
                                                 (get-buffer buffer))
                             goal))
 
+(defun sweeprolog-top-level-signal-current (goal)
+  "Signal the current top-level thread to run GOAL."
+  (interactive "MSignal goal: ?- " sweeprolog-top-level-mode)
+  (sweeprolog-signal-thread sweeprolog-top-level-thread-id goal))
+
+(defvar sweeprolog-top-level-mode-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map (kbd "C-c C-c") #'sweeprolog-top-level-signal-current)
+    map)
+  "Keymap for `sweeprolog-top-level-mode'.")
+
 ;;;###autoload
 (define-derived-mode sweeprolog-top-level-mode comint-mode "sweep Top-level"
   "Major mode for interacting with an inferior Prolog interpreter."