Alex Bennée <alex.ben...@linaro.org> writes: > Hi, > > I'm working on adding async call functionality to org-babel blocks so I > don't need to block my main Emacs for long running calculations. However > I'm having problems with the insertion of the results once handled.
Ping? Is this something I should just write a custom routine for to replace a token generated at the initial call? > My > code looks like this: > > (defmacro async-org-call (async-form) > "Expands `ASYNC-FORM' as an asynchronus org-bable function. > If executed inside an org file will insert the results into the src > blocks results. Otherwise the result will be echoed to the Message > buffer." > > (let ((result-buffer (buffer-name)) > (result-org-name (nth 4 (org-babel-get-src-block-info)))) > > `(async-start > > ;; The result of the async-sexp is returned to the handler > ;; as result. > (lambda () > ,(async-inject-variables "async-form") > (eval async-form)) > > ;; This code runs in the current emacs process. > (lambda (result) > (let ((buf ,result-buffer) > (org ,result-org-name)) > > ;; Send the results somewhere > (if (and buf org) > (save-excursion > (with-current-buffer buf > (org-babel-goto-named-result org) > (org-babel-insert-result (format "%s" result)))) > (message (pp (format "async-result: %s" result))))))))) > > However the insert result seems to keep skipping the named result I'm > aiming for (I was calling basic-async-test, the results end up after > async-with-delay in a fresh RESULTS: drawer): > > ** Basic async > > #+name: basic-async-test > #+begin_src emacs-lisp > (async-org-call (format "this is in inferior")) > #+end_src > > #+RESULTS: basic-async-test > : #<process emacs> > > #+name: async-with-delay > #+begin_src emacs-lisp > (async-org-call ((sleep-for 3) (format "woken up"))) > #+end_src > > #+RESULTS: > =this is in inferior > =: this is in inferior > > #+RESULTS: async-with-delay > : #<process emacs> > > Any idea how I can do this better? -- Alex Bennée