awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

ui/treemacs: show only one project #846

Browse Source 
If you use +treemacs/toggle.
This commit is contained in:
Henrik Lissner
2018-08-28 13:27:25 +02:00
parent e932c74758
commit d0295a26d4
1 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
modules/ui/treemacs/autoload.el
View File

@ -4,10 +4,8 @@
(defun +treemacs/toggle () (defun +treemacs/toggle ()
"Initialize or toggle treemacs. "Initialize or toggle treemacs.
* If the treemacs window is visible hide it. Ensures that only the current project is present and all other projects have
* If a treemacs buffer exists, but is not visible show it. been removed."
* If no treemacs buffer exists for the current frame create and show it.
* If the workspace is empty, add the current project to it automatically."
(interactive) (interactive)
(require 'treemacs) (require 'treemacs)
(let ((origin-buffer (current-buffer))) (let ((origin-buffer (current-buffer)))
@ -15,9 +13,13 @@
(symbol-function 'ignore))) (symbol-function 'ignore)))
(treemacs--init)) (treemacs--init))
;; ;;
(treemacs-do-add-project-to-workspace (dolist (project (treemacs-workspace->projects (treemacs-current-workspace)))
(treemacs--canonical-path (doom-project-root 'nocache)) (treemacs-do-remove-project-from-workspace project))
(doom-project-name 'nocache)) ;;
(with-current-buffer origin-buffer
(treemacs-do-add-project-to-workspace
(treemacs--canonical-path (doom-project-root 'nocache))
(doom-project-name 'nocache)))
;; ;;
(setq treemacs--ready-to-follow t) (setq treemacs--ready-to-follow t)
(when (or treemacs-follow-after-init treemacs-follow-mode) (when (or treemacs-follow-after-init treemacs-follow-mode)