   (cl-letf ((new-session-name
              (if (cl-find-if
                   (lambda (session) (cl-equalp new-session-name
-                                          (mesh:get-name session)))
+                                               (mesh:get-name session)))
                   (mesh:session-list))
                  (concat new-session-name "*")
                new-session-name)))


(cl-defun mesh:session--new (session-name sessions)
  (if-let ((found (cl-find-if (lambda (s) (cl-equalp (mesh:get-name s)
                                                session-name))
                              sessions)))
      found
    (cl-letf ((new-tab (mesh:tab--new

           (set-window-configuration next-session-conf)
           (mesh:set-current-session next-session))
         (seq-each
          #'mesh:tab--kill-panes
          current-tabs))))))


