From: Peng Li <seudut@gmail.com>
Date: Mon, 7 Sep 2015 17:03:45 +0000 (+0800)
Subject: emacs hydra echo area https://github.com/abo-abo/hydra/issues/134
X-Git-Url: http://47.100.26.94:8080/?a=commitdiff_plain;ds=sidebyside;h=539a7ad041d8c52834be53dcdfda87890b313a3e;p=dotfiles.git

emacs hydra echo area https://github.com/abo-abo/hydra/issues/134
---

diff --git a/emacs.d/config/init-hydra.el b/emacs.d/config/init-hydra.el
index 50cc422..e77f159 100644
--- a/emacs.d/config/init-hydra.el
+++ b/emacs.d/config/init-hydra.el
@@ -23,8 +23,8 @@
 
 
 (global-set-key
- (kbd "C-M-o")
-; (kbd "M-p")
+; (kbd "C-M-o")
+ (kbd "M-o")
       (defhydra hydra-window ()
 	"window"
 	("h" windmove-left)
@@ -36,21 +36,23 @@
 	       (split-window-right)
 	       (windmove-right))
 	 "vert")
-	("x" (lambda ()
+	("s" (lambda ()
 	       (interactive)
 	       (split-window-below)
 	       (windmove-down))
 	 "horz")
 	("o" delete-other-windows "one" :color blue)
 	("a" ace-window "ace")
-	("s" ace-swap-window "swap")
+	("w" ace-swap-window "swap")
 	("d" ace-delete-window "del")
 	("i" ace-maximize-window "ace-one" :color blue)
 	("b" ido-switch-buffer "buf")
 	("u" (progn (winner-undo) (setq this-command 'winner-undo)) "undo")
-	("i" winner-undo "undo2")
 	("q" nil "cancel")))
 
+;(defun pl-last-winner ()
+  
+
 ;; define C-space start mark 
 
 
@@ -114,7 +116,7 @@
      ("y" kill-ring-save "yank" :color blue)
      ("q" nil "quit")))
 
-
+(setq hydra-lv nil)
 
 ;;** Example 6: selective global bind