summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorAlan Pearce2016-11-04 11:37:47 +0100
committerAlan Pearce2016-11-04 11:37:47 +0100
commit63731f4cb2e0c5ea4fb1f34ee03f6b510faf4866 (patch)
treee91a8ca24a14b65e88da14cb234865bfa46ff98f
parent0b8ddf67f44e5c2ed994e1605db0482a1aa82193 (diff)
downloaddotfiles-63731f4cb2e0c5ea4fb1f34ee03f6b510faf4866.tar.lz
dotfiles-63731f4cb2e0c5ea4fb1f34ee03f6b510faf4866.tar.zst
dotfiles-63731f4cb2e0c5ea4fb1f34ee03f6b510faf4866.zip
Emacs: Cleanup org-mode configuration
-rw-r--r--tag-emacs/emacs.d/init.org20
1 files changed, 3 insertions, 17 deletions
diff --git a/tag-emacs/emacs.d/init.org b/tag-emacs/emacs.d/init.org
index 5166a03..2a7eaf5 100644
--- a/tag-emacs/emacs.d/init.org
+++ b/tag-emacs/emacs.d/init.org
@@ -1398,8 +1398,6 @@ works really nicely.
 
 Org is wünderbar.
 
-*** TODO Check whether all this configuration is necessary or helpful.
-
 #+BEGIN_SRC emacs-lisp
   (use-package org
     :bind (("C-c C-a" . org-agenda-list)
@@ -1417,15 +1415,11 @@ Org is wünderbar.
                     ;; ‘Remember’: new items at top
                     org-reverse-note-order t
 
-                    org-modules '(org-habit
-                                  org-protocol)
+                    org-modules '(org-protocol)
 
                     ;; Add time done to ‘done’ tasks
                     org-log-done 'time
 
-                    ;; Allow refiling into any org file
-                    org-refile-targets '((org-agenda-files :maxlevel . 3))
-
                     org-list-allow-alphabetical t
 
                     org-adapt-indentation nil
@@ -1447,15 +1441,7 @@ Org is wünderbar.
                     org-log-into-drawer "LOGBOOK")
               (set-register ?o `(file . ,(expand-file-name "organiser.org" org-directory)))
               (add-hook 'org-mode-hook #'turn-on-auto-fill)
-              (org-load-modules-maybe t)
-              (defadvice org-clock-in (after wicked activate)
-                "Mark STARTED when clocked in"
-                (save-excursion
-                  (catch 'exit
-                    (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-load-modules-maybe t)))
 #+END_SRC
 
 **** org-babel
@@ -1531,7 +1517,7 @@ I can use this to keep a journal.  I should use it.
                                   (file-name-as-directory org-mobile-directory)
                                   org-mobile-capture-file))))
                   (setq org-mobile-watcher
-                        (file-notify-add-watch org-file '(change) #'ap/org-mobile-pull))))))))
+                        (file-notify-add-watch org-file '(change) #'ap/org-mobile-pull))))))
 #+END_SRC
 
 **** org-caldav