ソースコード貼り付け

はてなソースコードを貼り付ける場合の記法を入力するのが面倒くさい。てけとーにemacs-lispをでっちアップする。
以下の内容を.emacs or .emacs.elにどぞー。text-modeでCtrl+bを押すと補完される。

(define-key text-mode-map "\C-cb" 'hatena-insert-code-block)
(defun hatena-insert-code-block ()
  (interactive)
  (insert ">||\n||<")
  (beginning-of-line))