[elpa] master a986e4e 071/184: ivy.el (ivy--yank-handle-case-fold): Add

[Oleh Krehel]

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

    ivy.el (ivy--yank-handle-case-fold): Add
    
    Fixes #2194
---
 ivy-test.el | 10 ++++++++++
 ivy.el      | 11 ++++++++++-
 2 files changed, 20 insertions(+), 1 deletion(-)

diff --git a/ivy-test.el b/ivy-test.el
index 0989abd..a6fb301 100644
--- a/ivy-test.el
+++ b/ivy-test.el
@@ -1368,6 +1368,16 @@ a buffer visiting a file."
       (should (string= (ivy-with read-numbers "C-' a") "1"))
       (should (string= (ivy-with read-numbers "C-v C-' d") "7")))))
 
+(ert-deftest ivy--yank-handle-case-fold ()
+  (should (string=
+           (let ((ivy-text ""))
+             (ivy--yank-handle-case-fold "FirstName"))
+           "FirstName"))
+  (should (string=
+           (let ((ivy-text "f"))
+             (ivy--yank-handle-case-fold "irstName"))
+           "irstname")))
+
 (provide 'ivy-test)
 
 ;;; ivy-test.el ends here
diff --git a/ivy.el b/ivy.el
index 5a33d6f..983b87a 100644
--- a/ivy.el
+++ b/ivy.el
@@ -4302,6 +4302,12 @@ Skip buffers that match `ivy-ignore-buffers'."
             :keymap ivy-switch-buffer-map
             :caller 'ivy-switch-buffer-other-window))
 
+(defun ivy--yank-handle-case-fold (text)
+  (if (and (> (length ivy-text) 0)
+           (string= (downcase ivy-text) ivy-text))
+      (downcase text)
+    text))
+
 (defun ivy--yank-by (fn &rest args)
   "Pull buffer text from current line into search string.
 The region to extract is determined by the respective values of
@@ -4320,7 +4326,10 @@ point before and after applying FN to ARGS."
           (unless text
             (goto-char beg)))))
     (when text
-      (insert (replace-regexp-in-string "  +" " " text t t)))))
+      (insert (replace-regexp-in-string
+               "  +" " "
+               (ivy--yank-handle-case-fold text)
+               t t)))))
 
 (defun ivy-yank-word (&optional arg)
   "Pull next word from buffer into search string.