From be6667e171f077384482c4806d851a75bb625085 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Sun, 16 Aug 2015 13:30:57 +0200
Subject: Emacs: Add org-mobile timer setup

---
 tag-emacs/emacs.d/init.org | 42 +++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 41 insertions(+), 1 deletion(-)

(limited to 'tag-emacs/emacs.d/init.org')

diff --git a/tag-emacs/emacs.d/init.org b/tag-emacs/emacs.d/init.org
index 32fa1963..b4264286 100644
--- a/tag-emacs/emacs.d/init.org
+++ b/tag-emacs/emacs.d/init.org
@@ -1505,7 +1505,47 @@ Org is wünderbar.
                     (org-back-to-heading t)
                     (if (looking-at org-outline-regexp) (goto-char (1- (match-end 0))))
                     (if (looking-at (concat " +" org-todo-regexp "\\( +\\|[ \t]*$\\)"))
-                        (org-todo "STARTED")))))))
+                        (org-todo "STARTED")))))
+
+              (defvar org-mobile-push-timer nil
+                "Timer that `org-mobile-push-timer' used to reschedule itself, or nil.")
+
+              (defun org-mobile-push-with-delay (secs)
+                (when org-mobile-push-timer
+                  (cancel-timer org-mobile-push-timer))
+                (setq org-mobile-push-timer
+                      (run-with-idle-timer
+                       (* 1 secs) nil 'org-mobile-push)))
+
+              (add-hook 'after-save-hook
+                        (lambda ()
+                          (when (eq major-mode 'org-mode)
+                            (dolist (file (org-mobile-files-alist))
+                              (if (string= (file-truename (expand-file-name (car file)))
+                                           (file-truename (buffer-file-name)))
+                                  (org-mobile-push-with-delay 30)))
+                            )))
+
+              (run-at-time "00:05" 86400 '(lambda () (org-mobile-push-with-delay 1))) ;; refreshes agenda file each day
+              (org-mobile-pull) ;; run org-mobile-pull at startup
+
+              (defun install-monitor (file secs)
+                (run-with-timer
+                 0 secs
+                 (lambda (f p)
+                   (unless (< p (second (time-since (elt (file-attributes f) 5))))
+                     (org-mobile-pull)))
+                 file secs))
+
+              (install-monitor (file-truename
+                                (concat
+                                 (file-name-as-directory org-mobile-directory)
+                                 org-mobile-capture-file))
+                               5)
+
+              ;; Do a pull every 5 minutes to circumvent problems with timestamping
+              ;; (ie. dropbox bugs)
+              (run-with-timer 0 (* 5 60) 'org-mobile-pull)))
 #+END_SRC
 
 **** org-babel
-- 
cgit 1.4.1