Function: ibuffer--format-title

ibuffer--format-title is a byte-compiled function defined in ibuffer.el.gz.

Signature

(ibuffer--format-title ELEMENT &optional HEADER-LINE)

Source Code

;; Defined in /usr/src/emacs/lisp/ibuffer.el.gz
(defun ibuffer--format-title (element &optional header-line)
  (if (stringp element)
      element
    (pcase-let ((`(,sym ,min ,_max ,align) element))
      ;; Ignore negative MIN, since the titles are left-aligned.
      (when (minusp min)
	(setq min (- min)))
      (let* ((name (or (get sym 'ibuffer-column-name)
		       (error "Unknown column %s in ibuffer-formats" sym)))
	     (len (length name))
	     (hmap (get sym 'header-mouse-map))
	     (strname (if (< len min)
			  (ibuffer-format-column name
						 (- min len)
						 align)
			name)))
	(when hmap
	  (setq
	   strname
	   (propertize strname 'mouse-face 'highlight 'keymap
                       (if header-line
                           (define-keymap "<header-line>" hmap)
                         hmap))))
	strname))))