Emacs: Use file-notify for org-mobile
Alan Pearce alan@alanpearce.co.uk
Wed, 20 Jan 2016 21:01:25 +0100
1 files changed, 9 insertions(+), 13 deletions(-)
jump to
M tag-emacs/emacs.d/init.org → tag-emacs/emacs.d/init.org
@@ -1665,19 +1665,15 @@ (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))))) + (defvar org-mobile-watcher nil) + (let ((org-file (expand-file-name + (concat + (file-name-as-directory org-mobile-directory) + org-mobile-capture-file)))) + (defun ap/org-mobile-pull () + (org-mobile-pull)) + (setq org-mobile-watcher + (file-notify-add-watch org-file '(change) #'ap/org-mobile-pull))))))) #+END_SRC * Programming