;;基本照抄https://emacs-china.org/t/tab-bar/26008,自己进行一点小的更改
(use-package tab-bar
  :hook (window-setup . tab-bar-mode)
  :custom
  (tab-bar-tab-hints nil)
  :config
  (setq tab-bar-separator ""
        tab-bar-new-tab-choice "*scratch*"
        tab-bar-tab-name-truncated-max 20
        tab-bar-auto-width nil
        tab-bar-close-button-show nil)

  ;; 使用 super-1 super-2 ... 来切换 tab
  (customize-set-variable 'tab-bar-select-tab-modifiers '(super))

  ;; 自动截取 tab name，并且添加在每个 tab 上添加数字，方便用快捷键切换
  (setq tab-bar-tab-name-function
        (lambda () (let* ((raw-tab-name (buffer-name (window-buffer (minibuffer-selected-window))))
                     (count (length (window-list-1 nil 'nomini)))
                     (truncated-tab-name (if (< (length raw-tab-name)
                                                tab-bar-tab-name-truncated-max)
                                             raw-tab-name
                                           (truncate-string-to-width raw-tab-name
                                                                     tab-bar-tab-name-truncated-max
                                                                     nil nil tab-bar-tab-name-ellipsis))))
                truncated-tab-name)))

  ;; 给 tab 两边加上空格，更好看
  (setq tab-bar-tab-name-format-function
        (lambda (tab i)
          (let ((face (funcall tab-bar-tab-face-function tab)))
            (concat
             (propertize "" 'face face)
             ;; (propertize (number-to-string i) 'face `(:inherit ,face :weight ultra-bold :underline t));;去除前面的1，2,3
             (propertize (concat " " (alist-get 'name tab) " ") 'face face)))))

  (setq tab-bar-format '(tab-bar-format-tabs))

  (tab-bar--update-tab-bar-lines)

  ;; WORKAROUND: update tab-bar for daemon
  (when (daemonp)
    (add-hook 'after-make-frame-functions
              #'(lambda (&rest _) (force-mode-line-update))))
)

(use-package tabspaces
  :ensure t
  :hook (after-init . tabspaces-mode) ;; use this only if you want the minor-mode loaded at startup.
  :commands (tabspaces-switch-or-create-workspace
             tabspaces-open-or-create-project-and-workspace)
  :general
  (:keymaps 'override
   :states '(normal visual)
   :prefix  "SPC"
    "p" '(:ignore t :wk "project")
    "p p" '(tabspaces-open-or-create-project-and-workspace :wk "find project")
    "p q" '(tabspaces-kill-buffers-close-workspace :wk"kill project buffer")
    "p s" '(tabspaces-save-current-project-session :wk"save project sessions")
    "p r" '(tabspaces-restore-session :wk"restore project sessions")
  )
  :custom
  (tabspaces-use-filtered-buffers-as-default t)
  (tabspaces-default-tab "Default")
  (tabspaces-remove-to-default t)
  (tabspaces-include-buffers '("*scratch*"))
  (tabspaces-initialize-project-with-todo nil)
  ;; (tabspaces-todo-file-name "project-todo.org")
  ;; sessions
  ;; (tabspaces-session t)
  ;; (tabspaces-session-auto-restore t)
  (tab-bar-new-tab-choice "*scratch*"))
  :config
(with-eval-after-load 'consult
;; hide full buffer list (still available with "b" prefix)
(consult-customize consult--source-buffer :hidden t :default nil)

(defun consult--filter-sort-tab-buffers (buf)
  "Filter out the *sort-tab* buffer and check if buffer is local to tabspace."
  (and (not (string= (buffer-name buf) "*sort-tab*"))
       (tabspaces--local-buffer-p buf)))

;; set consult-workspace buffer list
(defvar consult--source-workspace
  (list :name     "Workspace Buffers"
        :narrow   ?w
        :history  'buffer-name-history
        :category 'buffer
        :state    #'consult--buffer-state
        :default  t
        :items    (lambda () (consult--buffer-query
                         :predicate #'consult--filter-sort-tab-buffers
                         :sort 'visibility
                         :as #'buffer-name)))

  "Set workspace buffer list for consult-buffer.")
(add-to-list 'consult-buffer-sources 'consult--source-workspace))

(use-package sort-tab
  :load-path "./site-lisp/my-fork-sort-tab/"
  :after doom-modeline
  :custom
  (sort-tab-separator "")
  (sort-tab-name-max-length 20)
  :config
  (setq sort-tab-hide-function '(lambda (buf) (with-current-buffer buf (derived-mode-p 'dired-mode))))
  (setq sort-tab-show-index-number t)
   (sort-tab-mode 1)
)

;;sort-tab.el
(defun sort-tab-get-buffer-list ()
  (sort (cl-remove-if
         #'sort-tab-buffer-need-hide-p


         (buffer-list))
        #'sort-tab-buffer-freq-higher-p))

;;改成，隐藏不是在tabspace--local-buffer-p的buffer
(defun sort-tab-get-buffer-list ()
  (sort (cl-remove-if
         (lambda (buf)
           (or (sort-tab-buffer-need-hide-p buf)
               (not (tabspaces--local-buffer-p buf))))
         (buffer-list))
        #'sort-tab-buffer-freq-higher-p))

;;sort-tab.el
;; 切换函数，因为tab-bar-tab-post-select-functions 需要接受old-tab new-tab,
(defun sort-tab-tab-bar-select-function (old-tab new-tab)
  "sort-tab tab-bar change use *sort-tab-update-list*"
   (sort-tab-update-list))

(defun sort-tab-turn-on ()
  ...

  (add-hook 'tab-bar-tab-post-select-functions #'sort-tab-tab-bar-select-function)

)

(defun sort-tab-turn-off ()
  ...

  (remove-hook 'tab-bar-tab-post-select-functions #'sort-tab-tab-bar-select-function)
)