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

lisp/init-base.el

@@ -68,7 +68,6 @@
 					search-ring
 					regexp-search-ring
 					extended-command-history)
-	savehist-ignored-variables '(consult-notes-history)
 	savehist-autosave-interval 300))
 
 ;; saveplace，保存光标位置

lisp/init-completion.el

@@ -35,6 +35,9 @@
    (*is-linux*
     (setq consult-locate-args "plocate --basename --ignore-case")))
 
+  (define-key consult-narrow-map (vconcat consult-narrow-key "?") #'consult-narrow-help)
+  (setq consult-narrow-key "<")
+
   ;; set some buffer filter
   (setq consult-buffer-filter
 	(cl-union consult-buffer-filter

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

lisp/init-kbd.el

@@ -37,7 +37,7 @@
   "R" 'rainbow-mode
   "b" 'indent-bars-mode
   "t" 'consult-theme
-  "c" 'my-color-picker
+  "c" 'consult-colors-emacs
   "f" 'describe-face
   "r" 'rainbow-delimiters-mode
   "k" 'keycast-header-line-mode

lisp/init-terminal-package.el

@@ -41,7 +41,6 @@
 					search-ring
 					regexp-search-ring
 					extended-command-history)
-	savehist-ignored-variables '(consult-notes-history)
 	savehist-autosave-interval 300))
 
 (use-package saveplace