[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master b963c70 5/6: Improve the names of functions generated from
From: |
Oleh Krehel |
Subject: |
[elpa] master b963c70 5/6: Improve the names of functions generated from lambdas |
Date: |
Wed, 04 Feb 2015 18:51:22 +0000 |
branch: master
commit b963c70dcf211c86d4bb03bfd4a20c6807cbe679
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>
Improve the names of functions generated from lambdas
* hydra.el (defhydra): Improve.
Here, `hydra-window/lambda-v' function will be defined.
(defhydra hydra-window ()
"window"
("v" (lambda ()
(interactive)
(split-window-right)
(windmove-right))
"vert"))
---
hydra.el | 5 ++++-
1 files changed, 4 insertions(+), 1 deletions(-)
diff --git a/hydra.el b/hydra.el
index 72cbac9..738b77c 100644
--- a/hydra.el
+++ b/hydra.el
@@ -286,7 +286,10 @@ in turn can be either red or blue."
(names (mapcar
(lambda (x)
(define-key keymap (kbd (car x))
- (intern (format "%S/%s" name (cadr x)))))
+ (intern (format "%S/%s" name
+ (if (symbolp (cadr x))
+ (cadr x)
+ (concat "lambda-" (car x)))))))
heads))
(body-name (intern (format "%S/body" name)))
(body-key (unless (hydra--callablep body)
- [elpa] master updated (d44f2ad -> 3c57fa9), Oleh Krehel, 2015/02/04
- [elpa] master 7222773 3/6: hydra.el (hydra-disable): adapt to Emacs 24.4.1, Oleh Krehel, 2015/02/04
- [elpa] master b60201f 4/6: Bump version, Oleh Krehel, 2015/02/04
- [elpa] master b963c70 5/6: Improve the names of functions generated from lambdas,
Oleh Krehel <=
- [elpa] master 222ba95 2/6: hydra-examples.el: splitters take numeric argument, Oleh Krehel, 2015/02/04
- [elpa] master 0b6ef70 1/6: Add support for `universal-argument' and `digit-argument', Oleh Krehel, 2015/02/04
- [elpa] master 3c57fa9 6/6: Merge commit 'b963c70dcf211c86d4bb03bfd4a20c6807cbe679' from hydra, Oleh Krehel, 2015/02/04