mirror of
https://github.com/pestctrl/emacs-config.git
synced 2026-02-16 08:14:15 +00:00
Let me see what I said
This commit is contained in:
parent
39a0c02e35
commit
edea891621
1 changed files with 12 additions and 0 deletions
|
|
@ -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? "
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue