Moving to Doom Emacs!

.emacs.d/modules/ui/neotree/README.org

@@ -0,0 +1,9 @@
+#+TITLE: :evil neotree
+
+This module brings a side panel for browsing project files, inspired by vim's
+NERDTree.
+
+#+begin_quote
+Sure, there's dired and projectile, but sometimes I'd like a bird's eye view of
+a project.
+#+end_quote

.emacs.d/modules/ui/neotree/autoload.el

@@ -0,0 +1,71 @@
+;;; ui/neotree/autoload.el -*- lexical-binding: t; -*-
+
+;; `neotree-show' and `neotree-find' don't respect the current project, and open
+;; neotree in `default-directory'. `+neotree/open' and `neotree/find-this-file'
+;; will ensure the neotree pane is always rooted in the project root.
+
+;;;###autoload
+(defun +neotree/open ()
+  "Open the neotree window in the current project."
+  (interactive)
+  (require 'neotree)
+  (if (neo-global--window-exists-p)
+      (neotree-hide)
+    (neotree-dir (or (doom-project-root)
+                     default-directory))))
+
+;;;###autoload
+(defun +neotree/find-this-file ()
+  "Open the neotree window in the current project, and find the current file."
+  (interactive)
+  (let ((path buffer-file-name)
+        (project-root (or (doom-project-root)
+                          default-directory)))
+    (require 'neotree)
+    (cond ((and (neo-global--window-exists-p)
+                (get-buffer-window neo-buffer-name t))
+           (neotree-find path project-root)
+           (neotree-refresh))
+          ((not (and (neo-global--window-exists-p)
+                     (equal (file-truename (neo-global--with-buffer neo-buffer--start-node))
+                            (file-truename project-root))))
+           (neotree-dir project-root)
+           (neotree-find path project-root))
+          (t
+           (neotree-find path project-root)))))
+
+;;;###autoload
+(defun +neotree/collapse-or-up ()
+  "Collapse an expanded directory node or go to the parent node."
+  (interactive)
+  (when-let (node (neo-buffer--get-filename-current-line))
+    (if (file-directory-p node)
+        (if (neo-buffer--expanded-node-p node)
+            (+neotree/collapse)
+          (neotree-select-up-node))
+      (neotree-select-up-node))))
+
+;;;###autoload
+(defun +neotree/collapse ()
+  "Collapse a neotree node."
+  (interactive)
+  (when-let (node (neo-buffer--get-filename-current-line))
+    (when (file-directory-p node)
+      (neo-buffer--set-expand node nil)
+      (neo-buffer--refresh t))
+    (when neo-auto-indent-point
+      (neo-point-auto-indent))))
+
+;;;###autoload
+(defun +neotree/expand-or-open ()
+  "Expand or open a neotree node."
+  (interactive)
+  (when-let (node (neo-buffer--get-filename-current-line))
+    (cond ((file-directory-p node)
+           (neo-buffer--set-expand node t)
+           (neo-buffer--refresh t)
+           (when neo-auto-indent-point
+             (forward-line)
+             (neo-point-auto-indent)))
+          (t
+           (call-interactively #'neotree-enter)))))

.emacs.d/modules/ui/neotree/config.el

@@ -0,0 +1,81 @@
+;;; ui/neotree/config.el -*- lexical-binding: t; -*-
+
+(use-package! neotree
+  :commands (neotree-show
+             neotree-hide
+             neotree-toggle
+             neotree-dir
+             neotree-find
+             neo-global--with-buffer
+             neo-global--window-exists-p)
+  :config
+  (setq neo-create-file-auto-open nil
+        neo-auto-indent-point nil
+        neo-autorefresh nil
+        neo-mode-line-type 'none
+        neo-window-width 24
+        neo-show-updir-line nil
+        neo-theme 'icons
+        neo-banner-message nil
+        neo-confirm-create-file #'off-p
+        neo-confirm-create-directory #'off-p
+        neo-show-hidden-files nil
+        neo-keymap-style 'concise
+        neo-show-hidden-files t
+        neo-hidden-regexp-list
+        '(;; vcs folders
+          "^\\.\\(?:git\\|hg\\|svn\\)$"
+          ;; compiled files
+          "\\.\\(?:pyc\\|o\\|elc\\|lock\\|css.map\\|class\\)$"
+          ;; generated files, caches or local pkgs
+          "^\\(?:node_modules\\|vendor\\|.\\(project\\|cask\\|yardoc\\|sass-cache\\)\\)$"
+          ;; org-mode folders
+          "^\\.\\(?:sync\\|export\\|attach\\)$"
+          ;; temp files
+          "~$"
+          "^#.*#$"))
+
+  (set-popup-rule! "^ ?\\*NeoTree" :ignore t)
+
+  (after! winner
+    (add-to-list 'winner-boring-buffers neo-buffer-name))
+
+  ;; The cursor always sits at bol. `+neotree--fix-cursor-h' and
+  ;; `+neotree--indent-cursor-a' change that behavior so that the cursor is
+  ;; always on the first non-blank character on the line, in the neo buffer.
+  (add-hook! 'neo-enter-hook
+    (defun +neotree-fix-cursor-h (&rest _)
+      (with-current-buffer neo-global--buffer
+        (+neotree--indent-cursor-a))))
+
+  (defadvice! +neotree--indent-cursor-a (&rest _)
+    :after '(neotree-next-line neotree-previous-line)
+    (beginning-of-line)
+    (skip-chars-forward " \t\r"))
+
+  (map! :map neotree-mode-map
+        :n "g"      nil
+        :n "TAB"    #'neotree-quick-look
+        :n "RET"    #'neotree-enter
+        :n [tab]    #'neotree-quick-look
+        :n [return] #'neotree-enter
+        :n "DEL"    #'evil-window-prev
+        :n "c"      #'neotree-create-node
+        :n "r"      #'neotree-rename-node
+        :n "d"      #'neotree-delete-node
+        :n "j"      #'neotree-next-line
+        :n "k"      #'neotree-previous-line
+        :n "n"      #'neotree-next-line
+        :n "p"      #'neotree-previous-line
+        :n "h"      #'+neotree/collapse-or-up
+        :n "l"      #'+neotree/expand-or-open
+        :n "J"      #'neotree-select-next-sibling-node
+        :n "K"      #'neotree-select-previous-sibling-node
+        :n "H"      #'neotree-select-up-node
+        :n "L"      #'neotree-select-down-node
+        :n "G"      #'evil-goto-line
+        :n "gg"     #'evil-goto-first-line
+        :n "v"      #'neotree-enter-vertical-split
+        :n "s"      #'neotree-enter-horizontal-split
+        :n "q"      #'neotree-hide
+        :n "R"      #'neotree-refresh))

.emacs.d/modules/ui/neotree/packages.el

@@ -0,0 +1,4 @@
+;; -*- no-byte-compile: t; -*-
+;;; ui/neotree/packages.el
+
+(package! neotree)