1 ;;; ivy-hydra.el --- Additional key bindings for Ivy -*- lexical-binding: t -*-
3 ;; Copyright (C) 2015 Free Software Foundation, Inc.
7 ;; This file is part of GNU Emacs.
9 ;; This file is free software; you can redistribute it and/or modify
10 ;; it under the terms of the GNU General Public License as published by
11 ;; the Free Software Foundation; either version 3, or (at your option)
14 ;; This program is distributed in the hope that it will be useful,
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 ;; GNU General Public License for more details.
19 ;; For a full copy of the GNU General Public License
20 ;; see <http://www.gnu.org/licenses/>.
24 ;; This package provides the `hydra-ivy/body' command, which is a
25 ;; quasi-prefix map, with many useful bindings. These bindings are
26 ;; shorter than usual, using mostly unprefixed keys.
29 (require 'hydra nil t)
32 (unless (package-installed-p 'hydra)
33 (defmacro defhydra (name &rest _)
34 "This is a stub for the uninstalled `hydra' package."
35 `(defun ,(intern (format "%S/body" name)) ()
37 (let ((enable-recursive-minibuffers t))
38 (if (yes-or-no-p "Package `hydra' not installed. Install?")
40 (package-install 'hydra)
41 (save-window-excursion
42 (find-library "ivy-hydra")
43 (byte-compile-file (buffer-file-name) t)))
44 (error "Please install `hydra' and recompile/reinstall `ivy-hydra'"))))))
46 (defhydra hydra-ivy (:hint nil
49 ^^^^^^ ^Yes^ ^No^ ^Maybe^
50 ^^^^^^^^^^^^^^---------------------------------------
51 ^ ^ _k_ ^ ^ _f_ollow _i_nsert _c_: calling %s(if ivy-calling \"on\" \"off\")
52 _h_ ^+^ _l_ _d_one _o_ops _m_: matcher %s(if (eq ivy--regex-function 'ivy--regex-fuzzy) \"fuzzy\" \"ivy\")
56 ("h" ivy-beginning-of-buffer)
58 ("k" ivy-previous-line)
59 ("l" ivy-end-of-buffer)
61 ("o" keyboard-escape-quit :exit t)
63 ("f" ivy-alt-done :exit nil)
64 ("C-j" ivy-alt-done :exit nil)
65 ("d" ivy-done :exit t)
66 ("C-m" ivy-done :exit t)
67 ("c" ivy-toggle-calling)
68 ("m" ivy-toggle-fuzzy))
72 ;;; ivy-hydra.el ends here