TSV to S-exp

tsv-to-sexp.el

(require 'cl)

(defun tsv-to-sexp (&optional b e)
  "TSV to S-exp"
  (interactive "r")
  (lexical-let ((str (buffer-substring b e)))
    (delete-region b e)
    (insert (pprint (mapcar (lambda (line) (split-string line "\t"))
			    (split-string str "\n"))))))

(defun pprint (form &optional output-stream)
  "pretty print S-exp found at http://stackoverflow.com/a/3552347"
  (princ (with-temp-buffer
           (cl-prettyprint form)
           (buffer-string))
         output-stream))