コード片を Markdown 向けに

コードスニペットを Markdown にしてブログに貼り付けることが多いので、こんなのを使っています。 (defun markdown-code-region (beg end) (interactive "r") (save-excursion (save-restriction (untabify beg end) (narrow-to-region beg end) (goto-char (point-min)) (while (search-forward-regexp "\\(^.*\\)" nil t) (replace-match (concat " " (match-string 1))))))) リージョンを選択して M-x markdown-code-region すると、それぞれの行頭にスペースを4つづつ入れます。