Send s-exp to the REPL for evaluation

[Jérémy Korwin-Zmijowski]

Dear Geiser users,

I look for a way to programmatically evaluate a Guile s-exp like Geiser would do it when I hit `C-x C-e`.

Let say the s-exp I want to evaluate is ((run-tests) gunit64-tests)

If I put the s-exp in my guile script and hit `C-x C-e`, it returns #t and the Geiser Debug buffer shows up with informations I displayed from code.

But here I want to remove the s-exp from the script and evaluate it when I hit a custom key binding, for example `C-c r m`

So I wrote a minor mode :

(define-minor-mode gunit64-mode
  "Spell out tests for your Guile app."
  :lighter " gunit64"
  :keymap (let ((map (make-sparse-keymap)))
            (define-key map (kbd "C-c r m") 'run-module-tests)
            map))

With the run-module-tests function :

(defun run-module-tests ()
  "Execute the gunit64 test suite."
  (interactive)
  ;; code to evaluate s-exp here
  )

I tried few things with no luck haha.

(geiser-eval--send/result '(:eval (:scm ((run-tests) gunit64-tests))))
(geiser-eval--send/wait '(:eval (:scm ((run-tests) gunit64-tests))))
(geiser-eval--send/wait '((run-tests) gunit64-tests))
(geiser-eval--code-str '((run-tests) gunit64-tests))

The try approaching the most what I want is :

(defun run-module-tests ()
  "Execute the gunit64 test suite."
  (interactive)
  (message "%s" (geiser-eval--send/wait "((run-tests) gunit64-tests)")))

Which print the output in the minibuffer (or messages buffer), but I have to extract the relevant part of the return value of geiser-eval--send/wait.

I would like it to trigger the geiser debug buffer instead.

Maybe someone here can point me what I missed…

Thank you !

-- 
Jérémy Korwin-Zmijowski

GPG: AD1945EC4F03FC79