Re: Avoid "Scheme implementation" prompt on export

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

Ihor Radchenko <yantar92@posteo.net> writes:

> Bruno Barbier <brubar.cs@gmail.com> writes:
>
>>>> #+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.
>
> :scheme header argument does not affect export by default.
> It only affects code evaluation and may only affect export when you also
> have :eval yes and :exports both/results.

We all agree here I guess.


>> @@ -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))
>
> Just a line before Org tells geiser to use IMPL value via
> (insert (format ";; -*- geiser-scheme-implementation: %s -*-" impl))
>
> I am not sure what you are trying to fix here.

I'm not sure either.  Maybe, during my tests, the function
'geiser-impl--guess' somehow ignored the local variable
'geiser-scheme-implementation'.

Anyway, with a fresh org, the nongnu geiser and an empty config, that
hack seems useless indeed.

Good catch! Thanks!

>
> -- 
> Ihor Radchenko // yantar92,
> Org mode contributor,
> Learn more about Org mode at <https://orgmode.org/>.
> Support Org development at <https://liberapay.com/org-mode>,
> or support my work at <https://liberapay.com/yantar92>