Testing completion-read.

2026-04-22 19:10:24 +10:00 · 2024-04-12 00:26:37 -05:00
parent aeaa014498
commit e2ea74fbde
2 changed files with 22 additions and 0 deletions
--- a/.config/emacs/config.el
+++ b/.config/emacs/config.el
@@ -700,3 +700,12 @@
 	  which-key-max-description-length 25
 	  which-key-allow-imprecise-window-fit nil
 	  which-key-separator " → " ))
+
+(defun reader ()
+  (interactive)
+  (let ((choices '(("First"  . 'first-choice)
+                   ("Second" . 'second-choice)
+                   ("Third"  . 'third-choice))))
+    (alist-get
+     (completing-read "Choose: " choices)
+     choices nil nil 'equal)))