From 72e2c1dfc5d880f65eb6935133880f122dbca9fd Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Fri, 3 May 2013 09:04:33 +0100
Subject: Emacs: fix logic error in setting up load-path

---
 emacs/init.el | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

(limited to 'emacs')

diff --git a/emacs/init.el b/emacs/init.el
index 7f6c8731..f3277b13 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -26,11 +26,11 @@
               (if (and (not (string-prefix-p "." file))
                        (file-directory-p full-path))
                   (add-to-list 'load-path full-path))))
-          (directory-files *el-get-dir*))))
+          (directory-files path))))
 
 (if (file-exists-p (concat *el-get-dir* "el-get"))
-	(add-to-list 'load-path *el-get-dir*)
-    (add-subdirs-to-load-path *el-get-dir*)
+    (progn (add-subdirs-to-load-path *el-get-dir*)
+	   (add-to-list 'load-path *el-get-dir*))
   (unless (require 'el-get nil t)
     (with-current-buffer
       (url-retrieve-synchronously
@@ -578,7 +578,16 @@
 
                   org-blank-before-new-entry '((heading . t)
                                                (plain-list-item . auto))
-                  org-fontify-done-headline t))
+                  org-fontify-done-headline 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"))))))
   :init (setq org-replace-disputed-keys t
               org-todo-keywords '((sequence "TODO" "STARTED" "|" "DONE")
                                   (sequence "TOLEARN" "LEARNING" "LEARNED" "|" "MASTERED")
-- 
cgit 1.4.1