 
 ;; Saner window management
 (use-package window-purpose
-  :after magit undo-tree
+  :after magit undo-tree shut-up
   :config
 
   ;; Pending https://github.com/bmag/emacs-purpose/pull/116

                    (when (and file-path
                               (cl-delete-if #'window-dedicated-p
                                             (purpose-windows-with-purpose 'code1-dired)))
                      (let ((buffer (dired-noselect (file-name-directory file-path))))
                        (dolist (other-buf (purpose-buffers-with-purpose 'code1-dired))
                          (when (and (not (eq buffer other-buf))
                                     (not (string= (buffer-name other-buf)

  (assq-delete-all 'undo-tree-mode minor-mode-map-alist)
  ;; Map the usual undo key to undo-tree-visualize
  (bind-key "C-x u" 'undo-tree-visualize))

;; Quiet down noisy config gracefully
(use-package shut-up)

;; Move around windows with shifted arrow keys
(use-package windmove
