emacs で perltidy

俺メモ．

(defun perltidy ()
  "Run perltidy on the current buffer."
  (interactive)
  (let ((mypoint (point)))
    (save-excursion
      (shell-command-on-region (point-min) (point-max) "perltidy -q" nil t))
    (goto-char mypoint)))
(add-hook 'cperl-mode-hook
	  (lambda ()
	    (define-key cperl-mode-map "\C-ct" 'perltidy)))