Polecenie powłoki Emacsa na buforze

Question

Chciałbym ustawić funkcję, która ma odpowiednik zaznaczenia całego bufora i uruchomić C-u M-|, aby zapytać o polecenie, przepuścić bufor do polecenia i zastąpić bufor wyjściem. A może ustawić na shift-f5 lub coś podobnego.

Mam tylko tak daleko, jak to:

(defun shell-command-on-buffer() 
    (interactive) 
    (mark-whole-buffer)) 

Jak mogę zrobić z resztą?

Answer 1

Działa to dla mnie:

(defun shell-command-on-buffer (command) 
    (interactive "sShell command on buffer: ") 
    (shell-command-on-region (point-min) (point-max) command t)) 

Answer 2

Ten ma tę zaletę, że za pomocą „poleceń shell” historię minibuforze zamiast ogólnej historii minibufora.

(defun shell-command-on-buffer() 
    (interactive) 
    (shell-command-on-region (point-min) (point-max) (read-shell-command "Shell command on buffer: ") t))