(require 'annotate)
(setq annotate-file "~/.emacs.d/annotations")
;;; view-modeでも使えるようにする
(defun annotate-editing-text-property (&rest them)
  (let ((bmp (buffer-modified-p))
        (inhibit-read-only t))
    (apply them)
    (set-buffer-modified-p bmp)))
(advice-add 'annotate-change-annotation :around 'annotate-editing-text-property)
(advice-add 'annotate-create-annotation :around 'annotate-editing-text-property)
;;; 規約違反なキーバインドを矯正
(define-key annotate-mode-map (kbd "C-c C-a") nil)
(define-key annotate-mode-map (kbd "C-c a") 'annotate-annotate)

;;; 常に使えるようにする
(add-hook 'find-file-hook 'annotate-mode)