Re: Avoid "Scheme implementation" prompt on export

[Bruno Barbier <brubar.cs@gmail.com>]

[-- 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