From 3400affd5de2369edc14936bb03edceae38db4f5 Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Mon, 15 Dec 2014 16:50:03 -0800
Subject: [PATCH] Move custom.el definition, use default mu4e start screen.

---
 init.el | 55 ++++++++++++++++++++++++++++++++-----------------------
 1 file changed, 32 insertions(+), 23 deletions(-)

diff --git a/init.el b/init.el
index 7c180057..a51db1c2 100644
--- a/init.el
+++ b/init.el
@@ -36,15 +36,6 @@
 (defvar predicate nil)
 (defvar inherit-input-method nil)
 
-;; =============================================================================
-;;                                                       Load Path Configuration
-;; =============================================================================
-
-(defvar machine-custom "~/.emacs.d/this-machine.el")
-(setq custom-file "~/.emacs.d/custom.el")
-(when (file-exists-p custom-file) (load custom-file))
-(when (file-exists-p machine-custom) (load machine-custom))
-
 ;; =============================================================================
 ;;                                                         ELPA/package.el/MELPA
 ;; =============================================================================
@@ -154,6 +145,11 @@
 ;;                                                                     functions
 ;; =============================================================================
 
+(defmacro defvar-setq (name value)
+  (if (boundp name)
+      `(setq ,name ,value)
+    `(defvar ,name ,value)))
+
 (defun undo-redo (&optional arg)
   (interactive "P")
   (if arg (undo-tree-redo) (undo-tree-undo)))
@@ -298,6 +294,15 @@ The current directory is assumed to be the project's root otherwise."
              (error "You're not in a project")
            default-directory)))))
 
+;; =============================================================================
+;;                                                       Load Path Configuration
+;; =============================================================================
+
+(defvar machine-custom "~/.emacs.d/this-machine.el")
+(setq custom-file "~/.emacs.d/custom.el")
+(when (file-exists-p custom-file) (load custom-file))
+(when (file-exists-p machine-custom) (load machine-custom))
+
 ;; =============================================================================
 ;;                                                         General Emacs Options
 ;; =============================================================================
@@ -418,15 +423,15 @@ The current directory is assumed to be the project's root otherwise."
     (setq ace-isearch-use-function-from-isearch nil)
     (setq ace-isearch-input-idle-delay 1)))
 
-(use-package flycheck
-  :ensure t
-  :commands (flycheck-mode)
-  :init (add-hook 'after-init-hook #'flycheck-mode)
-  :config
-  (progn
-    (setq flycheck-checkers (delq 'emacs-lisp-checkdoc flycheck-checkers))
-    (global-flycheck-mode)
-    (diminish 'flycheck-mode)))
+;; (use-package flycheck
+;;   :ensure t
+;;   :commands (flycheck-mode)
+;;   :init (add-hook 'after-init-hook #'flycheck-mode)
+;;   :config
+;;   (progn
+;;     (setq flycheck-checkers (delq 'emacs-lisp-checkdoc flycheck-checkers))
+;;     (global-flycheck-mode)
+;;     (diminish 'flycheck-mode)))
 
 (use-package haskell-mode
   :ensure t
@@ -620,14 +625,18 @@ The current directory is assumed to be the project's root otherwise."
       (defvar org-gtd-file "~/org/gtd.org"))
     (unless (boundp 'org-habits-file)
       (defvar org-habits-file "~/org/habits.org"))
-    (unless (boundp 'org-capture-templates)
-      (defvar org-capture-templates nil))
     (unless (boundp 'org-calendar-file)
       (defvar org-calendar-file "~/org/calendar.org"))
+
+    (unless (boundp 'org-capture-templates)
+      (defvar org-capture-templates nil))
+    (message "At org load%s" org-habits-file)
     (setq org-agenda-files
           (--filter (file-exists-p it)
                     (list org-gtd-file org-habits-file org-projectile:projects-file
                           org-calendar-file)))
+
+    (message "At org load%s" org-agenda-files)
     
     (add-to-list 'org-capture-templates
                  `("h" "Habit" entry (file+headline ,org-habits-file "Habits")
@@ -781,9 +790,9 @@ The current directory is assumed to be the project's root otherwise."
           (insert (format "mu4e: --- %s" (documentation major-mode))))))
 
     ;; Don't use the default mu4e start screen
-    (defun mu4e ()
-      (interactive)
-      (mu4e~start 'imalison:mu4e-startup))
+    ;; (defun mu4e ()
+    ;;   (interactive)
+    ;;   (mu4e~start 'imalison:mu4e-startup))
 
     ;; use imagemagick, if available
     (when (fboundp 'imagemagick-register-types)