Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re: (OT) emacs perl tweaks -- help sought w/ emacs lisp

by stefan k (Curate)
on Oct 14, 2004 at 12:13 UTC ( #399171=note: print w/replies, xml ) Need Help??

in reply to (OT) emacs perl tweaks -- help sought w/ emacs lisp

first, as I posted before, although I really appreciate when someone writes code in elisp (even if it were just for the fun in it ;-) I suggest using the function cperl-check-syntax which invokes mode-compile which is quite clever. One gain would be that you can jump to errors found my that process directly. Another gain would be the customizability of mode-compile. There is one variable called mode-compile-other-frame-p which could be used to achieve your first goal in a way: simply let it use a different frame (known as "window" to all other users ;-) and hide that frame somewhere on your desktop where it won't get in your way.

Another possibility might be to use one of the hooks run before and after running mode-compile but after looking at the code I can't find an obvious way.

As to your second question you're probably interested in using the emacs-feature where you can pass a region or a buffer to a shell command and replace the region/buffer with the result of that command. This can also be used for sorting lines for example.

This call would look like this:

C-x h C-u M-| perltidy
Here C-x h should mark the whole buffer, the prefix argument C-u enables the replacement of the region and finally M-| calls the function shell-command-on-region which asks for the command to use. Unfortunately I don't have perltidy at hand to test it.

Putting all this into a single function which can be bound to a key would be like:

(defun my-perltidy () "Call perltidy on the current buffer. This replaces the current content of the buffer with the output of the perltidy programm. You must have perltidy installed. See for the start of this." (interactive) (when (yes-or-no-p "Really run perltidy? ") (goto-char (point-min)) (shell-command-on-region (point-min) (point-max) "perltidy" nil t)))
And then:
(add-hook 'cperl-mode-hook '(lambda () (local-set-key '[(control c) (control t)] 'my-perltidy)))
or something like that.

Please note, that I use XEmacs, but this code should be usable on both emacsen, I guess

Update Thu Oct 14 14:15:41 CEST 2004: Added note on emacs-version

Regards... Stefan
you begin bashing the string with a +42 regexp of confusion

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://399171]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (4)
As of 2017-03-30 06:17 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (353 votes). Check out past polls.