Skip to content

Instantly share code, notes, and snippets.

@tomjack

tomjack/org-babel-old.diff Secret

Created September 21, 2010 04:12
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save tomjack/60c9ea86b1d2064bbb73 to your computer and use it in GitHub Desktop.
Save tomjack/60c9ea86b1d2064bbb73 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
org-babel-old.diff
46c46
< ;(require 'swank-clojure)
---
> (require 'swank-clojure)
108,124c108,115
< (if (string-match "^\\(?:#<[A-Z][a-z]+ \\)?\\[.+\\]>?$" results)
< (org-babel-read
< (concat
< "'"
< (replace-regexp-in-string
< "\\[" "("
< (replace-regexp-in-string
< "\\]" ")"
< (replace-regexp-in-string
< ", " " "
< (replace-regexp-in-string
< "'" "\""
< (replace-regexp-in-string
< "]>$" "]"
< (replace-regexp-in-string
< "#<[A-Z][a-z]+ " ""
< results))))))))
---
> (if (string-match "^\\[.+\\]$" results)
> (org-babel-read
> (concat "'"
> (replace-regexp-in-string
> "\\[" "(" (replace-regexp-in-string
> "\\]" ")" (replace-regexp-in-string
> ", " " " (replace-regexp-in-string
> "'" "\"" results))))))
216d206
< (when (stringp repl-buffer) (setq repl-buffer (get-buffer repl-buffer)))
229c219
< (let ((repl-buf (read-buffer "Choose slime-clojure repl: " (car repl-bufs) t)))
---
> (let ((repl-buf (read-buffer "Choose slime-clojure repl: " repl-bufs t)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment