;; 使用 ibuffer 替代默认的 list-buffers
(global-set-key (kbd "C-x C-b") 'ibuffer)

;; 使用 consult-buffer 提供更好的缓冲区切换体验
(use-package consult
  :bind ("C-x b" . consult-buffer))

;; 使用 uniquify 让同名缓冲区有唯一路径
(require 'uniquify)
(setq uniquify-buffer-name-style 'forward)
(setq uniquify-after-kill-buffer-p t)

;; 间接缓冲区允许同时查看同一文件的不同部分
;; C-x 4 c  → clone-indirect-buffer-other-window

;; 使用场景：
;; 1. 同时查看一个大文件的两个不同部分
;; 2. 用不同模式查看同一内容
;; 3. 窄化（narrow）到不同区域

;; 示例：
;; 在 init.el 中：
;; C-x 4 c → 输入新名称 → 在新窗口中创建间接缓冲区
;; 两个窗口可以独立滚动、独立窄化

;; 窄化使用场景：
;; 1. 在大文件中只关注某个函数
;;    C-x n d → 只显示当前函数
;;    C-x n w → 恢复显示全部
;;
;; 2. 只编辑选中的区域
;;    选中文本 → C-x n n → 只显示选区
;;    C-x n w → 恢复

;; 警告：窄化后容易误以为文件只有这么点内容
;; 开启 narrow-to-defun-indicator
(setq narrow-to-defun-indicator t)

;; 自定义 Ibuffer 分组
(setq ibuffer-saved-filter-groups
      '(("default"
         ("Dired" (mode . dired-mode))
         ("Org" (mode . org-mode))
         ("Python" (mode . python-mode))
         ("JavaScript" (or (mode . js-mode)
                           (mode . typescript-mode)
                           (mode . rjsx-mode)))
         ("Elisp" (mode . emacs-lisp-mode))
         ("Web" (or (mode . html-mode)
                    (mode . css-mode)))
         ("Shell" (or (mode . shell-mode)
                      (mode . eshell-mode)
                      (mode . vterm-mode)))
         ("Special" (name . "^\\*")))))

;; 应用分组
(add-hook 'ibuffer-mode-hook
          (lambda ()
            (ibuffer-switch-to-saved-filter-groups "default")))

;; 隐藏空组
(setq ibuffer-show-empty-filter-groups nil)

;; 自动更新
(setq ibuffer-auto-mode t)

;; 启用 tab-bar
(tab-bar-mode 1)
(setq tab-bar-close-button-show nil
      tab-bar-new-button-show nil
      tab-bar-tab-hints t
      tab-bar-show 1)  ; 只有一个 tab 时隐藏

;; 创建和切换 tab
;; C-x t 2    → 创建新 tab
;; C-x t 0    → 关闭当前 tab
;; C-x t o    → 切换到下一个 tab
;; C-x t RET  → 选择 tab

;; 重命名 tab
;; C-x t r    → 重命名当前 tab

(use-package perspective
  :bind (("C-x C-b" . persp-list-buffers)
         ("C-x b" . persp-switch-to-buffer)
         ("C-x k" . persp-kill-buffer))
  :custom
  (persp-mode-prefix-key (kbd "C-c M-p"))
  :init
  (persp-mode))

;; 透视操作：
;; C-c M-p s → 切换/创建透视
;; C-c M-p k → 关闭透视
;; C-c M-p a → 将缓冲区添加到当前透视
;; C-c M-p r → 重命名透视

;; 使用场景：
;; Perspective 1: "前端开发" — 只包含前端相关缓冲区
;; Perspective 2: "后端开发" — 只包含后端相关缓冲区
;; Perspective 3: "文档写作" — 只包含文档相关缓冲区

(use-package treemacs
  :bind ("C-c t" . treemacs)
  :config
  (setq treemacs-width 30
        treemacs-is-never-other-window t
        treemacs-sorting 'alphabetic-asc))

;; Treemacs 操作：
;; C-c t          → 打开/关闭侧边栏
;; RET            → 打开文件
;; j / k          → 上下移动
;; d / f          → 目录展开/折叠
;; cf / cd        → 创建文件/目录
;; R              → 重命名
;; d              → 删除
;; ?              → 帮助

;; 自动关闭长时间不用的缓冲区
(use-package midnight
  :config
  ;; 每天午夜清理
  (midnight-delay-set 'midnight-delay "4:00am")
  ;; 清理规则
  (setq clean-buffer-list-kill-regexps
        '("\\`\\*.*\\*\\'"
          "\\` ?tmp"))
  (setq clean-buffer-list-kill-never-buffer-names
        '("*scratch*" "*Messages*" "*dashboard*")))

;; 手动清理未修改的特殊缓冲区
(defun my/cleanup-buffers ()
  "清理不重要的缓冲区。"
  (interactive)
  (dolist (buf (buffer-list))
    (let ((name (buffer-name buf)))
      (when (and (string-prefix-p "*" name)
                 (not (member name '("*scratch*" "*Messages*")))
                 (not (buffer-modified-p buf)))
        (kill-buffer buf)))))
(global-set-key (kbd "C-c C-k") 'my/cleanup-buffers)

;; 按最近使用顺序排列缓冲区（MRU）
;; 使用 ibuffer 的排序
(setq ibuffer-default-sorting-mode 'recency)

;; 或者使用 bs 包
(use-package bs
  :bind ("C-x C-b" . bs-show)
  :config
  (setq bs-configurations
        '(("files" "^\\*" nil nil bs-visits-non-file bs-sort-buffer-interns-are-last))))