{"id":3176,"date":"2016-04-05T09:34:24","date_gmt":"2016-04-05T13:34:24","guid":{"rendered":"http:\/\/fgiasson.com\/blog\/?p=3176"},"modified":"2016-06-27T16:39:43","modified_gmt":"2016-06-27T20:39:43","slug":"using-clojure-in-org-mode-and-implementing-asynchronous-processing","status":"publish","type":"post","link":"https:\/\/fgiasson.com\/blog\/index.php\/2016\/04\/05\/using-clojure-in-org-mode-and-implementing-asynchronous-processing\/","title":{"rendered":"Using Clojure in Org-mode and Implementing Asynchronous Processing"},"content":{"rendered":"
\n
\n
\n

I recently started to get interested in Org-mode<\/a> which was still unknown to me just a few weeks ago until I read this great article<\/a> from Howard Abrams about literate programming<\/a> using Org-mode. Initially I was wondering what this Emacs package was really about (it does all kind of things like document outlining (\u00c3\u00a0 la Markdown), tasks management and planning, agenda generation, time clocking\u00e2\u20ac\u00a6 and it has a series of features related to literal programming<\/a> that let you embed and run code blocks<\/code> using sub-processes and to display results directly into the Org-mode [text] document.<\/p>\n

What I was really interested in are the code block<\/code> related features of Org-mode. Initially I wanted to test Org-mode using as a Notebook application but I also wanted to re-start trying to coding in literate programming<\/code> format. I will extend on the later in my next blogpost, for now I will concentrate on why I want to use Org-mode as notebook style programming user interfaces. Since everything I code these days is in Clojure<\/a> programming language, I wanted to be able to use Org-mode’s code blocks with Clojure.<\/p>\n

Finally I will describes a few issues I experimented in the process and how I update the Org-babel-clojure package to fix those issues.<\/p>\n<\/div>\n

\n

Notebook Creations Using Org-mode<\/h3>\n
\n

My partner Mike Bergman got me interested in notebook style programming user interfaces maybe a year ago. We wanted to find a way to easily experiment with different data management structures and frameworks we are developing at Structured Dynamics<\/a>. The idea behind a Notebook was quite interesting: it is to run code snippets anywhere in a document, to see the results within that document and finally to be able to document the process. Then if something changed in the data, or in the code, then each code snipped within a Notebook could be rerun at any time, and the results updated. This is a great way to do experimentation, to keep tracks of the tests your are doing and to document the whole process.<\/p>\n

The idea is really interesting for the kind of work we are doing. I tested the Gorilla REPL<\/a> which is an implementation of this style user interface in Clojure. Other such interfaces exists in other programming languages like IPython<\/a>, Wolfram<\/a>, etc. However, I always had an issue with what I was using: I had a hard time re-purposing the content I was creating; I couldn’t easily export this information in different format (blog posts, papers, etc.). Saving, reloading, re-running in different environment was often too much trouble: until I find Org-mode.<\/p>\n

I am not sure why I didn’t came across Org-mode before, maybe because it was not advertised as as “notebook style programming user interface” but this is really what it is (mostly) all about, at least to me. As far as I know, this is the only such software that let you work with any kind of programming language in the same notebook. It can also export the notebooks in virtually any formats (several formats are supported by Org-mode itself, others can be exported using Pandoc<\/a>).<\/p>\n

This being said, I started experimenting with Org-mode to create different kind of Notebooks using Clojure. I am using notebooks that shows how to use different APIs we are creating, or ones that shows how different data processing workflows actually works or that shows how some structures (like UMBEL<\/a>) have been created and how they can be leveraged. I am also creating notebooks to research and experiment different kind of algorithms that we are trying to implement in our products, or to do bug investigation reports for our clients, or\u00e2\u20ac\u00a6 the possibilities are probably endless. But the core idea is almost always the same: communication. We write these notebooks to communicate (write) information for other people to consume (or more important, his future self).<\/p>\n

Given this kind of tasks that I am performing in a notebook, I often have to run procedures that may takes minutes or even hours before their processing is finalized. However, as you will see below, running procedures that takes minutes to finalize is a show stopper with the current Org-mode Org-babel-clojure (ob-clojure.el)=<\/code> package that let Org-mode to run Clojure code.<\/p>\n<\/div>\n<\/div>\n

\n

Installing & Configuring Org-mode<\/h3>\n
\n

Before outlining the issues I had with the current implementation of the Org-babel-clojure<\/a> package, let me explain how I installed and configured Org-mode locally.<\/p>\n

First of all I installed Org-mode contribs<\/code> from ELPA, then I configured it that way in my .emacs<\/code> file. Note that I made multiple little changes here and there to end-up with the kind of editor I am comfortable to use. So this is about installing, enabling and tweaking Org-mode in Emacs:<\/p>\n

\n
;; <\/span>Configure Org-mode with Cider<\/span>\n\n;; <\/span>Load Org-mode<\/span>\n(<\/span>add-to-list 'load-path \"~\/.emacs.d\/lib\/org-mode\/\"<\/span>)<\/span>\n(<\/span>require<\/span> 'org<\/span>)<\/span>\n\n;; <\/span>Here I specify the languages I want to be able to use with Org-babel.<\/span>\n(<\/span>org-babel-do-load-languages\n 'org-babel-load-languages\n '(<\/span>(<\/span>clojure . t)<\/span>\n   (<\/span>sh . t)<\/span>\n   (<\/span>emacs-lisp . t)<\/span>)<\/span>)<\/span>\n\n;; <\/span>Specify the Clojure back-end we want to use in Org-mode.<\/span>\n;; <\/span>I personally use Cider, but one could specify Slime<\/span>\n(<\/span>setq org-babel-clojure-backend 'cider)<\/span>\n\n;; <\/span>Let's have pretty source code blocks<\/span>\n(<\/span>setq org-edit-src-content-indentation 0\n      org-src-tab-acts-natively t\n      org-src-fontify-natively t\n       org-confirm-babel-evaluate nil\n      org-support-shift-select 'always)<\/span>\n\n;; <\/span>Useful keybindings when using Clojure from Org<\/span>\n(<\/span>org-defkey org-mode-map \"\\C-x\\C-e\"<\/span> 'cider-eval-last-sexp)<\/span>\n(<\/span>org-defkey org-mode-map \"\\C-c\\C-d\"<\/span> 'cider-doc)<\/span>      \n\n(<\/span>require<\/span> 'cider<\/span>)<\/span>\n\n;; <\/span>Remove the markup characters, i.e., \"\/text\/\" becomes (italized) \"text\"<\/span>\n(<\/span>setq org-hide-emphasis-markers t)<\/span>\n\n;; <\/span>No timeout when executing calls on Cider via nrepl<\/span>\n(<\/span>setq org-babel-clojure-nrepl-timeout nil)<\/span>\n\n;; <\/span>Turn on visual-line-mode for Org-mode only<\/span>\n;; <\/span>Note: you have to install \"adaptive-wrap\" from elpa<\/span>\n(<\/span>add-hook 'org-mode-hook 'turn-on-visual-line-mode)<\/span>\n\n;; <\/span>Enable Confluence export (or any other contributed export formats)<\/span>\n(<\/span>require<\/span> 'ox-confluence<\/span>)<\/span>\n<\/pre>\n<\/div>\n
Note that most of these configurations comes from the Org-babel-clojure<\/a> webpage.<\/p>\n<\/div>\n<\/div>\n
\n
Timeout issues<\/h3>\n
\n
The first issue I encountered is when I started to run code that was taking longer than 10 seconds. Every time I was running such code, I ran into the follow error:<\/p>\n
“nrepl-send-sync-request: Sync nREPL request timed out”<\/p><\/blockquote>\n
What this error means is the the synchronous request to nREPL (the Clojure back-end that run the actual code written into Org-mode) timeout. I was really not expecting a query to timeout that way. This led me to start reading the Org-babel-clojure<\/code> code to see where such an error may be coming from. However, I have to do a disclaimer here: I never really looked into Elisp<\/code> code until now. The only other work I did with Elisp was to configure Emacs so be indulgent with me and report all awkward code I may be writing here.<\/p>\n
My journey started with the ob-clojure.el<\/a> which is the file used to make the bridge between Org-mode and the Clojure back-end (Cider\/nREPL in this case). It is after reading that code that I noticed the following function: org-babel-execute:clojure<\/code> which appeared to be the thing that is run when we run a Clojure code block in Org-mode. Then I noticed the call to the function nrepl-sync-request:eval<\/code>. That needed to be the culprit and what sent this Sync<\/i> timeout error. I found this function in the Cider code<\/a>. But then I found this other function that is called by the later: nrepl-send-sync-request<\/a>. It is when I read this function that I noticed the nrepl-sync-request-timeout<\/a> variable. Looking back at org-babel-execute:clojure<\/code> I couldn’t see where I could define this timeout parameter. I looks like it was not possible to define it, which was a big issue to me since I needed to be able to run procedure that takes minutes to run.<\/p>\n
It is at that time that I choose to hack the ob-clojure.el<\/code> code to expose that timeout setting such that I could setup it properly for my own needs. The code I created for that purpose is:<\/p>\n
\n
; <\/span>Addition of the org-babel-clojure-nrepl-timeout setting<\/span>\n(<\/span>defvar<\/span> org-babel-clojure-nrepl-timeout<\/span> nil)<\/span>\n\n(<\/span>defun<\/span> org-babel-execute:clojure<\/span> (<\/span>body params)<\/span>\n  \"Execute a block of Clojure code with Babel.\"<\/span>\n  (<\/span>let<\/span> (<\/span>(<\/span>expanded (<\/span>org-babel-expand-body:clojure body params)<\/span>)<\/span>\n        result)<\/span>\n    (<\/span>case org-babel-clojure-backend\n      (<\/span>cider\n       (<\/span>require<\/span> 'cider<\/span>)<\/span>\n       (<\/span>let<\/span> (<\/span>(<\/span>result-params (<\/span>cdr (<\/span>assoc :result-params<\/span> params)<\/span>)<\/span>)<\/span>)<\/span>\n         (<\/span>setq result\n               (<\/span>nrepl-dict-get\n                ; <\/span>Addition of the org-babel-clojure-nrepl-timeout setting<\/span>\n                (<\/span>let<\/span> (<\/span>(<\/span>nrepl-sync-request-timeout org-babel-clojure-nrepl-timeout)<\/span>)<\/span>\n                  (<\/span>nrepl-sync-request:eval\n                   expanded (<\/span>cider-current-connection)<\/span> (<\/span>cider-current-session)<\/span>)<\/span>)<\/span>\n                (<\/span>if<\/span> (<\/span>or (<\/span>member \"output\"<\/span> result-params)<\/span>\n                        (<\/span>member \"pp\"<\/span> result-params)<\/span>)<\/span>\n                    \"out\"<\/span>\n                  \"value\"<\/span>)<\/span>)<\/span>)<\/span>)<\/span>)<\/span>\n      (<\/span>slime\n       (<\/span>require<\/span> 'slime<\/span>)<\/span>\n       (<\/span>with-temp-buffer<\/span>\n         (<\/span>insert expanded)<\/span>\n         (<\/span>setq result\n               (<\/span>slime-eval\n                `(<\/span>swank:eval-and-grab-output\n                  ,(<\/span>buffer-substring-no-properties (<\/span>point-min)<\/span> (<\/span>point-max)<\/span>)<\/span>)<\/span>\n                (<\/span>cdr (<\/span>assoc :package<\/span> params)<\/span>)<\/span>)<\/span>)<\/span>)<\/span>)<\/span>)<\/span>\n    (<\/span>org-babel-result-cond (<\/span>cdr (<\/span>assoc :result-params<\/span> params)<\/span>)<\/span>\n      result\n      (<\/span>condition-case<\/span> nil (<\/span>org-babel-script-escape result)<\/span>\n        (<\/span>error<\/span> result)<\/span>)<\/span>)<\/span>)<\/span>)<\/span>\n<\/pre>\n<\/div>\n
What I modified in this code is to add a new global setting org-babel-clojure-nrepl-timeout<\/code>. If this setting is nil<\/code> then there won’t be any timeout, otherwise the timeout value will be in seconds. What I did is simply to bind its value to the nREPL setting nrepl-sync-request-timeout<\/code> and be done with it.<\/p>\n
That solved this issue. After I updated ob-clojure.el<\/code> accordingly, I could run Clojure code that may takes several minutes in Org-mode! That was fanstastic, but it was not optimal.<\/p>\n
In fact, when I am running workflows that may take 30 minutes to finalize, I normally output processing steps in the REPL such that I know where the process is and what it is currently processing.<\/p>\n
The problem with the current implementation of Org-babel-clojure<\/code> is that it uses the synchronous API of the nREPL. What I want is to be able to run Clojure code asynchronously such that I can get some feedbacks (via the REPL) from the procedure I am running. This opened a kind of a Pandora box, and something that looked simple turned out to be more complex than anticipated for someone without any knowledge into Elisp, internal mechanisms and APIs of Emacs.<\/p>\n<\/div>\n<\/div>\n
\n
Making Org-babel-clojure “Asynchrone”<\/h3>\n
\n
The next goal I had is to try to make Org-babel-clojure<\/code> asynchrone. What I wanted is to be able to get, somehow, was the output of a Clojure procedure when that procedure was outputing something to the REPL. My second journey started after reading John Kitchin’s blog post about Asynchronously running Python code<\/a> into Org-mode code blocks. What I found out is that Python code was run via a sub-process<\/code> which run the Python interpreter. John’s solution was to use a local file to write what the interpreter is outputing and then to feed that output to a new window that got created by John’s function.<\/p>\n
I took that example as a given, and then I tried to implement the same solution, but for Clojure (without knowing what I was really doing). It is in this process that I found that the Clojure solution to that problem would be quite different than John’s. There is an asynchronous API in nREPL, it is just that it is not used in Org-babel-clojure<\/code>. What I ended-up using from John’s example is not his code, but his core idea: using a new window to output the asynchrone process and then to kill it once the processing is finalized and before populating #+RESULSTS<\/code> section of the Org-mode file.<\/p>\n
After much testing and debugging I ended-up with the following solution to my problem:<\/p>\n
\n
(<\/span>defun<\/span> org-babel-execute:clojure<\/span> (<\/span>body params)<\/span>\n  \"Execute a block of Clojure code with Babel.\"<\/span>\n  (<\/span>lexical-let* (<\/span>(<\/span>expanded (<\/span>org-babel-expand-body:clojure body params)<\/span>)<\/span>\n                 ; <\/span>name of the buffer that will receive the asyn output<\/span>\n                 (<\/span>sbuffer \"*Clojure Sub Buffer*\"<\/span>)<\/span>\n                 ; <\/span>determine if the :async option is specified for this block<\/span>\n                 (<\/span>async (<\/span>if<\/span> (<\/span>assoc :async<\/span> params)<\/span> t nil)<\/span>)<\/span>\n                 ; <\/span>generate the full response from the REPL<\/span>\n                 (<\/span>response (<\/span>cons 'dict nil)<\/span>)<\/span>\n                 ; <\/span>keep track of the status of the output in async mode<\/span>\n                 status\n                 ; <\/span>result to return to Babel<\/span>\n                 result)<\/span>\n    (<\/span>case org-babel-clojure-backend\n      (<\/span>cider\n       (<\/span>require<\/span> 'cider<\/span>)<\/span>\n       (<\/span>let<\/span> (<\/span>(<\/span>result-params (<\/span>cdr (<\/span>assoc :result-params<\/span> params)<\/span>)<\/span>)<\/span>)<\/span>\n         ; <\/span>Check if the user want to run code asynchronously<\/span>\n         (<\/span>when<\/span> async\n           ; <\/span>Create a new window with the async output buffer<\/span>\n           (<\/span>switch-to-buffer-other-window sbuffer)<\/span>\n\n           ; <\/span>Run the Clojure code asynchronously in nREPL<\/span>\n           (<\/span>nrepl-request:eval\n            expanded \n            (<\/span>lambda<\/span> (<\/span>resp)<\/span> \n              (<\/span>when<\/span> (<\/span>member \"out\"<\/span> resp)<\/span>\n                ; <\/span>Print the output of the nREPL in the asyn output buffer<\/span>\n                (<\/span>princ (<\/span>nrepl-dict-get resp \"out\"<\/span>)<\/span> (<\/span>get-buffer sbuffer)<\/span>)<\/span>)<\/span>\n              (<\/span>nrepl--merge response resp)<\/span>\n              ; <\/span>Update the status of the nREPL output session<\/span>\n              (<\/span>setq status (<\/span>nrepl-dict-get response \"status\"<\/span>)<\/span>)<\/span>)<\/span>\n            (<\/span>cider-current-connection)<\/span> \n            (<\/span>cider-current-session)<\/span>)<\/span>\n\n           ; <\/span>Wait until the nREPL code finished to be processed<\/span>\n           (<\/span>while<\/span> (<\/span>not (<\/span>member \"done\"<\/span> status)<\/span>)<\/span>\n             (<\/span>nrepl-dict-put response \"status\"<\/span> (<\/span>remove \"need-input\"<\/span> status)<\/span>)<\/span>\n             (<\/span>accept-process-output nil 0.01)<\/span>\n             (<\/span>redisplay)<\/span>)<\/span>\n\n           ; <\/span>Delete the async buffer & window when the processing is finalized<\/span>\n           (<\/span>let<\/span> (<\/span>(<\/span>wins (<\/span>get-buffer-window-list sbuffer nil t)<\/span>)<\/span>)<\/span>\n             (<\/span>dolist<\/span> (<\/span>win wins)<\/span>\n               (<\/span>delete-window win)<\/span>)<\/span>\n             (<\/span>kill-buffer sbuffer)<\/span>)<\/span>\n\n           ; <\/span>Put the output or the value in the result section of the code block<\/span>\n           (<\/span>setq result (<\/span>nrepl-dict-get response \n                                        (<\/span>if<\/span> (<\/span>or (<\/span>member \"output\"<\/span> result-params)<\/span>\n                                                (<\/span>member \"pp\"<\/span> result-params)<\/span>)<\/span>\n                                            \"out\"<\/span>\n                                          \"value\"<\/span>)<\/span>)<\/span>)<\/span>)<\/span>\n         ; <\/span>Check if user want to run code synchronously<\/span>\n         (<\/span>when<\/span> (<\/span>not async)<\/span>\n           (<\/span>setq result\n                 (<\/span>nrepl-dict-get\n                  (<\/span>let<\/span> (<\/span>(<\/span>nrepl-sync-request-timeout \n                         org-babel-clojure-nrepl-timeout)<\/span>)<\/span>\n                    (<\/span>nrepl-sync-request:eval\n                     expanded (<\/span>cider-current-connection)<\/span> (<\/span>cider-current-session)<\/span>)<\/span>)<\/span>\n                  (<\/span>if<\/span> (<\/span>or (<\/span>member \"output\"<\/span> result-params)<\/span>\n                          (<\/span>member \"pp\"<\/span> result-params)<\/span>)<\/span>\n                      \"out\"<\/span>\n                    \"value\"<\/span>)<\/span>)<\/span>)<\/span>)<\/span>)<\/span>)<\/span>\n      (<\/span>slime\n       (<\/span>require<\/span> 'slime<\/span>)<\/span>\n       (<\/span>with-temp-buffer<\/span>\n         (<\/span>insert expanded)<\/span>\n         (<\/span>setq result\n               (<\/span>slime-eval\n                `(<\/span>swank:eval-and-grab-output\n                  ,(<\/span>buffer-substring-no-properties (<\/span>point-min)<\/span> (<\/span>point-max)<\/span>)<\/span>)<\/span>\n                (<\/span>cdr (<\/span>assoc :package<\/span> params)<\/span>)<\/span>)<\/span>)<\/span>)<\/span>)<\/span>)<\/span>\n    (<\/span>org-babel-result-cond (<\/span>cdr (<\/span>assoc :result-params<\/span> params)<\/span>)<\/span>\n      result\n      (<\/span>condition-case<\/span> nil (<\/span>org-babel-script-escape result)<\/span>\n        (<\/span>error<\/span> result)<\/span>)<\/span>)<\/span>)<\/span>)<\/span>\n<\/pre>\n<\/div>\n
The first thing this code does, is to expose a new #+BEGIN_SRC<\/code> option called :async<\/code>. If the new :async option<\/code> is specified in a block code for the Clojure<\/code> language, then that code block will be processed asynchronously. What this means is that a new window will be created in Emacs, it will be populated with anything that is outputted to the REPL and then it will be closed once the processing will be finalized.<\/p>\n
Here is an example of a code block that would use that new option:<\/p>\n
#+BEGIN_SRC clojure :results output :async\n\n(dotimes [n 10]\n  (println n \".\")\n  (Thread\/sleep 500))\n\n#+END_SRC\n<\/pre>\n
This code would output “1. 2.” etc into a new window and would close that window when it reaches 10 and then populate the #+RESULTS<\/code> section with the output of the code.<\/p>\n
This code works with the :results<\/code> options output<\/code>, value<\/code> and silent<\/code>. If output<\/code> is specified, then everything that was outputted into the window will be added into the results section of the code block. If value<\/code> is specified, then all output will still be displayed into the window, but only the resulting value will be added to the results section of the code block. If silent<\/code> is specified, then all the output will still be displayed into the window, but nothing will be displayed in the results section of the code block.<\/p>\n
If the :async<\/code> is omitted, then the normal behavior of Org-babel-clojure<\/code> will be used, with the new timeout setting org-babel-clojure-nrepl-timeout<\/code>.<\/p>\n<\/div>\n<\/div>\n
\n
Call for help!<\/h3>\n
\n
As I mentioned above, this is my attempt in coding something for Emacs using Elisp. There are certainly things that should be done differently. So if you have any Elisp and\/or Cider\/nREPL knowledge, and if you have some time to review this code, I am sure we could improve the usage of this function. The only thing I know is that such asynchronous capabilities of the Clojure code blocks is essential.<\/p>\n
There is one major area of improvement that I noted. Right now, the results comes asynchronously, but we still can’t use the Emacs instance to do other things (like writing in the Org-mode file while the process is running in background and results reported in this other buffer. Until this other issue is resolved, I don’t think we can say that this really makes Org-babel-clojure<\/code> really 100% asynchronous. If this can be done (I did not have time to look into this yet), then I think the :async<\/code> feature would be fully and properly integrated, but I am not yet sure if this is possible.<\/p>\n<\/div>\n<\/div>\n<\/div>\n<\/div>\n
\u00c2\u00a0Sources<\/h3>\n
For the ones interested in this update of Org-babel-clojure, here is:<\/p>\n