(defun pipe-through (cmd)
  (interactive "p")
  (shell-command-on-region (mark) (point) cmd t t))

(defalias '| 'pipe-through)
(defalias '< 'pipe-in)
(defalias '> 'pipe-out)
(defalias '! 'run-command-in-vterm)
(defalias 'comma 'mark-whole-buffer)