From d052ad2ec1f6a4b101f873f01517b295cd7dc4a9 Mon Sep 17 00:00:00 2001 From: Sergey Trofimov Date: Sun, 25 Jan 2026 11:38:13 +0100 Subject: Clean up tablist bindings 1. tablist is built on tabulated-list, so some bindings are already defined there: - tablist-shrink/enlarge duplicates tabulated-list-narrow/widen - tablist-forward/backward duplicates tabulated-list-next/previous 2. tablist-do-copy/do-rename functions are still not implemented 3. tablist-mode-map copies tablist-minor-mode-map instead of setting it as a parent. That means that evil-collection should replicate the bindings in both maps --- modes/tablist/evil-collection-tablist.el | 48 +++++++++++++++----------------- 1 file changed, 23 insertions(+), 25 deletions(-) diff --git a/modes/tablist/evil-collection-tablist.el b/modes/tablist/evil-collection-tablist.el index b83b43c..0781c1c 100644 --- a/modes/tablist/evil-collection-tablist.el +++ b/modes/tablist/evil-collection-tablist.el @@ -35,32 +35,30 @@ (defun evil-collection-tablist-setup () "Set up `evil' bindings for `tablist'." - (evil-collection-define-key 'normal 'tablist-mode-map - (kbd "RET") 'tablist-find-entry - "d" 'tablist-flag-forward - "f" 'tablist-find-entry - "X" 'tablist-do-delete - "C" 'tablist-do-copy - "R" 'tablist-do-rename - "x" 'tablist-do-flagged-delete) + (let ((common-bindings + (list + "U" 'tablist-unmark-all-marks + "g%" tablist-mode-regexp-map + "g*" tablist-mode-mark-map + "g/" tablist-mode-filter-map + "gr" 'tablist-revert + "K" 'tablist-do-kill-lines + "m" 'tablist-mark-forward + "S" 'tablist-sort + "t" 'tablist-toggle-marks + "u" 'tablist-unmark-forward))) - (evil-collection-define-key 'normal 'tablist-minor-mode-map - "<" 'tablist-shrink-column - ">" 'tablist-enlarge-column - "U" 'tablist-unmark-all-marks - "\t" 'tablist-forward-column - "g%" tablist-mode-regexp-map - "g*" tablist-mode-mark-map - "g/" tablist-mode-filter-map - "gr" 'tablist-revert - "K" 'tablist-do-kill-lines - "m" 'tablist-mark-forward - "q" 'tablist-quit - "s" 'tablist-sort - "t" 'tablist-toggle-marks - "u" 'tablist-unmark-forward - (kbd "TAB") 'tablist-forward-column - [backtab] 'tablist-backward-column)) + (apply #'evil-collection-define-key 'normal 'tablist-mode-map + (kbd "RET") 'tablist-find-entry + "d" 'tablist-flag-forward + "f" 'tablist-find-entry + "X" 'tablist-do-delete + "x" 'tablist-do-flagged-delete + common-bindings) + + (apply #'evil-collection-define-key 'normal 'tablist-minor-mode-map + "q" 'tablist-quit + common-bindings))) (provide 'evil-collection-tablist) ;;; evil-collection-tablist.el ends here -- cgit v1.0