;;;; window.el
;; Inspiration: https://christiantietze.de/posts/2022/12/updated-org-mode-agenda-display-buffer-alist/
(defun rul/display-buffer-org-agenda-managed-p (buffer-name action)
  "Determine whether BUFFER-NAME is an org-agenda managed buffer."
  (with-current-buffer buffer-name
    (or (derived-mode-p 'org-mode 'org-agenda-mode)
         (member (buffer-file-name) (org-agenda-files)))))

(setq display-buffer-alist
      '(;; Org Agenda in dedicated side-window
        ("\\*Org Agenda\\*"
         (display-buffer-in-tab
          display-buffer-reuse-mode-window)
         (ignore-current-tab . t)
         (tab-name . "Org")
         (dedicated . side)
         (side . left)
         (inhibit-same-window . nil))
        (;; Notmuch in dedicated tab
         ".*notmuch.*"
         (display-buffer-in-tab
          display-buffer-reuse-mode-window)
         (ignore-current-tab . t)
         (tab-name . "Mail"))
        ))

;;;; tab-bar.el
(let ((map global-map))
(define-key map (kbd "C-<next>") 'tab-bar-switch-to-next-tab)
(define-key map (kbd "C-<prior>") 'tab-bar-switch-to-prev-tab)
(define-key map (kbd "<f8>") 'tab-bar-mode))

(setq tab-bar-format
      '(tab-bar-format-tabs
        ;; tab-bar-format-align-right
        ;; tab-bar-format-global
        ))

(setq tab-bar-new-tab-to 'rightmost)
(setq tab-bar-close-button-show nil)
(set-face-attribute 'tab-bar nil :height 0.8)
(tab-bar-mode 1)

(provide 'rul-wm)