clmemoのファイルをsvnで管理[Linux][emacs]

僕はChangeLogメモを/home/hoge/.clmemo/clmemot.txtといった場所に置いて管理している。
で，会社と家で同じファイルを共有したかったのでsvnで管理するとにした。
いちいちコマンドを打つのがめんどくさいので，こんなのを書いてみた。

; 保存したら自動的にsvn ci -m ""する
(defun auto-svn-commit ()
  "exec 'svn ci -m' command with no log message."
  (if (string-match "clmemo.txt" buffer-file-name)
      (message
       (shell-command-to-string "svn ci -m \"\""))))
(add-hook 'clmemo-mode-hook
  '(lambda () (add-hook 'after-save-hook
'auto-svn-commit)))

とりあえずは常にネットワークが繋がった環境にいるのでこれで困りません。