pukiwiki-pre

普段自分が良くやる作業をelispにしました。
他の人には需要がないかもしれませんが公開しておきます。
通常の文章を、Puikiwikiに整形済みテキストとして貼りたいときに使います。

1. 空行を全角スペースに置換
2. 行頭に半角スペースを挿入
3. バッファ全体をCopy Region

をやっているだけです。

pukiwiki-pre.el

(defun pukiwiki-pre ()
  (interactive)
  (save-excursion
    (goto-char (point-min))
    (replace-regexp "^$" "　")
    (goto-char (point-max))
    (beginning-of-line)
    (forward-char)
    (open-rectangle (point-min) (point))
    (mark-whole-buffer)
    (copy-region-as-kill-nomark (point-min) (point-max))
    )
)