From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "weber" Newsgroups: gmane.emacs.help Subject: Re: Using a File index Date: 9 Feb 2007 09:58:32 -0800 Organization: http://groups.google.com Message-ID: <1171043912.164215.315170@l53g2000cwa.googlegroups.com> References: <1170695630.175468.143090@p10g2000cwp.googlegroups.com> <1170769489.721366.107320@a34g2000cwb.googlegroups.com> <1170937572.049993.63340@h3g2000cwc.googlegroups.com> <1171043207.265891.146330@k78g2000cwa.googlegroups.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="iso-8859-1" X-Trace: sea.gmane.org 1171046571 24541 80.91.229.12 (9 Feb 2007 18:42:51 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 9 Feb 2007 18:42:51 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Fri Feb 09 19:42:49 2007 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.50) id 1HFaho-0004Yu-4q for geh-help-gnu-emacs@m.gmane.org; Fri, 09 Feb 2007 19:42:44 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1HFahn-00080j-F6 for geh-help-gnu-emacs@m.gmane.org; Fri, 09 Feb 2007 13:42:43 -0500 Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!postnews.google.com!l53g2000cwa.googlegroups.com!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 98 Original-NNTP-Posting-Host: 200.213.54.31 Original-X-Trace: posting.google.com 1171043917 16781 127.0.0.1 (9 Feb 2007 17:58:37 GMT) Original-X-Complaints-To: groups-abuse@google.com Original-NNTP-Posting-Date: Fri, 9 Feb 2007 17:58:37 +0000 (UTC) In-Reply-To: <1171043207.265891.146330@k78g2000cwa.googlegroups.com> User-Agent: G2/1.0 X-HTTP-UserAgent: Mozilla/5.0 (Windows; U; Windows NT 5.1; pt-BR; rv:1.8.1.1) Gecko/20061204 Firefox/2.0.0.1,gzip(gfe),gzip(gfe) X-HTTP-Via: 1.1 fw.datacom-telematica.com.br:3128 (squid/2.5.STABLE6) Complaints-To: groups-abuse@google.com Injection-Info: l53g2000cwa.googlegroups.com; posting-host=200.213.54.31; posting-account=pG57fA0AAADtQ-4h1MyvjXjZpSNZC0zj Original-Xref: shelby.stanford.edu gnu.emacs.help:145431 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:41036 Archived-At: On 9 fev, 14:46, "weber" wrote: > On 9 fev, 14:31, Mathias Dahl wrote: > > > > > "weber" writes: > > >> How was it solved? > > > > With this code: > > > (defun indexed-find (file) > > > (interactive "MFilename: ") > > > (find-file "my_file_index.txt") > > > (if (re-search-forward (concat file " = ") nil t 1) > > > (progn > > > (setq beg (point)) > > > (end-of-line) > > > (setq end (point)) > > > (find-file (buffer-substring beg end))) > > > (message "File not found!")) > > > (kill-buffer "my_file_index.txt")) > > > I had some free time and could not resist trying out some > > alternatives... :) > > > Alternative 1: > > > This is basically your code, just written a bit differently: > > > (defun indexed-find-2 (file) > > (interactive "MFilename: ") > > (with-temp-buffer > > (insert-file-contents "my_file_index.txt") > > (if (search-forward-regexp (format "%s = \\(.*\\)" file) nil t) > > (find-file (match-string 1)) > > (message "File not found!")))) > > > You might want to use the full path or a variable in the file > > name above. > > > Alternative 2: > > > Another way to do what you want, using completion. > > > (defun indexed-find-3 () > > (interactive) > > (let* ((file-data > > (with-temp-buffer > > (insert-file-contents "my_file_index.txt") > > (buffer-substring (point-min) (point-max)))) > > (rows (split-string file-data "\n")) > > (file (completing-read "File: " rows))) > > (if (string-match "\\(.*\\) = \\(.*\\)$" file) > > (find-file (match-string 2 file)) > > (message "Could not find a file on that row")))) > > > Or, same code, but a but harder to read maybe: > > > (defun indexed-find-4 () > > (interactive) > > (let ((file (completing-read > > "File: " > > (split-string > > (with-temp-buffer > > (insert-file-contents "my_file_index.txt") > > (buffer-substring (point-min) (point-max))) > > "\n")))) > > (if (string-match "\\(.*\\) = \\(.*\\)$" file) > > (find-file (match-string 2 file)) > > (message "Could not find a file on that row")))) > > > > The index file was made with a ruby script, and I update it manually > > > when there are some new files... > > > You might also want to have a look at using Emacs > > file-cache (http://www.emacswiki.org/cgi-bin/wiki/FileNameCache) > > or similar functionality. > > > Happy hacking! > > Oh, that functionality was already implemented! Why that doesn't > surprise me ? :) > Hey Mathias tks for the alternatives, I'll switch to one of those!! > Cheers, > weber Hmm, thinking about it... those versions without ARG are less interesting because I can't use them in a function like this, right? (defun indexed-find-current-word () " Find file under cursor " (interactive) (indexed-find-3 (current-word))) (for example if I wanted to follow files by putting the cursor over an #include and hitting some key combination.. just an example) -weber