The following code will also cause emacs to auto-perltidy anything you use cperl-mode with. (add-to-list 'cperl-mode-hook
(lambda ()
(substitute-key-definition
'save-buffer
'cperl-save-buffer
cperl-mode-map
global-map)))
(defvar cperl-auto-tidy t)
(defun cperl-save-buffer (&optional args)
"Perltidy and save current buffer in visited file if modified."
(interactive)
(if (and (buffer-modified-p)
cperl-auto-tidy)
(perltidy-buffer))
(save-buffer))
(defun perl-buffer () (interactive (shell-command-on-region (point-mi
+n) (point-max) "perl" nil nil nil)))
(defun cperl-auto-tidy (&optional arg)
"Automatically perltidy (or not)"
(setq cperl-auto-tidy (if arg t nil)))
(defun cperl-toggle-auto-tidy ()
(interactive)
(setq cperl-auto-tidy (not cperl-auto-tidy)))
(defun perltidy-buffer ()
"Runs an entire buffer through perltidy."
(interactive)
(let ((orig-point (point)))
(shell-command-on-region
(point-min) (point-max)
"perltidy -st -se -q -syn" nil t shell-command-default-error-buff
+er)
(goto-char (if (<= orig-point (point-max))
orig-point
(point-max)))))
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|