;; 行末のホワイトスペースを削除
(defun delete-eol-spaces-selection ()
  (interactive)
  (exec-selection 'delete-eol-spaces
                  "バッファ全体の行末のホワイトスペースを削除しますよ。"))
(defun delete-eol-spaces ()
  (goto-char (point-min))
  (replace-regexp "[ \t]*$" "" t))

;; 行頭のホワイトスペースを削除
(defun delete-bol-spaces-selection ()
  (interactive)
  (exec-selection 'delete-bol-spaces
                  "バッファ全体の行頭のホワイトスペースを削除しますよ。"))
(defun delete-bol-spaces ()
  (goto-char (point-min))
  (replace-regexp "^[ \t]*" "" t))

;; 行頭行末のホワイトスペースを削除
(defun delete-both-sides-spaces-selection ()
  (interactive)
  (exec-selection 'delete-both-sides-spaces
                  "バッファ全体の行頭行末のホワイトスペースを削除しますよ。"))
(defun delete-both-sides-spaces ()
  (goto-char (point-min))
  (replace-regexp "^[ \t]*\\(.*?\\)[ \t]*$" "\\1" t))

;; 空行を削除（スペースやタブだけの行も含む）
(defun delete-unnecessary-line-selection ()
  (interactive)
  (exec-selection 'delete-unnecessary-line
                  "バッファ全体の空行を削除しますよ。"))
(defun delete-unnecessary-line ()
  (goto-char (point-min))
  (replace-regexp "^[ \t]*\n" "" t))


;; selection に対する処理を行う
;;   selection があれば selection に対して、
;;   なければ buffer に対して処理を行う。
;;   str を指定すると、buffer に対して処理をする場合に、
;;   問い合わせ（str を表示）をしてから処理を実行する。
(defun exec-selection (func &optional str)
  (if (get-selection-type)
      (selection-start-end (start end)
        (save-excursion
          (save-restriction
            (narrow-to-region start end)
            (funcall func)
            (widen))))
    (save-excursion
      (if str
          (and (yes-or-no-p str)(funcall func))
        (funcall func)))))