emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix hydra-ivy keybind on M-o #1342

Browse source
This commit is contained in:
Henrik Lissner 2019-04-20 02:15:14 -04:00
parent ee754362a2
commit 7e7d6ae5a2
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 28 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

20
modules/completion/ivy/autoload/hydras.el
View file

@ -1,7 +1,8 @@
;;; completion/ivy/autoload/hydras.el -*- lexical-binding: t; -*-
;;;###autoload (autoload '+ivy-coo-hydra/body "completion/ivy/autoload/hydras" nil t)
(defhydra +ivy-coo-hydra (:hint nil :color pink)
;;;###autoload
(after! ivy-hydra
(defhydra+ hydra-ivy (:hint nil :color pink)
"
Move ^^^^^^^^^^ | Call ^^^^ | Cancel^^ | Options^^ | Action _w_/_s_/_a_: %s(ivy-action-name)
----------^^^^^^^^^^-+--------------^^^^-+-------^^-+--------^^-+---------------------------------
@ -10,8 +11,6 @@
_G_ ^ ^ _j_ ^ ^ _d_ | _TAB_ alt-done ^^ | ^ ^ | _<_/_>_: shrink/grow
"
;; arrows
("j" ivy-next-line)
("k" ivy-previous-line)
("l" ivy-alt-done)
("h" ivy-backward-delete-char)
("g" ivy-beginning-of-buffer)
@ -21,23 +20,12 @@
("e" ivy-scroll-down-command)
;; actions
("q" keyboard-escape-quit :exit t)
("C-g" keyboard-escape-quit :exit t)
("<escape>" keyboard-escape-quit :exit t)
("C-o" nil)
("i" nil)
("TAB" ivy-alt-done :exit nil)
("C-j" ivy-alt-done :exit nil)
("RET" ivy-done :exit t)
("C-m" ivy-done :exit t)
("C-SPC" ivy-call-and-recenter :exit nil)
("f" ivy-call)
("c" ivy-toggle-calling)
("m" ivy-toggle-fuzzy)
(">" ivy-minibuffer-grow)
("<" ivy-minibuffer-shrink)
("w" ivy-prev-action)
("s" ivy-next-action)
("a" ivy-read-action)
("t" (setq truncate-lines (not truncate-lines)))
("C" ivy-toggle-case-fold)
("o" ivy-occur :exit t))
("o" ivy-occur :exit t)))

7
modules/completion/ivy/config.el
View file

@ -77,11 +77,14 @@ immediately runs it on the current candidate (ending the ivy session)."
(ivy-mode +1)
(def-package! ivy-hydra
:commands (ivy-dispatching-done-hydra ivy--matcher-desc)
:commands (ivy-dispatching-done-hydra ivy--matcher-desc ivy-hydra/body)
:init
(define-key! ivy-minibuffer-map
"C-o" #'ivy-dispatching-done-hydra
"M-o" #'+ivy-coo-hydra/body)))
"M-o" #'hydra-ivy/body)
:config
;; ivy-hydra rebinds this, so we have to do so again
(define-key ivy-minibuffer-map (kbd "M-o") #'hydra-ivy/body)))
(def-package! ivy-rich