insert-list.el

;; はてな記法のリスト(-)をいい感じに挿入してくれる
;; C-lを押すたびに深いリストになっていく
(defun insert-list()
  (interactive)
  (let* ((end-point (point))
         (start-point (- end-point 2))
         (str (buffer-substring start-point end-point)))
    (if (string-equal "- " str)
        (delete-backward-char 1))
    (insert "- ")))
(define-key global-map "\C-l" '(lambda () (interactive) (insert-list)))