Re: convert current working directory to perl package name

[Andreas Politz]

metaperl <schemelab@gmail.com> writes:

> hello,
>
> I would like to create a simple interactive Emacs Lisp function.
>
> When invoked, this command will obtain the current directory as a full
> pathname:
>
> /home/metaperl/prg/DBIx-Cookbook/lib/DBIx/Cookbook/Recipe/Searching
>
> It will then get rid of everything from the start of line to (and
> including) lib:
>
> DBIx/Cookbook/Recipe/Searching
>
> Then it will replace each forward slash with "::"
>
> DBIx::Cookbook::Recipe::Searching
>
> The resulting string will be put into the buffer at point.
>
> I've written a macro to do this, but dont know how to save a macro as
> a command to my .emacs.el file


If you name your macro (`kmacro-name-last-macro'), you can insert
it as a command in your init-file with `insert-kbd-macro'.

Or use a function.

(defun insert-perl-foo ()
  (interactive)
  (save-restriction
    (narrow-to-region
     (point) (progn
               (insert (expand-file-name default-directory))
               (point)))
    (goto-char (point-min))
    (when (re-search-forward ".*?/lib/" nil t)
      (delete-region (point-min) (point))) 
    (while (re-search-forward "/" nil 'move)
      (replace-match "::")))))

-ap