From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Andreas Politz Newsgroups: gmane.emacs.help Subject: Re: convert current working directory to perl package name Date: Mon, 05 Apr 2010 17:00:16 +0200 Organization: FH-Trier Message-ID: <874ojqhrlr.fsf@fh-trier.de> References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: dough.gmane.org 1273003288 28633 80.91.229.12 (4 May 2010 20:01:28 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 4 May 2010 20:01:28 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Tue May 04 22:01:27 2010 connect(): No such file or directory Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1O9OIx-0001sC-3u for geh-help-gnu-emacs@m.gmane.org; Tue, 04 May 2010 22:01:27 +0200 Original-Received: from localhost ([127.0.0.1]:36395 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1O9OIk-0006WS-RR for geh-help-gnu-emacs@m.gmane.org; Tue, 04 May 2010 16:01:06 -0400 Original-Path: usenet.stanford.edu!news.tele.dk!news.tele.dk!small.news.tele.dk!kanaga.switch.ch!switch.ch!news.belwue.de!news.uni-kl.de!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 45 Original-NNTP-Posting-Host: 143-93-54-11.arno.fh-trier.de Original-X-Trace: news.uni-kl.de 1270479755 15999 143.93.54.11 (5 Apr 2010 15:02:35 GMT) Original-X-Complaints-To: usenet@news.uni-kl.de Original-NNTP-Posting-Date: Mon, 5 Apr 2010 15:02:35 +0000 (UTC) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.1.90 (gnu/linux) Cancel-Lock: sha1:5p999RjYeZfKTP0lm54Xb65adcc= Cache-Post-Path: arno.fh-trier.de!unknown@dslb-084-059-219-252.pools.arcor-ip.net X-Cache: nntpcache 3.0.1 (see http://www.nntpcache.org/) Original-Xref: usenet.stanford.edu gnu.emacs.help:177645 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:73118 Archived-At: metaperl 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