feat(workspace): replace project-tab-groups with one-tab-per-project

Author: abougouffa

modules/me-workspaces.el

@@ -16,48 +16,11 @@
 (use-package unique-dir-name
   :straight (:host github :repo "abougouffa/unique-dir-name"))
 
-(use-package project-tab-groups
-  :straight t
+(use-package one-tab-per-project
+  :straight (:host github :repo "abougouffa/one-tab-per-project")
   :after project
   :init
-  (setq project-tab-groups-tab-group-name-function #'+project-tab-groups-name-by-project-root)
-  (project-tab-groups-mode 1)
-  :config
-  (defvar +project-tab-groups-unique-map (make-hash-table :test 'equal))
-  (defun +project-tab-groups-name-by-project-root (dir)
-    "Use the project root as group name starting from DIR."
-    (with-temp-buffer
-      (setq default-directory dir)
-      (hack-dir-local-variables-non-file-buffer)
-      (let ((root (or (when-let* ((proj (project-current)))
-                        (expand-file-name (project-root proj))) ;; Use the full path
-                      (expand-file-name dir))))
-        root)))
-  (defun +project-tab-groups--unique-rename-all ()
-    (dolist (frame (frame-list))
-      (dolist (tab (frame-parameter frame 'tabs))
-        (when-let* ((group-path (alist-get 'group tab))
-                    (unique (gethash group-path +project-tab-groups-unique-map)))
-          (setcdr (assoc 'name tab) (alist-get 'unique-name unique))
-          (setcdr (assoc 'explicit-name tab) t)))))
-  ;; Rename the tab to the tab-group name (project name)
-  (advice-add
-   #'project-tab-groups--select-or-create-tab-group :after-while
-   (satch-defun +project-tab-groups--name-tab-by-group:after-while-a (&rest _)
-     (when-let ((group-path (alist-get 'group (tab-bar--current-tab))))
-       (unique-dir-name-register group-path :map '+project-tab-groups-unique-map)
-       (+project-tab-groups--unique-rename-all)) ; Rename all tabs accordingly
-     t))
-  ;; Unregister the path on tab group closing and rename all tabs accordingly
-  (advice-add
-   #'project-tab-groups--project-kill-buffers-advice :around
-   (satch-defun +project-tab-groups--remove-from-map:around-a (fn &rest args)
-     (let ((path (alist-get 'group (tab-bar--current-tab))))
-       (apply fn args)
-       (unless (project-tab-groups--find-tab-by-group-name path) ; Removed?
-         (unique-dir-name-unregister path :map '+project-tab-groups-unique-map)
-         (+project-tab-groups--unique-rename-all))
-       t))))
+  (otpp-mode 1))
 
 (use-package burly
   :straight t)