Add fuzzy isearch config

emacs.el

@@ -450,16 +450,19 @@ Otherwize hook it."
 
 ;; (global-set-key (kbd "C-s") 'isearch-forward-regexp)
 ;; (global-set-key (kbd "C-r") 'isearch-backward-regexp)
-(set-variable 'search-default-mode t)
-(set-variable 'search-whitespace-regexp ".*?")
-(set-variable 'isearch-regexp-lax-whitespace t)
+(if (eval-and-compile (require 'prescient nil t))
+    (set-variable 'search-default-mode
+                  (lambda (orig lax)
+                    (prescient-fuzzy-regexp orig)))
+  (set-variable 'search-default-mode t))
+;; (set-variable 'search-whitespace-regexp ".*?")
+;; (set-variable 'isearch-regexp-lax-whitespace t)
 ;; (replace-regexp-in-string "\n" "" (prescient-fuzzy-regexp "abc"))
-;; TODO: Do not depend on ivy function
-;; (set-variable 'search-default-mode
-;;               (lambda (str lax)
-;;                 (ivy--regex-fuzzy (replace-regexp-in-string (rx (one-or-more whitespace))
-;;                                                             ""
-;;                                                             str))))
+;; (string-match-p (prescient-fuzzy-regexp "abc") "aaa\nbc")
+;; (isearch-symbol-regexp "abc def" nil)
+;; (isearch-symbol-regexp "abc def" t)
+;; (word-search-regexp "abc def" nil)
+;; (word-search-regexp "abc def" t)
 
 (when (fboundp 'undo-fu-only-undo)
   (global-set-key (kbd "C-_") 'undo-fu-only-undo))