;;; -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:


(use-package time
  :demand t
  :init
  (display-time)
  :config
  (setopt display-time-format " [%m/%d %H:%M] "
          display-time-default-load-average nil))

(use-package battery
  :demand t
  :init
  (display-battery-mode)
  :config
  (setopt battery-update-interval 90))

(use-package tab-bar
  :demand t
  :bind (("H-f" . tab-bar-history-forward)
         ("H-b" . tab-bar-history-back))
  :config
  (defun bd/get-mode-line-modes (buffer)
    (with-current-buffer buffer
      (format-mode-line (remove '(t erc-modified-channels-object) mode-line-modes))))
  (defun bd/tab-bar-name-function ()
    (concat (tab-bar-tab-name-current)
            " "
            (bd/get-mode-line-modes (window-buffer (minibuffer-selected-window)))))

  (tab-bar-select-tab 1)
  (tab-bar-mode)
  (tab-bar-history-mode)
  (setopt tab-bar-tab-name-function #'bd/tab-bar-name-function
          tab-bar-show t

          tab-bar-select-restore-windows nil

          ;; remove useless gui elements
          tab-bar-format
          '(tab-bar-format-tabs
            tab-bar-format-align-right
            tab-bar-format-global)
          tab-bar-close-button-show nil
          tab-bar-auto-width-max nil

          ;; add useless text elements
          tab-bar-tab-hints nil))


(provide 'bd--tabs)
;;; bd--tabs.el ends here