[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/leaf 8c8c793 23/29: remove tabulated-list guard
From: |
Stefan Monnier |
Subject: |
[elpa] externals/leaf 8c8c793 23/29: remove tabulated-list guard |
Date: |
Tue, 10 Nov 2020 14:47:43 -0500 (EST) |
branch: externals/leaf
commit 8c8c7934ffa3a8a5e03cd694ce00fbfbabc06ecc
Author: conao3 <conao3@gmail.com>
Commit: conao3 <conao3@gmail.com>
remove tabulated-list guard
---
leaf.el | 69 ++++++++++++++++++++++++++++++-----------------------------------
1 file changed, 32 insertions(+), 37 deletions(-)
diff --git a/leaf.el b/leaf.el
index b8329b1..73411e3 100644
--- a/leaf.el
+++ b/leaf.el
@@ -851,45 +851,40 @@ BIND must not contain :{{map}}."
(let ((binds (if (and (atom (car bind)) (atom (cdr bind))) `(,bind) bind)))
`(leaf-keys (:leaf-key-override-global-map ,@binds))))
-(eval
- (eval-and-compile
- (when (featurep 'tabulated-list)
- '(progn
- (require 'tabulated-list)
-
- (define-derived-mode leaf-key-list-mode tabulated-list-mode "Leaf-key
Bindings"
- "Major mode for listing bindings configured via `leaf-key'."
- (setq tabulated-list-format [("Map" 20 t)
- ("Key" 20 t)
- ("Command" 40 t)
- ("Before Command" 0 t)])
- (setq tabulated-list-entries
- (let ((id 0)
- (formatfn (lambda (elm)
- (if (stringp elm)
- elm
- (prin1-to-string (if (eq elm nil) '---
elm)))))
- res)
- (dolist (elm leaf-key-bindlist)
- (setq id (1+ id))
- (push `(,id [,(funcall formatfn (nth 0 elm))
- ,(funcall formatfn (nth 1 elm))
- ,(funcall formatfn (nth 2 elm))
- ,(funcall formatfn (nth 3 elm))])
- res))
- (nreverse res)))
- (setq tabulated-list-sort-key '("Map" . nil))
- (tabulated-list-print)
- (tabulated-list-init-header))
+(define-derived-mode leaf-key-list-mode tabulated-list-mode "Leaf-key Bindings"
+ "Major mode for listing bindings configured via `leaf-key'."
+ (setq tabulated-list-format [("Map" 20 t)
+ ("Key" 20 t)
+ ("Command" 40 t)
+ ("Before Command" 0 t)])
+ (setq tabulated-list-entries
+ (let ((id 0)
+ (formatfn (lambda (elm)
+ (if (stringp elm)
+ elm
+ (prin1-to-string (if (eq elm nil) '--- elm)))))
+ res)
+ (dolist (elm leaf-key-bindlist)
+ (setq id (1+ id))
+ (push `(,id [,(funcall formatfn (nth 0 elm))
+ ,(funcall formatfn (nth 1 elm))
+ ,(funcall formatfn (nth 2 elm))
+ ,(funcall formatfn (nth 3 elm))])
+ res))
+ (nreverse res)))
+ (setq tabulated-list-sort-key '("Map" . nil))
+ (tabulated-list-print)
+ (tabulated-list-init-header))
;;;###autoload
- (defun leaf-key-describe-bindings ()
- "Display all the bindings configured via `leaf-key'."
- (interactive)
- (let ((buf (get-buffer-create "*Leaf-key bindings*")))
- (with-current-buffer buf
- (leaf-key-list-mode))
- (display-buffer buf)))))))
+(defun leaf-key-describe-bindings ()
+ "Display all the bindings configured via `leaf-key'."
+ (interactive)
+ (require 'tabulated-list)
+ (let ((buf (get-buffer-create "*Leaf-key bindings*")))
+ (with-current-buffer buf
+ (leaf-key-list-mode))
+ (display-buffer buf)))
;;;; Handler
- [elpa] externals/leaf d5fe958 11/29: indent test.tml, (continued)
- [elpa] externals/leaf d5fe958 11/29: indent test.tml, Stefan Monnier, 2020/11/10
- [elpa] externals/leaf 09f2e23 04/29: tagged v4.2.7, Stefan Monnier, 2020/11/10
- [elpa] externals/leaf f733e8d 18/29: tagged v4.3.0, Stefan Monnier, 2020/11/10
- [elpa] externals/leaf 450448d 19/29: Merge pull request #452 from conao3/feature#451, Stefan Monnier, 2020/11/10
- [elpa] externals/leaf 17d00e7 21/29: use string-match-p instead of string-suffix-p, Stefan Monnier, 2020/11/10
- [elpa] externals/leaf 4e73a44 26/29: follow org-mode grammar and better conventions, Stefan Monnier, 2020/11/10
- [elpa] externals/leaf 447b152 07/29: Merge pull request #446 from jidicula/fix-grammar-#445, Stefan Monnier, 2020/11/10
- [elpa] externals/leaf 06935bd 14/29: add leaf-plist-get gv-expander, Stefan Monnier, 2020/11/10
- [elpa] externals/leaf 272fd44 06/29: [docs][README] Fix grammatical errors, Stefan Monnier, 2020/11/10
- [elpa] externals/leaf 74d3498 05/29: Merge pull request #444 from conao3/feature#443, Stefan Monnier, 2020/11/10
- [elpa] externals/leaf 8c8c793 23/29: remove tabulated-list guard,
Stefan Monnier <=
- [elpa] externals/leaf 60133a2 28/29: tagged v4.3.2, Stefan Monnier, 2020/11/10
- [elpa] externals/leaf 3833620 10/29: Don't run double CI for PR and branch, Stefan Monnier, 2020/11/10
- [elpa] externals/leaf f044dc4 22/29: use setq instead of setq-local, Stefan Monnier, 2020/11/10
- [elpa] externals/leaf 34e95dc 24/29: tagged v4.3.1, Stefan Monnier, 2020/11/10
- [elpa] externals/leaf 7d2f13a 25/29: Merge pull request #456 from conao3/feature#455, Stefan Monnier, 2020/11/10
- [elpa] externals/leaf 7a0a815 08/29: Do test in Emacs-27.1, Stefan Monnier, 2020/11/10
- [elpa] externals/leaf eeb0bd0 09/29: Do all test job if fail some jobs, Stefan Monnier, 2020/11/10
- [elpa] externals/leaf 0913f06 17/29: remove leaf-warn font-lock, Stefan Monnier, 2020/11/10
- [elpa] externals/leaf 7520119 13/29: Merge pull request #448 from conao3/feature#447, Stefan Monnier, 2020/11/10
- [elpa] externals/leaf be3b434 16/29: Merge pull request #450 from conao3/feature#449, Stefan Monnier, 2020/11/10