*Another* cleanup

core/core-evil.el

@@ -59,8 +59,9 @@
     (evil-set-initial-state `,(car mode-map) `,(cdr mode-map)))
 
   ;; Switch to normal mode before switching windows
-  (defun narf*evil-back-to-normal () (evil-normal-state))
-  (advice-add 'select-window :before 'narf*evil-back-to-normal)
+  (defun narf|evil-back-to-normal (&rest _)
+    (when (eq evil-state 'insert) (evil-normal-state)))
+  (add-hook! narf.window-switch 'narf|evil-back-to-normal)
 
   (progn ; evil hacks
     (defadvice evil-force-normal-state (after evil-esc-quit activate)

core/core-helm.el

@@ -149,7 +149,5 @@
 (use-package helm-command  :commands helm-M-x)
 (use-package helm-descbinds :commands helm-descbinds)
 
-(use-package helm-deft :defer t)
-
 (provide 'core-helm)
 ;;; core-helm.el ends here

modules/module-org.el

@@ -209,8 +209,6 @@ will function properly."
   (defface org-headline-todo '((t ())) "Face for todo headlines")
   (defface org-todo-high '((t ())) "Face for high-priority todo")
   (defface org-todo-vhigh '((t ())) "Face for very high-priority todo")
-  ;; (defface org-item-checkbox '((t ())) "Face for checkbox list lines")
-  ;; (defface org-item-checkbox-checked '((t ())) "Face for checked checkbox list lines")
   (defface org-whitespace '((t ())) "Face for spaces")
   (defface org-list-bullet '((t ())) "Face for list bullets")
   (font-lock-add-keywords

private/my-bindings.el

@@ -74,17 +74,13 @@
    :ni "M-d"  'dash-at-point
 
    ;; Add animated transitions to OSX emacs
-   "M-w"   (λ (if window-system
-                  (mac-start-animation (get-buffer-window) :type 'fade-out :duration 0.25))
-              (call-interactively 'evil-window-delete))
+   "M-w"   'evil-window-delete
    "M-W"   (λ (let ((data (assq (selected-frame) narf-wg-frames)))
                 (if data
                     (progn (wg-delete-workgroup (wg-get-workgroup (cdr data)))
                            (delete-frame (car data)))
                   (delete-frame))))
-   "M-n"   (λ (if window-system
-                  (mac-start-animation (get-buffer-window) :type 'fade-out :duration 0.25))
-              (switch-to-buffer (generate-new-buffer "*new*")))
+   "M-n"   (λ (switch-to-buffer (generate-new-buffer "*new*")))
 
    ;; Textmate-esque indent shift left/right
    :i "M-["           (kbd "C-o m l C-o I DEL C-o ` l")