;;; org-agenda-filesに該当するファイルをセーブしたときは、
;;; 一定時間後かEmacs終了時に自動的にorg-mobile-pushを実行する。

(setq my-org-mobile-push-timer-id nil)

(defun my-org-mobile-push-schedule ()
  (my-org-mobile-push-cancel)
  (setq my-org-mobile-push-timer-id
        (run-at-time "1 min" nil 'my-org-mobile-push))
  (add-hook 'kill-emacs-hook 'my-org-mobile-push)
)
(defun my-org-mobile-push-cancel ()
  (if my-org-mobile-push-timer-id
      (progn
        (cancel-timer my-org-mobile-push-timer-id)
        (setq my-org-mobile-push-timer-id nil)))
  (remove-hook 'kill-emacs-hook 'my-org-mobile-push)
)
(defun my-org-mobile-push ()
  (my-org-mobile-push-cancel) ;org-mobile-pre-push-hookをフックしているから不要なんだけど、一応。
  (org-mobile-push))

;; セーブ時に自動pushをスケジュールする。
(add-hook 'org-mode-hook
          ;; NOTE: org-mode-hookが呼ばれるときに
          ;; (org-agenda-files)を使った判定を行うとなぜか終了時
          ;; にorg-mobile-pushが失敗する。仕方ないので判定は
          ;; after-save-hook呼び出し時点で行っている。
          #'(lambda ()
              (add-hook 'after-save-hook
                        #'(lambda ()
                            (if (member (expand-file-name (buffer-file-name)) (mapcar 'expand-file-name (org-agenda-files)))
                                (my-org-mobile-push-schedule)))
                        nil t)
              ))
;; 手動でorg-mobile-pushしたときは自動pushを行わないようにする。
(add-hook 'org-mobile-pre-push-hook #'(lambda ()
                                        (my-org-mobile-push-cancel)))