Emacs(Elisp): Join multi lines to one. 選択範囲を1行にまとめます。

join-multi-lines-to-one.el

;;; ------------------------------------------------------------
;;; 選択範囲を1行にする。最初のインデントは残す。
;; gist-description: Emacs(Elisp): Join multi lines to one. 選択範囲を1行にまとめます。
;; gist-id: ee6b2f8ef659ed58605d
;; gist-name: join-multi-lines-to-one.el
;; gist-private: nil

(defun join-multi-lines-to-one ()
  "Join multi lines."
  (interactive)
  (let ((beg (region-beginning))
        (end (region-end))
        strings)
    (goto-char beg)
    (back-to-indentation)
    (setq beg (point))
    (goto-char end)
    (goto-char (- (point) 1))
    (end-of-line)
    (setq end (point))
    (setq strings (buffer-substring-no-properties beg end))
    (setq strings (replace-regexp-in-string "\n\\|^>+ *\\|^[\t　 ]+" "" strings))
    (setq strings (replace-regexp-in-string "  +" " " strings))
    (delete-region beg end)
    (insert strings)
    (goto-char beg)))

(global-set-key (kbd "<s-kp-divide>") 'join-multi-lines-to-one)
(global-set-key (kbd "s-/") 'join-multi-lines-to-one)