procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make the sorting indicator prettier in vtable

Browse source 
* lisp/emacs-lisp/vtable.el (vtable--insert-header-line): Place
the sorting indicator flush right in the heading.
This commit is contained in:
Lars Ingebrigtsen 2022-04-15 13:37:05 +02:00
parent 09ac2c73ee
commit c4768cda7f
1 changed files with 37 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

51
lisp/emacs-lisp/vtable.el
View file

@ -635,20 +635,43 @@ This also updates the displayed table."
(indicator-width (string-pixel-width indicator))
(last (= index (1- (length (vtable-columns table)))))
displayed)
(insert
(setq displayed
(concat
(if (> (string-pixel-width name)
(- (elt widths index) indicator-width))
(vtable--limit-string
name (- (elt widths index) indicator-width))
name)
indicator))
(propertize " " 'display
(list 'space :width
(list (+ (- (elt widths index)
(string-pixel-width displayed))
(if last 0 spacer))))))
(setq displayed
(if (> (string-pixel-width name)
(- (elt widths index) indicator-width))
(vtable--limit-string
name (- (elt widths index) indicator-width))
name))
(let ((fill-width
(+ (- (elt widths index)
(string-pixel-width displayed)
indicator-width
(vtable-separator-width table))
(if last 0 spacer))))
(if (or (not last)
(zerop indicator-width)
(< (seq-reduce #'+ widths 0) (window-width nil t)))
;; Normal case.
(insert
displayed
(propertize " " 'display
(list 'space :width (list fill-width)))
indicator)
;; This is the final column, and we have a sorting
;; indicator, and the table is too wide for the window.
(let* ((pre-indicator (string-pixel-width
(buffer-substring (point-min) (point))))
(pre-fill
(- (window-width nil t)
pre-indicator
(string-pixel-width displayed))))
(insert
displayed
(propertize " " 'display
(list 'space :width (list pre-fill)))
indicator
(propertize " " 'display
(list 'space :width
(list (- fill-width pre-fill))))))))
(when (and divider (not last))
(insert (propertize divider 'keymap dmap)))
(put-text-property start (point) 'vtable-column index)))