From: "weber" <hugows@gmail.com>
To: help-gnu-emacs@gnu.org
Subject: Re: Using a File index
Date: 9 Feb 2007 09:58:32 -0800 [thread overview]
Message-ID: <1171043912.164215.315170@l53g2000cwa.googlegroups.com> (raw)
In-Reply-To: <1171043207.265891.146330@k78g2000cwa.googlegroups.com>
On 9 fev, 14:46, "weber" <hug...@gmail.com> wrote:
> On 9 fev, 14:31, Mathias Dahl <brakjol...@gmail.com> wrote:
>
>
>
> > "weber" <hug...@gmail.com> 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 <file.h> and hitting some key combination.. just an example)
-weber
next prev parent reply other threads:[~2007-02-09 17:58 UTC|newest]
Thread overview: 11+ messages / expand[flat|nested] mbox.gz Atom feed top
2007-02-05 17:13 Using a File index HS
2007-02-06 7:47 ` Kevin Rodgers
[not found] ` <mailman.4082.1170748050.2155.help-gnu-emacs@gnu.org>
2007-02-06 13:44 ` HS
2007-02-07 9:16 ` Kevin Rodgers
2007-02-08 6:44 ` Mathias Dahl
2007-02-08 12:26 ` weber
2007-02-09 17:31 ` Mathias Dahl
2007-02-09 17:46 ` weber
2007-02-09 17:53 ` weber
2007-02-09 17:58 ` weber [this message]
2007-02-10 8:09 ` Kevin Rodgers
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=1171043912.164215.315170@l53g2000cwa.googlegroups.com \
--to=hugows@gmail.com \
--cc=help-gnu-emacs@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).