From 39685ffcd453e713052bb75f6b5131b2b8784ba8 Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Fri, 5 Dec 2014 01:00:03 -0800
Subject: [PATCH] don't take notes by default.

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

diff --git a/init.el b/init.el
index cc77914b..146d259e 100644
--- a/init.el
+++ b/init.el
@@ -155,6 +155,13 @@
 ;;                                                                     functions
 ;; =============================================================================
 
+(defun org-todo-force-notes ()
+  (interactive)
+  (let ((org-todo-log-states
+         (mapcar (lambda (state)
+                   (list state 'note 'time))
+                 (apply 'append org-todo-sets))))))
+
 (defun org-todo-no-note ()
   (interactive)
   (org-todo 0))
@@ -578,9 +585,10 @@ The current directory is assumed to be the project's root otherwise."
          ("C-c n h" . org-insert-habit)
          ("C-c n m" . org-make-habit)
          ("C-c C-t" . org-todo)
-         ("C-c C-S-t" . org-todo-no-note))
+         ("C-c C-S-t" . org-todo-force-notes))
   :config
   (progn
+    (call-interactively 'org-todo)))
     (setq org-habit-graph-column 50)
     (setq org-habit-show-habits-only-for-today nil)
     (unless (boundp 'org-gtd-file)
@@ -651,8 +659,8 @@ The current directory is assumed to be the project's root otherwise."
     ;; Record changes to todo states
     (setq org-log-into-drawer t)
     (setq org-todo-keywords
-          '((sequence "TODO(t@)" "STARTED(s@)" "WAIT(w@/!)" "|"
-                      "DONE(d@/!)" "CANCELED(c@)")))
+          '((sequence "TODO(t!)" "STARTED(s!)" "WAIT(w!)" "|"
+                      "DONE(d!)" "CANCELED(c!)")))
     ;; Stop starting agenda from deleting frame setup!
     (setq org-agenda-window-setup 'other-window)
     (define-key mode-specific-map [?a] 'org-agenda)
@@ -1218,7 +1226,8 @@ The current directory is assumed to be the project's root otherwise."
 (defun disable-all-themes ()
   (interactive)
 (mapcar
- (lambda (theme) (unless (s-contains? "smart-mode" (symbol-name theme)) (disable-theme theme))) custom-enabled-themes))
+ (lambda (theme) (unless (s-contains? "smart-mode" (symbol-name theme))
+                   (disable-theme theme))) custom-enabled-themes))
 
 (defun disable-and-load-theme (theme &optional no-confirm no-enable)
   (interactive