add sent-string-to-listener

Author: cxxxr

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*

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)