Updating Doom Emacs.

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

@@ -1,22 +1,5 @@
 ;;; ui/treemacs/autoload.el -*- lexical-binding: t; -*-
 
-(defun +treemacs--init ()
-  (require 'treemacs)
-  (let ((origin-buffer (current-buffer)))
-    (cl-letf (((symbol-function 'treemacs-workspace->is-empty?)
-               (symbol-function 'ignore)))
-      (treemacs--init))
-    (dolist (project (treemacs-workspace->projects (treemacs-current-workspace)))
-      (treemacs-do-remove-project-from-workspace project))
-    (with-current-buffer origin-buffer
-      (let ((project-root (or (doom-project-root) default-directory)))
-        (treemacs-do-add-project-to-workspace
-         (treemacs--canonical-path project-root)
-         (doom-project-name project-root)))
-      (setq treemacs--ready-to-follow t)
-      (when (or treemacs-follow-after-init treemacs-follow-mode)
-        (treemacs--follow)))))
-
 ;;;###autoload
 (defun +treemacs/toggle ()
   "Initialize or toggle treemacs.
@@ -29,13 +12,6 @@ Use `treemacs' command for old functionality."
   (require 'treemacs)
   (pcase (treemacs-current-visibility)
     (`visible (delete-window (treemacs-get-local-window)))
-    (_ (+treemacs--init))))
-
-;;;###autoload
-(defun +treemacs/find-file (arg)
-  "Open treemacs (if necessary) and find current file."
-  (interactive "P")
-  (let ((origin-buffer (current-buffer)))
-    (+treemacs--init)
-    (with-current-buffer origin-buffer
-      (treemacs-find-file arg))))
+    (_ (if (doom-project-p)
+           (treemacs-add-and-display-current-project)
+         (treemacs)))))