clmemo-nesting-list.el

;; insert "- " with nesting
;; for clmemo users

(defun change-log-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 "- ")))