Como posso responder a um prompt do minibuffer da elisp?

Ocasionalmente, me pego usando funções interativas dentro de uma função que estou escrevendo para meu próprio uso. Se uma função solicitar algumas informações (por exemplo, "Arquivo de saída: ~ /"), existe uma maneira geral de adicionar texto ao minibuffer e pressione enter para que o usuário não precise fazer isso?

Como exemplo, suponha que eu queira executar org-latex-export-to-pdfdentro de uma função, mas não quero que o usuário precise especificar um nome de arquivo. Correr (org-latex-export-to-pdf)moverá o ponto para o minibuffer, mas colocar algo como (insert "filename.tex")na próxima linha não parece funcionar.

Problema interessante. Parece que o editor é executado post-command-hooktoda vez que entra em um novo loop de comando, ou seja, a recursive-edit. Mas podemos começar com minibuffer-setup-hook, que executa uma função depois de inserir o minibuffer. Embora isso permita a inserção de entrada, é muito cedo para sair do minibuffer, porque a captura ainda não foi configurada.

(defmacro with-minibuffer-input (form &rest inputs)
  (declare (indent 1))
  `(minibuffer-with-setup-hook
       (lambda ()
         (minibuffer-input-provider ',inputs))
     ,form))

É aí que precisamos envolver os 'argumentos' em nosso próprio 'loop de comando', que são executados toda vez que inserimos a recursive-edit, quando ele abre um argumento e sobe um nível, via exit-minibuffer.

;; -*- lexical-binding: t -*-
(defun minibuffer-input-provider (inputs)
  (let ((hook (make-symbol "hook")))
    (fset hook (lambda ()
                 (remove-hook 'post-command-hook hook)
                 (when inputs
                   (when (= 0 (minibuffer-depth))
                     (error "Too many inputs"))
                   (when (cdr inputs)
                     (add-hook 'post-command-hook hook))
                   (insert (pop inputs))
                   (exit-minibuffer))))
    (add-hook 'post-command-hook hook)))


(with-minibuffer-input (call-interactively 'find-file)
  "/")

(with-minibuffer-input (call-interactively 'occur)
  "\\(foo\\)\\(bar\\)" "\\1");;C-u C-x C-e

;;foobar

(with-minibuffer-input (call-interactively 'replace-string)
  "foo" "bar")

;; foo

Eu escrevi uma macro para isso chamada with-simulated-input, que você pode obter aqui . Ele permite que você forneça entradas arbitrárias, bem como execute formulários arbitrários de lisp para simular a interação do usuário.

Por exemplo:

(with-simulated-input '("hello SPC" (insert "world") "RET")
  (read-string "Enter greeting: "))

retornaria "hello world", com o "hello" inserido pela primeira string, o "world" inserido via código lisp e, finalmente, "RET" para finalizar a entrada.

Ele vem com um conjunto de testes que você pode ver para obter mais exemplos de uso.

Parece que o uso run-with-timercom insertfará o trabalho.

(run-with-timer .2 nil 'insert "filename.tex")
(run-with-timer .3 nil 'execute-kbd-macro (kbd "RET"))
(org-latex-export-to-pdf)

O comando, insertquando colocado depois, está surgindo muito rapidamente. Ele tenta inserir a string antes que haja um local para inseri-la.