Re: Convenient way to set "root of my project"?

[Scott Frazer <frazer.scott@gmail.com>]

Brett Hoerner wrote:
> On Jan 28, 1:11 am, "Drew Adams" <drew.ad...@oracle.com> wrote:
>> Sounds similar to the recent thread "build a macro that opens a directory and
>> prompts for file name" - see that for suggestions. In particular, see Emacs
>> command `cd' and variable `default-directory'.
> 
> Thanks!
> 
> I had used 'cd' by hand in the past, but 'default-directory' looks
> like what I want.  I'm very new to all of this, I just need to find a
> way now to hook the opening of a file, detect if it matches a path
> like '/a/NAME/src/.*' and set the default directory of that buffer to
> '/a/NAME/src/'

This might be close:

(defvar my-default-directory-roots (list "/foo/bar"
                                          "/baz/quux")
   "Default directory roots")

(defun my-set-default-directory-hook ()
   (mapc (lambda (root)
           (when (string-match (concat "^" root) (buffer-file-name))
             (setq default-directory root)))
         my-default-directory-roots))

(add-hook 'find-file-hook 'my-set-default-directory-hook)