elisp / Quote selected region as python-list.

quote-as-list.el

(eval-when-compile (require 'cl))

;;; Quote selected region as python-list.
(defun quote-as-list ()
  ;; a t g c                                                           
  ;; -> ["a", "t", "g", "c"]                                           

  (interactive)
  ;; cut region as `seq`                                               
  (setq seq (buffer-substring (region-beginning) (region-end)))
  (delete-region (region-beginning) (region-end))

  ;; split `seq` as `subseqs`                                          
  (setq subseqs (split-string seq))

  ;; print quoted subseqs as python-list: ["a", "t", "g", "c"]         
  (insert-string "[")
  (let ((i 0))
    (setq n (length subseqs))
    (dolist (subseq subseqs)
      (insert-string (format "\"%s\"" subseq))
      (incf i)
      (if (not (equal i n))
        (insert-string ", "))))
  (insert-string "]")
)