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


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

(use-package battery
  :init
  (display-battery-mode)
  :custom
  (battery-update-interval 90))

(use-package tab-bar
  :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)
  :custom
  (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