On Sat, 2007-12-22 at 09:06 -0500, kevin montuori wrote:
> (defun ii-insert-catalyst-url ()
> (interactive)
> (let ((path (read-from-minibuffer "URI: ")))
> (insert (format "<a href=\"[%% Catalyst.uri_for('%s') %%]\"></a>" path))
> (backward-char 4)))
This would be better written as:
(defun ii-insert-catalyst-url (path)
(interactive "sURI: ")
(insert (format "<a href=\"[%% Catalyst.uri_for('%s') %%]\"></a>"
path))
(backward-char 4))
Now you can call the function non-interactively.
Regards,
Jonathan Rockway
signature.asc
Description: This is a digitally signed message part
_______________________________________________ List: Catalyst@lists.scsys.co.uk Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst Searchable archive: http://www.mail-archive.com/[EMAIL PROTECTED]/ Dev site: http://dev.catalyst.perl.org/
