From 70d411a4c86195bc0a76d228096ea520995fdc82 Mon Sep 17 00:00:00 2001 From: Kiana Sheibani Date: Thu, 7 Mar 2024 01:42:40 -0500 Subject: [PATCH] Split function definition into more lines --- config.org | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/config.org b/config.org index 6e185d2..682bcfd 100644 --- a/config.org +++ b/config.org @@ -2014,15 +2014,19 @@ When I do have a project open, Treemacs is flexible and allows you to open direc (interactive) (require 'treemacs) (let* ((name (concat "Perspective " (doom-project-name))) - (project (treemacs-project->create! :name (doom-project-name) :path (directory-file-name (doom-project-root)) - :path-status 'local-readable :is-disabled? nil)) - (workspace (treemacs-workspace->create! :name name :projects (list project) :is-disabled? nil))) + (project (treemacs-project->create! + :name (doom-project-name) + :path (directory-file-name (doom-project-root)) + :path-status 'local-readable :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 (unless (equal (treemacs-current-workspace) workspace) (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) - (list workspace))) + (list workspace)))) (treemacs-do-switch-workspace workspace) (treemacs--invalidate-buffer-project-cache) (treemacs--rerender-after-workspace-change))))