Yet another massive update

init/init-project.el

@@ -6,28 +6,52 @@
     (defun my-neotree-open (&optional dir)
       (interactive)
       (neotree-dir (or dir (project-root))))
-
     (defun my-neotree-toggle ()
       (interactive)
       (if (neo-global--window-exists-p)
           (neotree-hide)
         (my-neotree-open)))
-
     (defun my-neotree-find ()
       (interactive)
       (save-excursion (my-neotree-open))
-      (neotree-find)))
+      (neotree-find))
+    (add-hook 'neotree-mode-hook 'my-neotree-keymap))
   :config
   (progn
     (setq neo-create-file-auto-open t
-          neo-mode-line-type 'neotree
+          neo-mode-line-type 'none
           neo-persist-show t
-          neo-window-width 28
+          neo-window-width 22
           neo-show-updir-line nil
-          neo-auto-indent-point t)
+          neo-auto-indent-point t
+          neo-banner-message nil
+          ;; requires <https://github.com/jeffplang/emacs-neotree> fork of
+          ;; neotree (at least, until the PR is accepted). Causes neotree to
+          ;; open in a vertical split that consumes the entire height of the
+          ;; frame.
+          neo-modern-sidebar t)
+
+    ;; Custom ascii theme
+    (defun neo-buffer--insert-fold-symbol (name)
+      (let ((n-insert-symbol (lambda (n)
+                               (neo-buffer--insert-with-face
+                                n 'neo-expand-btn-face))))
+        (or (and (equal name 'open)  (funcall n-insert-symbol "- "))
+            (and (equal name 'close) (funcall n-insert-symbol "> "))
+            (and (equal name 'leaf)  (funcall n-insert-symbol "  ")))))
+
+    ;; Close neotree on window changes, to prevent ensuing mindbuggery
+    (add-hook! 'window-configuration-change-hook
+               (unless (and (neo-global--window-exists-p)
+                            (eq (current-buffer) (neo-global--get-buffer)))
+                 (neotree-hide)))
+
+    (after "projectile"
+      (setq projectile-switch-project-action 'neotree-projectile-action))
     (add-to-list 'evil-motion-state-modes 'neotree-mode)
     (defun my-neotree-keymap ()
       (bind evil-motion-state-local-map
+            "ESC"  'neotree-hide
             "\\\\" 'neotree-hide
             "RET" 'neotree-enter
             "J"   'neotree-select-next-sibling-node
@@ -42,9 +66,7 @@
             "q"   'neotree-hide
             "r"   'neotree-rename-node
             "R"   'neotree-change-root
-            "?"   'neotree-))
-
-    (add-hook 'neotree-mode-hook 'my-neotree-keymap)))
+            "?"   'neotree-))))
 
 
 (provide 'init-project)