Fix column length

emacs.el

@@ -2193,7 +2193,18 @@ initializing."
          (bname (format "Git Worktree<%s>" name)))
     (with-current-buffer (get-buffer-create bname)
       (cd root)
-      (let ((trees (git-worktree-get-current-trees)))
+      (let* ((trees (git-worktree-get-current-trees))
+             (branch-max-length
+              (apply 'max
+                     (cl-loop for e in trees
+                              when (plist-get e :branch)
+                              collect (length (plist-get e :branch)))))
+             (worktree-max-length
+              (apply 'max
+                     (cl-loop for e in trees
+                              when (plist-get e :worktree)
+                              collect (length (plist-get e :worktree)))))
+             )
         (setq tabulated-list-entries
               (mapcar (lambda (f)
                         (list f
@@ -2202,9 +2213,9 @@ initializing."
                                       (plist-get f :head))))
                       trees))
         (setq tabulated-list-format
-              `[("Refs" 30 t)
-                ("Worktree" 40 t)
-                ("Head" 0 t)])
+              `[("Branch" ,branch-max-length t)
+                ("Worktree" ,worktree-max-length t)
+                ("Head" -1 t)])
         (git-worktree-mode)
         (current-buffer)))))