add sent-string-to-listener

lem-project · Aug 15, 2023 · 9808d2c · 9808d2c
1 parent d96c328
commit 9808d2c
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/extensions/lisp-mode/internal-package.lisp b/extensions/lisp-mode/internal-package.lisp
@@ -92,6 +92,7 @@
    :lisp-switch-to-repl-buffer
    :write-string-to-repl
    :copy-down-to-repl
+   :send-string-to-listener
    ;; apropos-mode.lisp
    :apropos-headline-attribute
    :*lisp-apropos-mode-keymap*

diff --git a/extensions/lisp-mode/repl.lisp b/extensions/lisp-mode/repl.lisp
@@ -262,6 +262,12 @@
                                          string
                                          (string #\newline))))))
 
+(defun send-string-to-listener (string)
+  (lisp-switch-to-repl-buffer)
+  (buffer-end (current-point))
+  (insert-string (current-point) string)
+  (lem/listener-mode:listener-return))
+
 (define-command start-lisp-repl (&optional (use-this-window nil)) ("P")
   (check-connection)
   (flet ((switch (buffer split-window-p)