ag91 / ob-clojure-literate-extras

Extends ob-clojure to support including dependencies

These few lines of Elisp simplify the testing of Clojure and ClojureScript libraries with Org Babel (ob-clojure.el).

Just load ob-clojure-literate-extras.el file with load-file and you will be able to run code blocks like these:

(require '[clojure.core.memoize :as m])

(def id (m/ttl
	 #(do (Thread/sleep 1000) (identity %))
	 :ttl/threshold 3000))

(defmacro time-ms [expr]
  `(let [start# (. System (nanoTime))]
     ~expr
     (/ (double (- (. System (nanoTime)) start#) ) (. Math (pow 10 6))))
  )

(time-ms (id 1))
(time-ms (id 1))

(Thread/sleep 3000)

(time-ms (id 1))

(ns example.core
  (:require-macros [cljs.core.async.macros :refer [go]])
  (:require [cljs-http.client :as http]
     [cljs.core.async :refer [<!]]))

(def result (atom {}))
(go (let [response (<! (http/get "https://api.github.com/users"
                                 {:with-credentials? false
                                  :query-params {"since" 135}}))]
      (swap! result #(conj %
                           [:status (:status response)]
                           [:login (map :login (:body response))]))))


@result

ob-clojure-literate-extras's Issues

Error after loading and try to eval clojure code

From the readme, I try following the steps and kept getting the following error:

apply: Wrong number of arguments: (lambda (expanded params) "Evaluate EXPANDED code block with PARAMS using cider." (condition-case nil (require 'cider) (user-error "cider not available")) (let ((connection (cider-current-connection (cdr (assq :target params)))) (result-params (cdr (assq :result-params params))) result0) (if connection nil (let ((my/cider-extra-deps (alist-get :deps params))) (sesman-start-session 'CIDER))) (if (not connection) (setq result0 "Please reevaluate when nREPL is connected") (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert expanded) (goto-char (point-min)) (while (not (looking-at "\\s-*\\'")) (let* (... ... ...) (sit-for 0.1) (let ... ...)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (ob-clojure-string-or-list (reverse (delete "" (mapcar #'(lambda (r) (replace-regexp-in-string "nil" "" ...)) result0))))))), 3

I am using Emacs 28.2 with Doom emacs.
Any idea that I may have missed?

Before these changes, I was able to evaluate the Clojure code with the following code block:

#+begin_src clojure
(+ 1 2)
#+end_src