;; -*- lexical-binding: t; -*-

(use-package tabspaces
  :functions tabspaces-mode
  :hook (elpaca-after-init . tabspaces-mode)
  :custom
  (tab-bar-show nil)

  (tabspaces-use-filtered-buffers-as-default t)
  (tabspaces-default-tab "Default")
  (tabspaces-remove-to-default t)
  (tabspaces-include-buffers '("*scratch*" "*Messages*"))
  (tabspaces-exclude-buffers '("*eat*" "*vterm*" "*shell*" "*eshell*"))
  ;; sessions
  (tabspaces-session t)
  (tabspaces-session-auto-restore t)
  (tabspaces-keymap-prefix "C-c w")
  :config
  (with-no-warnings
    ;; Filter Buffers for Consult-Buffer
    (with-eval-after-load 'consult
      ;; hide full buffer list (still available with "b" prefix)
      (consult-customize consult--source-buffer :hidden t :default nil)
      ;; set consult-workspace buffer list
      (defvar consult--source-workspace
        (list :name     "Workspace Buffer"
              :narrow   ?w
              :history  'buffer-name-history
              :category 'buffer
              :state    #'consult--buffer-state
              :default  t
              :items    (lambda () (consult--buffer-query
                               :predicate #'tabspaces--local-buffer-p
                               :sort 'visibility
                               :as #'buffer-name)))
        "Set workspace buffer list for consult-buffer.")
      (add-to-list 'consult-buffer-sources 'consult--source-workspace))

    (defun my-tabspaces-delete-childframe (&rest _)
      "Delete all child frames."
      (ignore-errors
        (posframe-delete-all)))
    (advice-add #'tabspaces-save-session :before #'my-tabspaces-delete-childframe)

    (defun my-tabspaces-burry-window (&rest _)
      "Burry *Messages* buffer."
      (ignore-errors
        (quit-windows-on messages-buffer-name)))
    (advice-add #'tabspaces-restore-session :after #'my-tabspaces-burry-window)))

(provide 'init-workspace)