http://qs321.pair.com?node_id=442272


in reply to Re^2: Desparately seeking a bilingual vim/Emacs expert
in thread Desparately seeking a bilingual vim/Emacs expert

(defun perl-dbg () "Insert a debugging print statement" (interactive) (insert "use Data::Dumper qw( Dumper );\nwarn Dumper [ ];\n") (search-backward "[ ")) (global-set-key "\C-c\C-p" 'perl-dbg)
Then typing CTL-C CTL-p inserts this text:
use Data::Dumper qw( Dumper ); warn Dumper [ ];
and leaves the cursor under the [ character. I wasn't sure if you wanted to prompt for the name of the variable(s) to dump, so I changed (defun perl-dbg (name) to (defun perl-dbg (). The statement (interactive) makes it interactive, so that it can be bound to a key combination. Here's a version that prompts for a variable name (or names):
(defun perl-dbg (name) "Insert a debugging print statement" (interactive "svariable to dump: ") (insert "use Data::Dumper qw( Dumper );\nwarn Dumper ") (insert name) (insert ";\n"))
There are probably better ways to handle strings in Emacs-Lisp, but I've only recently started playing with it.

Replies are listed 'Best First'.
Re^4: Desparately seeking a bilingual vim/Emacs expert
by TheDamian (Vicar) on Mar 25, 2005 at 08:54 UTC
    Thanks for debugging my attempted debugging tool!
Re^4: Desparately seeking a bilingual vim/Emacs expert
by TheDamian (Vicar) on Mar 25, 2005 at 08:54 UTC
    Excellent. Thank-you!