branch: elpa/tablist
commit 61f653f3cf334b22a55a7c1016ba603d68ded1d9
Author: Andreas Politz <poli...@hochschule-trier.de>
Commit: Andreas Politz <poli...@hochschule-trier.de>
Quote commands as functions
---
tablist.el | 124 ++++++++++++++++++++++++++++++-------------------------------
1 file changed, 62 insertions(+), 62 deletions(-)
diff --git a/tablist.el b/tablist.el
index fa22a2b..f195178 100644
--- a/tablist.el
+++ b/tablist.el
@@ -123,81 +123,81 @@ column."
(defvar tablist-mode-filter-map
(let ((kmap (make-sparse-keymap)))
- (define-key kmap "p" 'tablist-pop-filter)
- (define-key kmap "r" 'tablist-push-regexp-filter)
- (define-key kmap "=" 'tablist-push-equal-filter)
- (define-key kmap "n" 'tablist-push-numeric-filter)
- (define-key kmap "!" 'tablist-negate-filter)
- (define-key kmap "t" 'tablist-toggle-first-filter-logic)
- (define-key kmap "/" 'tablist-display-filter)
- (define-key kmap "z" 'tablist-suspend-filter)
-
- (define-key kmap "a" 'tablist-push-named-filter)
- (define-key kmap "s" 'tablist-name-current-filter)
- (define-key kmap "D" 'tablist-delete-named-filter)
- (define-key kmap "d" 'tablist-deconstruct-named-filter)
- (define-key kmap "e" 'tablist-edit-filter)
- (define-key kmap "C" 'tablist-clear-filter)
+ (define-key kmap "p" #'tablist-pop-filter)
+ (define-key kmap "r" #'tablist-push-regexp-filter)
+ (define-key kmap "=" #'tablist-push-equal-filter)
+ (define-key kmap "n" #'tablist-push-numeric-filter)
+ (define-key kmap "!" #'tablist-negate-filter)
+ (define-key kmap "t" #'tablist-toggle-first-filter-logic)
+ (define-key kmap "/" #'tablist-display-filter)
+ (define-key kmap "z" #'tablist-suspend-filter)
+
+ (define-key kmap "a" #'tablist-push-named-filter)
+ (define-key kmap "s" #'tablist-name-current-filter)
+ (define-key kmap "D" #'tablist-delete-named-filter)
+ (define-key kmap "d" #'tablist-deconstruct-named-filter)
+ (define-key kmap "e" #'tablist-edit-filter)
+ (define-key kmap "C" #'tablist-clear-filter)
kmap))
(defvar tablist-mode-mark-map
(let ((kmap (make-sparse-keymap)))
- (define-key kmap "c" 'tablist-change-marks)
- (define-key kmap "!" 'tablist-unmark-all-marks)
- (define-key kmap "r" 'tablist-mark-items-regexp)
- (define-key kmap "n" 'tablist-mark-items-numeric)
- (define-key kmap "m" 'tablist-mark-forward)
+ (define-key kmap "c" #'tablist-change-marks)
+ (define-key kmap "!" #'tablist-unmark-all-marks)
+ (define-key kmap "r" #'tablist-mark-items-regexp)
+ (define-key kmap "n" #'tablist-mark-items-numeric)
+ (define-key kmap "m" #'tablist-mark-forward)
kmap))
(defvar tablist-mode-regexp-map
(let ((kmap (make-sparse-keymap)))
- ;; (define-key kmap "&" 'tablist-flag-gargabe-items)
- (define-key kmap "m" 'tablist-mark-items-regexp)
+ ;; (define-key kmap "&" #'tablist-flag-gargabe-items)
+ (define-key kmap "m" #'tablist-mark-items-regexp)
kmap))
(defvar tablist-minor-mode-map
(let ((kmap (make-sparse-keymap)))
- (define-key kmap "m" 'tablist-mark-forward)
- (define-key kmap (kbd "DEL") 'tablist-unmark-backward)
- (define-key kmap "k" 'tablist-do-kill-lines)
- (define-key kmap "U" 'tablist-unmark-all-marks)
- (define-key kmap "u" 'tablist-unmark-forward)
- (define-key kmap "t" 'tablist-toggle-marks)
+ (define-key kmap "m" #'tablist-mark-forward)
+ (define-key kmap (kbd "DEL") #'tablist-unmark-backward)
+ (define-key kmap "k" #'tablist-do-kill-lines)
+ (define-key kmap "U" #'tablist-unmark-all-marks)
+ (define-key kmap "u" #'tablist-unmark-forward)
+ (define-key kmap "t" #'tablist-toggle-marks)
- (define-key kmap (kbd "TAB") 'tablist-forward-column)
- (define-key kmap "\t" 'tablist-forward-column)
- (define-key kmap [backtab] 'tablist-backward-column)
+ (define-key kmap (kbd "TAB") #'tablist-forward-column)
+ (define-key kmap "\t" #'tablist-forward-column)
+ (define-key kmap [backtab] #'tablist-backward-column)
(define-key kmap "%" tablist-mode-regexp-map)
(define-key kmap "*" tablist-mode-mark-map)
(define-key kmap "/" tablist-mode-filter-map)
- ;; (define-key kmap "e" 'tablist-edit-column)
- ;; (define-key kmap "i" 'tablist-insert-entry)
- (define-key kmap "s" 'tablist-sort)
- (define-key kmap [remap back-to-indentation] 'tablist-move-to-major-column)
- (define-key kmap [remap next-line] 'tablist-next-line)
- (define-key kmap [remap previous-line] 'tablist-previous-line)
- (define-key kmap "<" 'tablist-shrink-column)
- (define-key kmap ">" 'tablist-enlarge-column)
- (define-key kmap "q" 'tablist-quit)
- (define-key kmap "G" 'tablist-revert)
- (define-key kmap (kbd "C-c C-e") 'tablist-export-csv)
+ ;; (define-key kmap "e" #'tablist-edit-column)
+ ;; (define-key kmap "i" #'tablist-insert-entry)
+ (define-key kmap "s" #'tablist-sort)
+ (define-key kmap [remap back-to-indentation]
#'tablist-move-to-major-column)
+ (define-key kmap [remap next-line] #'tablist-next-line)
+ (define-key kmap [remap previous-line] #'tablist-previous-line)
+ (define-key kmap "<" #'tablist-shrink-column)
+ (define-key kmap ">" #'tablist-enlarge-column)
+ (define-key kmap "q" #'tablist-quit)
+ (define-key kmap "G" #'tablist-revert)
+ (define-key kmap (kbd "C-c C-e") #'tablist-export-csv)
kmap))
(defvar tablist-mode-map
(let ((kmap (copy-keymap tablist-minor-mode-map)))
(set-keymap-parent kmap tabulated-list-mode-map)
- (define-key kmap "d" 'tablist-flag-forward)
- (define-key kmap (kbd "RET") 'tablist-find-entry)
- (define-key kmap "f" 'tablist-find-entry)
- ;; (define-key kmap "~" 'tablist-flag-gargabe-items)
- (define-key kmap "D" 'tablist-do-delete)
- (define-key kmap "C" 'tablist-do-copy)
- (define-key kmap "R" 'tablist-do-rename)
- (define-key kmap "x" 'tablist-do-flagged-delete)
- ;; (define-key kmap "F" 'tablist-find-marked-items)
- ;; (define-key kmap (kbd "C-o") 'tablist-display-item)
+ (define-key kmap "d" #'tablist-flag-forward)
+ (define-key kmap (kbd "RET") #'tablist-find-entry)
+ (define-key kmap "f" #'tablist-find-entry)
+ ;; (define-key kmap "~" #'tablist-flag-gargabe-items)
+ (define-key kmap "D" #'tablist-do-delete)
+ (define-key kmap "C" #'tablist-do-copy)
+ (define-key kmap "R" #'tablist-do-rename)
+ (define-key kmap "x" #'tablist-do-flagged-delete)
+ ;; (define-key kmap "F" #'tablist-find-marked-items)
+ ;; (define-key kmap (kbd "C-o") #'tablist-display-item)
kmap))
;;
@@ -976,16 +976,16 @@ Optional REVERT-P means, revert the display afterwards."
(defvar tablist-edit-column-minor-mode-map
(let ((kmap (make-sparse-keymap)))
(set-keymap-parent kmap (current-global-map))
- (define-key kmap [remap self-insert-command] 'self-insert-command)
- (define-key kmap "\r" 'tablist-edit-column-commit)
- (define-key kmap (kbd "C-g") 'tablist-edit-column-quit)
- (define-key kmap (kbd "C-c C-c") 'tablist-edit-column-commit)
- (define-key kmap (kbd "C-c C-q") 'tablist-edit-column-quit)
- (define-key kmap "\t" 'tablist-edit-column-complete)
- (define-key kmap (kbd "TAB") 'tablist-edit-column-complete)
- (define-key kmap [remap end-of-buffer] 'end-of-line)
- (define-key kmap [remap beginning-of-buffer] 'beginning-of-line)
- (define-key kmap [remap mark-whole-buffer] 'tablist-edit-column-mark-field)
+ (define-key kmap [remap self-insert-command] #'self-insert-command)
+ (define-key kmap "\r" #'tablist-edit-column-commit)
+ (define-key kmap (kbd "C-g") #'tablist-edit-column-quit)
+ (define-key kmap (kbd "C-c C-c") #'tablist-edit-column-commit)
+ (define-key kmap (kbd "C-c C-q") #'tablist-edit-column-quit)
+ (define-key kmap "\t" #'tablist-edit-column-complete)
+ (define-key kmap (kbd "TAB") #'tablist-edit-column-complete)
+ (define-key kmap [remap end-of-buffer] #'end-of-line)
+ (define-key kmap [remap beginning-of-buffer] #'beginning-of-line)
+ (define-key kmap [remap mark-whole-buffer]
#'tablist-edit-column-mark-field)
kmap))
(define-minor-mode tablist-edit-column-minor-mode
