Let me see what I said

This commit is contained in:
Benson Chu 2025-08-28 17:11:51 -05:00
parent 39a0c02e35
commit edea891621

View file

@ -83,6 +83,18 @@
(dolist (prompt ec/my-variables-list) (dolist (prompt ec/my-variables-list)
(ec/rerun-prompt prompt))) (ec/rerun-prompt prompt)))
(defun ec/get-one-prompt-result ()
(interactive)
(let ((resp (completing-read "Which prompt? "
(mapcar #'(lambda (a)
(last a))
ec/my-variables-list))))
(cl-loop for i in ec/my-variables-list
until (member resp i)
finally
do
(message "%s" (eval (cadr i))))))
(defun ec/rerun-one-prompt () (defun ec/rerun-one-prompt ()
(interactive) (interactive)
(let ((resp (completing-read "Which prompt? " (let ((resp (completing-read "Which prompt? "