toki/doom-config
1
0
Fork 0
Code Issues Pull requests Activity

Split function definition into more lines

Browse source
This commit is contained in:
Kiana Sheibani 2024-03-07 01:42:40 -05:00
parent 7a9dc1209c
commit 70d411a4c8
Signed by: toki
GPG key ID: 6CB106C25E86A9F7
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
config.org
View file

@ -2014,15 +2014,19 @@ When I do have a project open, Treemacs is flexible and allows you to open direc
(interactive) (interactive)
(require 'treemacs) (require 'treemacs)
(let* ((name (concat "Perspective " (doom-project-name))) (let* ((name (concat "Perspective " (doom-project-name)))
(project (treemacs-project->create! :name (doom-project-name) :path (directory-file-name (doom-project-root)) (project (treemacs-project->create!
:name (doom-project-name)
:path (directory-file-name (doom-project-root))
:path-status 'local-readable :is-disabled? nil)) :path-status 'local-readable :is-disabled? nil))
(workspace (treemacs-workspace->create! :name name :projects (list project) :is-disabled? nil))) (workspace (treemacs-workspace->create!
:name name :projects (list project) :is-disabled? nil)))
;; Only rebuild workspace if it doesn't have the structure we expect ;; Only rebuild workspace if it doesn't have the structure we expect
(unless (equal (treemacs-current-workspace) workspace) (unless (equal (treemacs-current-workspace) workspace)
(setq treemacs--workspaces (setq treemacs--workspaces
(append (remove-if (lambda (w) (string= (treemacs-workspace->name w) name)) (append (remove-if (lambda (w)
(string= (treemacs-workspace->name w) name)
treemacs--workspaces) treemacs--workspaces)
(list workspace))) (list workspace))))
(treemacs-do-switch-workspace workspace) (treemacs-do-switch-workspace workspace)
(treemacs--invalidate-buffer-project-cache) (treemacs--invalidate-buffer-project-cache)
(treemacs--rerender-after-workspace-change)))) (treemacs--rerender-after-workspace-change))))