TSV to ruby

tsv-to-ruby.el

(require 'cl)

(defun tsv-to-ruby (&optional b e)
  "TSV to ruby"
  (interactive "r")
  (lexical-let ((str (buffer-substring b e)))
    (delete-region b e)
    (insert (mapconcat #'identity
		       (list "["
			     (mapconcat #'tsv-to-ruby-line (split-string str "\n") ",\n ")
			     "]")
		       ""))))

(defun tsv-to-ruby-line (line)
  (mapconcat #'identity
	     (list "["
		   (mapconcat #'tsv-to-ruby-elem (split-string line "\t") ", ")
		   "]")
	     ""))

(defun tsv-to-ruby-elem (elem)
  (format "%S" elem))