wip: feat: Various UI things

users/crumb/programs/emacs/modules/syd-ui.el

@@ -1,5 +1,6 @@
 ;;; syd-ui.el -*- lexical-binding: t; -*-
 
+;; Show possible completions for a partially-entered key sequence.
 (use-package which-key
   :custom
   (which-key-allow-evil-operators t)
@@ -7,10 +8,34 @@
   :config
   (which-key-mode 1))
 
+;; Beautiful theme in dark and light.
+(use-package kanagawa-themes
+  :config
+  (load-theme 'kanagawa-wave t))
+
 (use-package emacs
+  :custom
+  ;; Allow the opening of new minibuffers from inside existing minibuffers.
+  (enable-recursive-minibuffers t)
+  ;; Hide commands in M-x which do not work in the current mode.
+  (read-extended-command-predicate #'command-completion-default-include-p)
   :config
   ;; Disable blinking cursor.  I don't really like it, but it also doesn't play
   ;; well with `evil-terminal-cursor-changer'.
   (blink-cursor-mode -1))
 
+(use-package vertico
+  :init
+  (vertico-mode 1))
+
+;; Orderless provides a completion style that divides the pattern into
+;; space-separated components, and matches candidates that match all of the
+;; components in any order.  Each component can match in any one of several
+;; ways: literally, as a regexp, as an initialism, in the flex style, or as
+;; multiple word prefixes.  By default, regexp and literal matches are enabled.
+(use-package orderless
+  :custom
+  (completion-styles '(orderless basic))
+  (completion-category-overrides '((file (styles basic partial-completion)))))
+
 (provide 'syd-ui)