Integrate evil with ctrlf-style-alist. (#124)

* Integrate evil with ctrlf-style-alist.

* Update changelog

Co-authored-by: Radon Rosborough <radon@intuitiveexplanations.com>

CHANGELOG.md

@@ -4,12 +4,17 @@ All notable changes to this project will be documented in this file.
 The format is based on [Keep a Changelog].
 
 ## Unreleased
+### Enhancements
+* Improved evil-mode's search history integration so it will now use
+  the translations defined in `ctrlf-style-alist` ([#124]).
+
 ### Bugs fixed
 * Previously `C-g` would fail to reset point to its original position
   in some cases. This has been fixed ([#110], [#114]).
 
 [#110]: https://github.com/radian-software/ctrlf/issues/110
 [#114]: https://github.com/radian-software/ctrlf/pull/114
+[#124]: https://github.com/radian-software/ctrlf/pull/124
 
 ## 1.5 (released 2022-06-01)
 ### Features

ctrlf.el

@@ -677,10 +677,13 @@ Will add search pattern STR to evil's search history ring."
          (setq isearch-string str))
         (evil-search
          (add-to-history 'evil-ex-search-history str)
-         (setq evil-ex-search-pattern (list str nil t))
-         (setq evil-ex-search-direction 'forward)
-         (when evil-ex-search-persistent-highlight
-           (evil-ex-search-activate-highlight evil-ex-search-pattern))))))
+         (let* ((style-plist (alist-get ctrlf--style ctrlf-style-alist))
+                (translator (plist-get style-plist :translator))
+                (translated-str (funcall translator str)))
+           (setq evil-ex-search-direction 'forward
+                 evil-ex-search-pattern (list translated-str nil t))
+           (when evil-ex-search-persistent-highlight
+             (evil-ex-search-activate-highlight evil-ex-search-pattern)))))))
   str)
 
 ;;;; Main loop