I'd like to set up a function that does the equivalent of marking the whole buffer, and running C-u M-| to prompt for a command, pipe the buffer to the command and replace the buffer with the output. Then maybe set it to shift-f5 or something.
I've only got as far as this:
(defun shell-command-on-buffer ()
(interactive)
(mark-whole-buffer))
How can I do the rest?
This works for me:
(defun shell-command-on-buffer (command)
(interactive "sShell command on buffer: ")
(shell-command-on-region (point-min) (point-max) command t))
shell-command-on-region. Edited to better answer your request-q) and it works for me. What version of emacs?This one has the advantage of using the "shell command" minibuffer history instead of the general minibuffer history.
(defun shell-command-on-buffer ()
(interactive)
(shell-command-on-region (point-min) (point-max) (read-shell-command "Shell command on buffer: ") t))
An incremental improvement on @killdash9's answer, that:
Tested with emacs 27.1
(defun shell-command-on-buffer ()
(interactive)
(let ((line (line-number-at-pos)))
;; replace buffer with output of shell command
(shell-command-on-region (point-min) (point-max) (read-shell-command "Shell command on buffer: ") nil t)
;; restore cursor position
(goto-line line)
(recenter-top-bottom)))
