From 48fd28b543cf411bfc069e20818eb60e113b3df0 Mon Sep 17 00:00:00 2001
From: SqrtMinusOne <thexcloud@gmail.com>
Date: Sat, 31 Jul 2021 09:46:48 +0300
Subject: [PATCH] feat(emacs): treemacs-perspective

---
 .emacs.d/init.el |  6 ++++++
 Emacs.org        | 33 ++++++++++++++++++++++++++++++++-
 2 files changed, 38 insertions(+), 1 deletion(-)

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index f18f458..e129e37 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -484,6 +484,12 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
   :after (treemacs magit)
   :straight t)
 
+(use-package treemacs-perspective
+  :after (treemacs perspective)
+  :straight t
+  :config
+  (treemacs-set-scope-type 'Perspectives))
+
 (general-define-key
  :keymaps '(normal override global)
  "C-n" 'treemacs)
diff --git a/Emacs.org b/Emacs.org
index c465fa7..4f3b1a2 100644
--- a/Emacs.org
+++ b/Emacs.org
@@ -1003,7 +1003,7 @@ Config for the Helm incremental completion framework. I switched to Ivy some tim
 ** Treemacs
 [[https://github.com/Alexander-Miller/treemacs][Treemacs]] calls itself a tree layout file explorer, but looks more like a project and workspace management system.
 
-Integrates with evil, magit and projectile.
+Integrates with evil, magit, projectile and perspective. The latter is particularly great - each perspective can have its own treemacs workspace!
 
 #+begin_src emacs-lisp
 (use-package treemacs
@@ -1025,6 +1025,12 @@ Integrates with evil, magit and projectile.
   :after (treemacs magit)
   :straight t)
 
+(use-package treemacs-perspective
+  :after (treemacs perspective)
+  :straight t
+  :config
+  (treemacs-set-scope-type 'Perspectives))
+
 (general-define-key
  :keymaps '(normal override global)
  "C-n" 'treemacs)
@@ -1060,6 +1066,31 @@ Function to open dired and vterm at given nodes.
    "gt" 'my/treemacs-open-vterm
    "`" 'my/treemacs-open-vterm))
 #+end_src
+
+Also a function to open a file from all treemacs projects.
+#+begin_src emacs-lisp
+(defun my/get-treemacs-workspace-file-alist ()
+  (apply
+   #'append
+   (mapcar
+    (lambda (project)
+      (let* ((path (treemacs-project->path project))
+             (name (projectile-project-name path)))
+        (mapcar (lambda (file) (cons
+                                (format "[%s] %s" name file)
+                                (concat path "/" file)))
+                (projectile-project-files path))))
+    (treemacs-workspace->projects
+     (treemacs-current-workspace)))))
+
+(defun my/treemacs-open-file-in-all-workspaces ()
+  (interactive)
+  (find-file
+   (let* ((files (my/get-treemacs-workspace-file-alist)))
+     (cdr (assoc
+           (completing-read "Files: " files nil t)
+           files)))))
+#+end_src
 ** Projectile
 [[https://github.com/bbatsov/projectile][Projectile]] gives a bunch of useful functions for managing projects, like finding files within a project, fuzzy-find, replace, etc.