Re: Avoid "Scheme implementation" prompt on export

Re: Avoid "Scheme implementation" prompt on export

[Roi Martin]

Bruno Barbier <brubar.cs@gmail.com> writes:

> I've installed chez and racket.  Indeed, the argument :session
> if half-ignored.
>
> I've attached a quick ugly hack; with that change, it is now working
> for me.
>
>     #+begin_src scheme :scheme racket
>       (banner)
>     #+end_src
>
>     #+RESULTS:
>     : Welcome to Racket v8.14 [cs].\n
>
>     (setq-default geiser-chez-binary "chezscheme")
>     #+begin_src scheme :scheme chez 
>       (scheme-version)
>     #+end_src
>
>     #+RESULTS:
>     : Chez Scheme Version 10.0.0
>
> Could you try it?

I tried the current main branch (commit da0f6eff75cd ("ox-texinfo: Fix
edge case with - Variable: nil:: definition") with and without the
patch.  Unless I'm doing something wrong, exporting the document to HTML
with "C-c C-e h H" asks for the Scheme implementation for every code
block.  Please, note that the htmlize package must be installed.

Also, note that executing the code block with "C-c C-c" never asked for
the Scheme implementation when the ":scheme" argument is specified.

Cheers,
Roi

Re: Avoid "Scheme implementation" prompt on export

[Bruno Barbier]

[-- Attachment #1: Type: text/plain, Size: 1586 bytes --]



Roi Martin <jroi.martin@gmail.com> writes:    
> I tried the current main branch (commit da0f6eff75cd ("ox-texinfo: Fix
> edge case with - Variable: nil:: definition") with and without the
> patch.  Unless I'm doing something wrong, exporting the document to HTML
> with "C-c C-e h H" asks for the Scheme implementation for every code
> block.  Please, note that the htmlize package must be installed.
>
> Also, note that executing the code block with "C-c C-c" never asked for
> the Scheme implementation when the ":scheme" argument is specified.

My patch fixes a real bug though.  Are you sure org is using the correct
scheme implementation when doing "C-c C-c" ?


I just checked exporting my example to html: it works for me.

I've tested using the same version as you:

     Org mode commit: da0f6eff75cd
     
with my patch applied on top, and using a clean bare bone emacs,
without any config.

I'm launching emacs like this:

  emacs -q test_ob-scheme-bug.org


Running the elisp code block, I'm getting the expected result in HTML.

In the HTML file, I see:

     #+begin_example
     <pre class="example">
     Welcome to Racket v8.14 [cs].\n
     </pre>
     #+end_example
and:
     #+begin_example
     <pre class="example">
     Chez Scheme Version 10.0.0
     </pre>
     #+end_example

I've attached the org file that I've used to test this.  The first elisp
block allows to configure Emacs from scratch (downloading and installing
the required packages), export the org file to HTML and open the HTML
result.

Maybe something is wrong in your configuration ?

Bruno


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: test_ob-scheme-bug.org --]
[-- Type: text/org, Size: 849 bytes --]

* Mandatory first heading
   :PROPERTIES:
   :header-args:scheme: :exports both :results value
   :END:

 #+begin_src elisp
   (setq-local org-confirm-babel-evaluate nil)
   (setq package-archives
      '(("gnu"          . "http://elpa.gnu.org/packages/")
        ("melpa-stable" . "http://stable.melpa.org/packages/")))
   (setq package-check-signature t) ; 'allow-unsigned)
   (setq package-unsigned-archives (list "melpa-stable"))
   (package-initialize)

   (load-library "ob-scheme")
   (package-install 'geiser)
   (package-install 'geiser-chez)
   (package-install 'geiser-racket)
   (setq-default geiser-chez-binary "chezscheme")
   (org-export-to-file 'html "test.html")
   (find-file "test.html")
 #+end_src

 
 #+begin_src scheme :scheme racket 
   (banner)
 #+end_src

 
 #+begin_src scheme :scheme chez
   (scheme-version)
 #+end_src

Re: Avoid "Scheme implementation" prompt on export

[Roi Martin]

[-- Attachment #1: Type: text/plain, Size: 1656 bytes --]

Bruno Barbier <brubar.cs@gmail.com> writes:

> My patch fixes a real bug though.  Are you sure org is using the correct
> scheme implementation when doing "C-c C-c" ?

I think it works fine if you set the `org-babel-load-languages' variable
in the elisp code block:

        (org-babel-do-load-languages 'org-babel-load-languages '((emacs-lisp . t)
                                                                 (scheme . t)))

> I just checked exporting my example to html: it works for me.

Have you tried with the htmlize package installed?

  (package-install 'htmlize)

> I'm launching emacs like this:
>
>   emacs -q test_ob-scheme-bug.org
>
> Maybe something is wrong in your configuration ?

I did my last tests launching emacs like this:

        emacs -Q --init-directory=initdir -L ~/src/org-mode/lisp test_ob-scheme-bug.org

I also simplified the elisp code block a bit:

        #+begin_src elisp
          (setq package-archives
                '(("gnu" . "https://elpa.gnu.org/packages/")
                  ("nongnu" . "https://elpa.nongnu.org/nongnu/")))
          (setq package-check-signature t)
          (package-initialize)
          (package-install 'geiser)
          (package-install 'geiser-chez)
          (package-install 'geiser-racket)
          (package-install 'htmlize)
        
          (setq-local org-confirm-babel-evaluate nil)
          (org-babel-do-load-languages 'org-babel-load-languages '((emacs-lisp . t)
                                                                   (scheme . t)))
          (org-export-to-file 'html "test.html")
        #+end_src

I attached my test file.  I hope it helps.

Best,
Roi


[-- Attachment #2: test_ob-scheme-bug.org --]
[-- Type: text/plain, Size: 744 bytes --]

* Mandatory first heading
  :PROPERTIES:
  :header-args:scheme: :exports both :results value
  :END:

#+begin_src elisp
  (setq package-archives
	'(("gnu" . "https://elpa.gnu.org/packages/")
	  ("nongnu" . "https://elpa.nongnu.org/nongnu/")))
  (setq package-check-signature t)
  (package-initialize)
  (package-install 'geiser)
  (package-install 'geiser-chez)
  (package-install 'geiser-racket)
  (package-install 'htmlize)

  (setq-local org-confirm-babel-evaluate nil)
  (org-babel-do-load-languages 'org-babel-load-languages '((emacs-lisp . t)
							   (scheme . t)))
  (org-export-to-file 'html "test.html")
#+end_src

#+begin_src scheme :scheme racket 
  (banner)
#+end_src

#+begin_src scheme :scheme chez
  (scheme-version)
#+end_src

Avoid "Scheme implementation" prompt on export

[Roi Martin]

Hello,

I have an org document with the following structure:

---
Racket code block:

#+begin_src scheme
  #lang racket
  (+ 1 2)
#+end_src

Chez Scheme code block:

#+begin_src scheme
  (+ 3 4)
#+end_src
---

It includes several code blocks with different scheme implementations
(e.g. Racket and Chez).

When I export the document to HTML, both from the Org Export Dispatcher
(C-c C-e) or calling (org-publish-all), I'm asked to choose a "Scheme
implementation" for every code block.

If I understand correctly, I can set a default Scheme implementation
with the `geiser-scheme-implementation' variable.  However, I would like
to specify an implementation per block without having to answer the
prompt every time.

Is it possible?

Just in case, it is useful, I'm using the following package versions:

- GNU Emacs 29.4
- org 9.6.15
- geiser 20240907.2235
- geiser-chez 20230707.1334
- geiser-guile 20240920.35
- geiser-racket 20210421.125
- htmlize 20240915.1657

Thanks for your help!

Best,
        Roi

Re: Avoid "Scheme implementation" prompt on export

[Bruno Barbier]

Hi Roi,

Roi Martin <jroi.martin@gmail.com> writes:

> If I understand correctly, I can set a default Scheme implementation
> with the `geiser-scheme-implementation' variable.  However, I would like
> to specify an implementation per block without having to answer the
> prompt every time.
>
> Is it possible?

According to the current source code, you should be able to pick the
scheme implementation using the :scheme argument (either per block, per
heading, or per buffer). It should take the same value as the variable
'geiser-scheme-implementation'.


I don't have any scheme installed: I couldn't test it.  Note that if
you're using sessions, that value will probably be ignored for already
opened sessions.

HTH,

Bruno

Re: Avoid "Scheme implementation" prompt on export

[Roi Martin]

Sorry, I forgot to reply to the list.

Roi Martin <jroi.martin@gmail.com> writes:

> Hi Bruno,
>
> Bruno Barbier <brubar.cs@gmail.com> writes:
>
>> According to the current source code, you should be able to pick the
>> scheme implementation using the :scheme argument (either per block, per
>> heading, or per buffer). It should take the same value as the variable
>> 'geiser-scheme-implementation'.
>
> I tried with:
>
> #+begin_src scheme :scheme chez
>   (+ 3 4)
> #+end_src
>
> and also with ':scheme racket'.
>
> Unfortunately, it does not seem to work when exporting the document.
>
> Thanks for your help!
>
>         Roi

Re: Avoid "Scheme implementation" prompt on export

[Bruno Barbier]

[-- Attachment #1: Type: text/plain, Size: 767 bytes --]

Roi Martin <jroi.martin@gmail.com> writes:

>> I tried with:
>>
>> #+begin_src scheme :scheme chez
>>   (+ 3 4)
>> #+end_src
>>
>> and also with ':scheme racket'.
>>
>> Unfortunately, it does not seem to work when exporting the document.
>>
>> Thanks for your help!
>>
>>         Roi

I've installed chez and racket.  Indeed, the argument :session
if half-ignored.

I've attached a quick ugly hack; with that change, it is now working
for me.

    #+begin_src scheme :scheme racket
      (banner)
    #+end_src

    #+RESULTS:
    : Welcome to Racket v8.14 [cs].\n

    (setq-default geiser-chez-binary "chezscheme")
    #+begin_src scheme :scheme chez 
      (scheme-version)
    #+end_src

    #+RESULTS:
    : Chez Scheme Version 10.0.0

Could you try it?

Bruno


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: ob-scheme: Hack to pass the implementation to 'geiser-mode' --]
[-- Type: text/x-patch, Size: 918 bytes --]

From dbb3068bd3e22ee8d38c99c69061b26d3a4064d6 Mon Sep 17 00:00:00 2001
From: Bruno BARBIER <brubar.cs@gmail.com>
Date: Tue, 15 Oct 2024 12:42:44 +0200
Subject: [PATCH] ob-scheme: Hack to pass the implementation to 'geiser-mode'

---
 lisp/ob-scheme.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/ob-scheme.el b/lisp/ob-scheme.el
index 29fdcd1ec..7bf8acf6c 100644
--- a/lisp/ob-scheme.el
+++ b/lisp/ob-scheme.el
@@ -184,7 +184,9 @@ (defun org-babel-scheme-execute-with-geiser (code output impl repl &optional hos
       (newline)
       (let ((beg (point)))
         (insert code)
-        (geiser-mode)
+        ;; Hack to pass our 'impl' to 'geiser-mode'.
+        (let ((geiser-impl--implementation impl))
+          (geiser-mode))
         (let ((geiser-repl-window-allow-split nil)
 	      (geiser-repl-use-other-window nil))
 	  (let ((repl-buffer (save-current-buffer
-- 
2.45.2