From 1262b8049fd73b5a33dc629674a0446b8de481d3 Mon Sep 17 00:00:00 2001
From: Madeleine Sydney <lomiskiam@gmail.com>
Date: Mon, 6 Jan 2025 10:11:39 -0700
Subject: [PATCH] wip: feat: Various UI things

---
 .../.saves-19045-nixos-testbed~               |  2 --
 users/crumb/programs/emacs/modules/syd-ui.el  | 25 +++++++++++++++++++
 2 files changed, 25 insertions(+), 2 deletions(-)
 delete mode 100644 users/crumb/programs/emacs/auto-save-list/.saves-19045-nixos-testbed~

diff --git a/users/crumb/programs/emacs/auto-save-list/.saves-19045-nixos-testbed~ b/users/crumb/programs/emacs/auto-save-list/.saves-19045-nixos-testbed~
deleted file mode 100644
index 749cf39..0000000
--- a/users/crumb/programs/emacs/auto-save-list/.saves-19045-nixos-testbed~
+++ /dev/null
@@ -1,2 +0,0 @@
-/tmp/t.el
-/tmp/#t.el#
diff --git a/users/crumb/programs/emacs/modules/syd-ui.el b/users/crumb/programs/emacs/modules/syd-ui.el
index 1cc1f60..f2b0f3d 100644
--- a/users/crumb/programs/emacs/modules/syd-ui.el
+++ b/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)