Re: Avoid "Scheme implementation" prompt on export

[Roi Martin <jroi.martin@gmail.com>]

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