branch: externals/leaf
commit 81ba02fb4337cff299052a56c8f286b08f659c21
Author: Naoya Yamashita <con...@gmail.com>
Commit: Naoya Yamashita <con...@gmail.com>
add lambda bind pattern to README
---
README.org | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/README.org b/README.org
index 6d4a49bf2c..a22f319563 100644
--- a/README.org
+++ b/README.org
@@ -840,7 +840,13 @@ If you omit ~:package~, use leaf--name as ~:package~ to
lazy load.
(prog1 'files
(unless (fboundp 'find-file) (autoload #'find-file "files" nil t))
(declare-function find-file "files")
- (leaf-keys (([(control ?x) (control ?f)] . find-file)))))))
+ (leaf-keys (([(control ?x) (control ?f)] . find-file)))))
+
+ ;; you can bind the lambda.
+ ((leaf color-moccur
+ :bind ("M-s O" . (lambda () "color-moccur" (interactive)
(color-moccur))))
+ (prog1 'color-moccur
+ (leaf-keys (("M-s O" . (lambda () "color-moccur" (interactive)
(color-moccur)))))))))
(cort-deftest-with-macroexpand leaf/bind*
'(
