From 230b70741312438b63e5359773570f7a485128b4 Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Sat, 13 Dec 2014 19:37:04 -0500
Subject: [PATCH] Are there support groups for emacs addicts?

---
 init/init-dev.el    |  3 +--
 init/init-fly.el    | 17 +++++++++++------
 init/init-helm.el   |  2 +-
 init/my-bindings.el | 13 ++++++++++++-
 init/my-settings.el |  1 +
 5 files changed, 26 insertions(+), 10 deletions(-)

diff --git a/init/init-dev.el b/init/init-dev.el
index be908b6ea..39c2ce176 100644
--- a/init/init-dev.el
+++ b/init/init-dev.el
@@ -32,8 +32,7 @@
     (after "evil" (evil-ex-define-cmd "ref[actor]" 'emr-show-refactor-menu))))
 
 ;; todo's
-(use-package hl-todo
-  :init (add-hook! 'after-init-hook (add-hook 'find-file-hook 'hl-todo-mode)))
+(use-package hl-todo :init (add-hook 'find-file-hook 'hl-todo-mode))
 (use-package helm-todo :commands my:helm-todo-search)
 (evil-ex-define-cmd "todo" 'my:helm-todo)
 
diff --git a/init/init-fly.el b/init/init-fly.el
index 99069ff0b..96e2548ba 100644
--- a/init/init-fly.el
+++ b/init/init-fly.el
@@ -1,13 +1,18 @@
 (use-package flycheck
   :defer t
-  :init (add-hook 'prog-mode-hook 'flycheck-mode)
+  :pre-load
+  (setq-default flycheck-indication-mode 'right-fringe
+                ;; Removed checks on idle/change for snappiness
+                flycheck-check-syntax-automatically '(save mode-enabled)
+                flycheck-disabled-checkers '(emacs-lisp-checkdoc emacs-lisp make))
+  :init
+  (dolist (hook '(ruby-mode-hook
+                  python-mode-hook
+                  shell-mode-hook
+                  ))
+    (add-hook hook 'flycheck-mode))
   :config
   (progn ; flycheck settings
-    (setq-default flycheck-indication-mode 'right-fringe
-                  ;; Removed checks on idle/change for snappiness
-                  flycheck-check-syntax-automatically '(save mode-enabled)
-                  flycheck-disabled-checkers '(emacs-lisp-checkdoc make))
-
     (my--cleanup-buffers-add "^\\*Flycheck.*\\*$")
 
     (bind 'normal flycheck-error-list-mode-map
diff --git a/init/init-helm.el b/init/init-helm.el
index 5e482fd5d..f26247444 100644
--- a/init/init-helm.el
+++ b/init/init-helm.el
@@ -66,7 +66,7 @@
           :type inclusive
           :repeat nil
           (interactive "<r><a><!>")
-          (my:helm-ag-search beg end search bang t nil))))
+          (my:helm-ag-search beg end search bang t nil))
 
         (evil-define-operator my:helm-ag-regex-search-cwd (beg end &optional search bang)
           :type inclusive
diff --git a/init/my-bindings.el b/init/my-bindings.el
index e05c2503d..90789716a 100644
--- a/init/my-bindings.el
+++ b/init/my-bindings.el
@@ -103,10 +103,21 @@
                 (evil-normal-state)
                 (evil-visual-restore)))
 
+
+(defun my--enable-linum ()
+  (interactive)
+  (linum-mode 1)
+  (add-hook 'pre-command-hook 'my--disable-linum))
+
+(defun my--disable-linum ()
+  (interactive)
+  (linum-mode 0)
+  (remove-hook 'pre-command-hook 'my--disable-linum))
+
 (bind 'god my-mode-map
       ;; <localleader>
       "\\"   'neotree-toggle
-      ":"    'linum-mode
+      ";"    'linum-mode
       "="    'toggle-transparency
       "e"    'evil-emacs-state
 
diff --git a/init/my-settings.el b/init/my-settings.el
index b2b73d609..f55ee21cb 100644
--- a/init/my-settings.el
+++ b/init/my-settings.el
@@ -86,6 +86,7 @@
                  "\C-w"               'ido-delete-backward-word-updir))
 
 ;; Make ESC quit all the things
+(bind minibuffer-inactive-mode-map [escape] (λ (other-window 1)))
 (bind (list minibuffer-local-map
             minibuffer-local-ns-map
             minibuffer-local-completion-map