Snoooopy/dtos-dotfiles
1
0
Fork 0
mirror of https://gitlab.com/dwt1/dotfiles.git synced 2026-04-21 18:40:26 +10:00
Code Issues Packages Projects Releases Wiki Activity

Testing completion-read.

Browse Source
This commit is contained in:
Derek Taylor
2024-04-12 22:21:50 -05:00
parent 0c097e5d01
commit 67ddcb090f
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
.config/emacs/config.el
View File

@@ -738,6 +738,8 @@
(defun dt/key-value-completing (choice)
(interactive
(list
(let ((completions '(("1" "One") ("2" "Two") ("3" "Three"))))
(let ((completions '(("1" "One")
("2" "Two")
("3" "Three"))))
(cadr (assoc (completing-read "Choose: " completions) completions)))))
(message "You choose `%s'" choice))

4
.config/emacs/config.org
View File

@@ -1067,7 +1067,9 @@ With Emacs version 29, true transparency has been added. I have turned transpar
(defun dt/key-value-completing (choice)
(interactive
(list
(let ((completions '(("1" "One") ("2" "Two") ("3" "Three"))))
(let ((completions '(("1" "One")
("2" "Two")
("3" "Three"))))
(cadr (assoc (completing-read "Choose: " completions) completions)))))
(message "You choose `%s'" choice))