31 lines
1.2 KiB
EmacsLisp
31 lines
1.2 KiB
EmacsLisp
(defun my/read-list (&optional f stop-pred)
|
|
"Return a list by repeatedly requesting input using function F.
|
|
|
|
By default, F is `read-string', and should be a function that
|
|
takes a prompt as its first argument. The collection of input
|
|
continues until STOP-PRED returns t on the last input value, by
|
|
default the empty string."
|
|
(named-let read-element ((result nil)
|
|
(counter 1)
|
|
(f (or f #'read-string))
|
|
(stop-pred (or stop-pred #'string-empty-p)))
|
|
(let ((e nil))
|
|
(setq e (funcall f (format "Read element %d: " counter)))
|
|
(if (funcall stop-pred e)
|
|
result
|
|
(read-element (append result (list e)) (1+ counter) f stop-pred)))))
|
|
|
|
(defun my/execute-command-repeat (command &rest arguments)
|
|
"Execute COMMAND repeatedly on all the given ARGUMENTS.
|
|
|
|
COMMAND is an interactive function that takes a single argument.
|
|
Arguments are collected one by one with my/read-list and then
|
|
COMMAND is executed (length arguments) times, once for each
|
|
value."
|
|
(interactive (append (list (read-command "Command: "))
|
|
(my/read-list)))
|
|
(mapc (lambda (arg)
|
|
(with-demoted-errors "Error: %S"
|
|
(funcall command arg)))
|
|
arguments))
|