emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed

From: dalanicolai <dalanicolai@gmail.com>
To: emacs-orgmode@gnu.org
Subject: [FR] Add support for racket images in org-babel
Date: Fri, 16 Dec 2022 01:11:16 +0100	[thread overview]
Message-ID: <CACJP=3mrs_aMakG7rTpeAGCYmtnxqmyia18PsPAu6EaDvjFRsA@mail.gmail.com> (raw)

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

Hello,

I am trying out racket <https://racket-lang.org/> which seems to provide a
quite nice plotting package <https://docs.racket-lang.org/plot/index.html>.
Also, it is easy to install and configure, easy to learn. and it has great
learning material.
It looks like a great simple (compared to common-lisp or clojure)
alternative to python
(so far for the enthusiasm).

I have not asked anywhere yet, but I do not know a 'standard org-mode' way
to make org-mode show the plot images. Racket creates a temp image file and
returns a string that includes the path to the file. The actual format of
the string is:

"\"#<Image: /var/tmp/geiser-img-16711484841671148484684.png>\""

I could create a patch for it, but I am not sure how to best implement it
(in a clean way).

Currently, I am simply using the following advice (while including in the
header ':results file'):

  (with-eval-after-load 'ob-scheme
>     (defun ob-racket-advice (orig-fun &rest args)
>       (let ((result (print (apply orig-fun args))))
>         (if (string-match "\"#<Image: " (print result))
>             (nth 1 (string-split result " " nil ">\""))
>           result)))
>
>     (advice-add 'org-babel-execute:scheme :around #'ob-racket-advice))
>

however, it would be great if support could be added to ob-scheme itself.
I would be happy to do it, but as mentioned before I don't think I know how
to do it in the proper way. I would probably just add a condition around the
'result' in 'org-babel-execute:scheme' as follows:

  (org-babel-result-cond result-params
>    (if (and (eq impl 'racket)
>                      (string-match "\"#<Image: " (print result)))
>                 (nth 1 (string-split result " " nil ">\""))
>               result)
>    (org-babel-scheme--table-or-string table)))))))
>

Thank you!

[-- Attachment #2: Type: text/html, Size: 2708 bytes --]

next             reply	other threads:[~2022-12-16  0:12 UTC|newest]

Thread overview: 4+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2022-12-16  0:11 dalanicolai [this message]
2022-12-18 12:38 ` [FR] Add support for racket images in org-babel Ihor Radchenko
2022-12-21 12:34   ` dalanicolai
2022-12-29 14:02     ` Ihor Radchenko

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to='CACJP=3mrs_aMakG7rTpeAGCYmtnxqmyia18PsPAu6EaDvjFRsA@mail.gmail.com' \
    --to=dalanicolai@gmail.com \
    --cc=emacs-orgmode@gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).