From 401e4791ec7e666af4b9f219ab5055bb1027fdbf Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Thu, 27 Aug 2015 20:58:36 +0200
Subject: Emacs: Move org-mobile config to right section

---
 tag-emacs/emacs.d/init.org | 81 +++++++++++++++++++++++-----------------------
 1 file changed, 40 insertions(+), 41 deletions(-)

(limited to 'tag-emacs')

diff --git a/tag-emacs/emacs.d/init.org b/tag-emacs/emacs.d/init.org
index 291c802..658acaf 100644
--- a/tag-emacs/emacs.d/init.org
+++ b/tag-emacs/emacs.d/init.org
@@ -1530,46 +1530,6 @@ Org is wünderbar.
                     (if (looking-at org-outline-regexp) (goto-char (1- (match-end 0))))
                     (if (looking-at (concat " +" org-todo-regexp "\\( +\\|[ \t]*$\\)"))
                         (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
@@ -1610,7 +1570,46 @@ I can use this to keep a journal.  I should use it.
     :defer t
     :config (progn
               (setq org-mobile-directory "~/Mobile/Org"
-                    org-mobile-inbox-for-pull "~/Mobile/Org/from-mobile.org")))
+                    org-mobile-inbox-for-pull "~/Mobile/Org/from-mobile.org")
+              (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
 
 * Programming
-- 
cgit 1.4.1