file level categories

["Eddward DeVilla" <eddward@gmail.com>]

Hi,

    A while back I wrote a function that I call from org-mode-hook to
rename the buffer if it's file name is project.org.  It would rename
it to "Org - <category>" based on the category in the file.  I did
this because I tend to have different directories for the different
sorts of things I work on and I keep a consistently named file with
the state of the projects working from there.  The problem was that
all of my org buffers were call projects.org.

   Anyhow, I wrote that function using org-get-category and
org-get-category-table to determine the category for the file so I
could produce a more useful buffer name.  It looks like the category
table is gone now.  Would there be a good way to determine the
category of the the first #+CATEGORY entry in the file and get
something like default if there isn't one?  Or, does anyone have any
other interesting ideas for giving a unique buffer name to org files
with the same file name?

  If you're curious, the rename function I'm was using is:

(defun my-org-buffer-name ()
  (if (buffer-file-name)
      (when (string= (file-name-nondirectory buffer-file-name)
		     "projects.org")
	(let* ((org-category-table (org-get-category-table))  ; work around
some dynamic scope issue
	       (new-buffer-name (format "Org -- %s" (org-get-category)))
	       (buffer-name-re  (concat "^"
					new-buffer-name
					"\\(<[0-9]+>\\)?")))
	  (unless (string-match buffer-name-re (buffer-name))
	    (rename-buffer new-buffer-name t) )))))
(add-hook 'org-mode-hook 'my-org-buffer-name)


Thanks,
Edd