X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig%2Finit-hydra.el;h=e77f1598992ff5a993e8fc207376c397820c6c28;hb=4e76d108984adbbc11e641176f3e59d6555b35b4;hp=50cc422db461f8f7ed8bb91286dcab5695a8aa93;hpb=a9485fb0ed397258a1ea7e5023508c583c78492e;p=dotfiles.git 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