Jak mogę odpowiedzieć na pytanie o minibufor z Elisp?

Czasami używam interaktywnych funkcji wewnątrz funkcji, którą piszę na własny użytek. Jeśli funkcja prosi o pewne informacje (np. „Plik wyjściowy: ~ /”), czy istnieje ogólny sposób dodawania tekstu do minibufora, a następnie naciśnij klawisz Enter, aby użytkownik nie musiał tego robić?

Jako przykład załóżmy, że chcę uruchomić org-latex-export-to-pdfwewnątrz funkcji, ale nie chcę, aby użytkownik musiał określać nazwę pliku. Bieganie (org-latex-export-to-pdf)przeniesie punkt do minibufora, ale umieszczenie czegoś (insert "filename.tex")w następnym wierszu nie wydaje się działać.

Ciekawy problem. Wygląda na to, że edytor działa za post-command-hookkażdym razem, gdy wchodzi w nową pętlę poleceń, tj recursive-edit. Ale możemy zacząć od minibuffer-setup-hook, który wykonuje funkcję po wejściu do minibufora. Chociaż pozwala to na wstawianie danych wejściowych, jest zbyt wcześnie, aby wyjść z minibufora, ponieważ catch nie został jeszcze skonfigurowany.

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

Właśnie dlatego musimy zawinąć „argumenty” w naszą własną „pętlę poleceń”, która jest wykonywana za każdym razem, gdy wchodzimy do recursive-edit, w którym to momencie wyskakuje jeden argument i podnosi poziom o jeden poziom wyżej 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

Napisałem makro dla tego o nazwie with-simulated-input, które można uzyskać tutaj . Umożliwia to wprowadzanie dowolnych danych wejściowych, a także wykonywanie dowolnych formularzy seplenienia w celu symulacji interakcji użytkownika.

Na przykład:

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

zwróci "hello world", z „hello” wstawionym przez pierwszy ciąg, „world” wstawiony za pomocą kodu lisp, a na końcu „RET”, aby zakończyć wprowadzanie.

Jest dostarczany z zestawem testowym, na którym można znaleźć więcej przykładów użycia.

Wygląda na to, że użycie run-with-timerz insertspowoduje wykonanie pracy.

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

Polecenie insertpo umieszczeniu później pojawia się zbyt szybko. Próbuje wstawić ciąg, zanim będzie miejsce do wstawienia.