Bruno Barbier <brubar...@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

* 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

Reply via email to