refactor(kbd): Replace my-color-picker with consult-colors-emacs

lisp/init-kbd-func.el

@@ -257,18 +257,18 @@ argument)."
   (when-let* ((proj (project-current t)))
     (consult-ripgrep (project-root proj))))
 
-(defun my-color-picker ()
-  "Pick a color with preview."
-  (interactive)
-  (let* ((colors (defined-colors))
-         (choice (completing-read
-                  "Color: "
-                  (mapcar (lambda (c)
-                            (propertize
-                             (format "%-20s %s" c "████")
-                             'face `(:foreground ,c)))
-                          colors))))
-    (string-trim (car (split-string choice)))))
+(defun consult-colors-emacs (color)
+      "Show a list of all supported colors for a particular frame.
+
+You can insert the name (default), or insert or kill the hexadecimal or RGB
+value of the selected COLOR."
+      (interactive
+       (list (consult--read (list-colors-duplicates (defined-colors))
+                            :prompt "Emacs color: "
+                            :require-match t
+                            :category 'color
+                            :history '(:input consult-colors-history))))
+      (insert color))
 
 (defun fix-theme-colors ()
   "Fix invalid color name in theme files."