[elpa] master 4d66758 47/90: Allow to toggle matching mode with "C-o m"

[Oleh Krehel]

branch: master
commit 4d6675879652590c8a6f4c89362840f66c537374
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    Allow to toggle matching mode with "C-o m"
    
    * ivy.el (ivy-toggle-fuzzy): New command.
    
    * ivy-hydra.el (hydra-ivy): Bind `ivy-toggle-fuzzy' to "m".
    
    Fixes #142.
---
 ivy-hydra.el |    7 +++++--
 ivy.el       |    8 ++++++++
 2 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/ivy-hydra.el b/ivy-hydra.el
index 1efab41..8cfb134 100644
--- a/ivy-hydra.el
+++ b/ivy-hydra.el
@@ -42,13 +42,15 @@
                (byte-compile-file (buffer-file-name) t)))
          (error "Please install `hydra' and recompile/reinstall 
`ivy-hydra'")))))
 
+
+
 (defhydra hydra-ivy (:hint nil
                      :color pink)
   "
 ^^^^^^          ^Yes^     ^No^     ^Maybe^
 ^^^^^^^^^^^^^^---------------------------------------
 ^ ^ _k_ ^ ^     _f_ollow  _i_nsert _c_: calling %s(if ivy-calling \"on\" 
\"off\")
-_h_ ^✜^ _l_     _d_one    _o_ops
+_h_ ^✜^ _l_     _d_one    _o_ops   _m_: matcher %s(if (eq ivy--regex-function 
'ivy--regex-fuzzy) \"fuzzy\" \"ivy\")
 ^ ^ _j_ ^ ^
 "
   ;; arrows
@@ -61,7 +63,8 @@ _h_ ^✜^ _l_     _d_one    _o_ops
   ("i" nil)
   ("f" ivy-alt-done :exit nil)
   ("d" ivy-done :exit t)
-  ("c" ivy-toggle-calling))
+  ("c" ivy-toggle-calling)
+  ("m" ivy-toggle-fuzzy))
 
 (provide 'ivy-hydra)
 
diff --git a/ivy.el b/ivy.el
index 75953bd..aaa7e11 100644
--- a/ivy.el
+++ b/ivy.el
@@ -1366,6 +1366,14 @@ Don't finish completion."
   (delete-minibuffer-contents)
   (insert ivy--current))
 
+(defun ivy-toggle-fuzzy ()
+  "Toggle the re builder between `ivy--regex-fuzzy' and `ivy--regex-plus'."
+  (interactive)
+  (setq ivy--old-re nil)
+  (if (eq ivy--regex-function 'ivy--regex-fuzzy)
+      (setq ivy--regex-function 'ivy--regex-plus)
+    (setq ivy--regex-function 'ivy--regex-fuzzy)))
+
 (provide 'ivy)
 
 ;;; ivy.el ends here