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

;; Time-stamp: <2026-01-02 17h01 GMT (d63c23ed)>

;; -----------------------------------------------------------------------------
;; Mode-line
;;
;; The mode-line is set to eliminate duplicate information between buffers.
;; Everything else is intended to be displayed in another, centralised location.

(defun abbreviate-left-trim-path (p len)
  (let ((pa (abbreviate-file-name p)))
    (if (> (length pa) (+ 3 len))
        (format "...%s" (substring pa (- (length pa) len)))
      pa)))

(setq display-time-format "%d/%H.%M"
      display-time-default-load-average nil)
(display-time-mode 1)

(setq global-mode-string nil)
(setq-default mode-line-format
              '("" mode-line-front-space
                mode-line-modified "%@"
                " %l:%c %[" mode-line-buffer-identification "%] %I"
                " " mode-line-modes ;; (vc-mode vc-mode)
                (:eval (abbreviate-left-trim-path default-directory 20))
                mode-line-misc-info mode-line-end-spaces))

;; -----------------------------------------------------------------------------
;; Minions to clean mode-line

(use-package minions
  :ensure t
  :config
  (setq minions-mode-line-lighter ":")
  (minions-mode 1))