Change the default name of a new notebook from Untitled-*?

Question

I'd like to change the default name of a new notebook to, say, StringJoin[{RandomWord[],".nb"}].

There is a hint how one might do this in $InstallationDirectory/SystemFiles/FrontEnd/TextResources which contains:

@@resource untitledStringNum Untitled-

@@resource untitledStringNoNum Untitled

But, I don't know how the @@resource framework works. I suppose that I cook up something in init.m along these lines the solution described in Autosave Untitled notebooks in $TemporaryDirectory

This may be a very silly idea--is it?

The reason I'd like to do this is I often end up with ten or so Untitled-?.nb at a time because I open them for scratch work. I'm wondering if I gave them less similar names, it might help me remember where particular code snippets are located.

Answer 1

Building upon Create new notebook at fixed size

SetOptions[$FrontEnd, 
 NotebookEventActions :> {
  {"MenuCommand", "New"} :> 
    CreateNotebook["Default", WindowTitle -> RandomWord[] <> ".nb"]
 }
]

This action is run like a Method -> "Preemptive" button so you don't want to make a heavy calculation there. RandomWord[] is fast... after data is loaded initially so it is reasonable to worry about that first call. We can do this like that:

SetOptions[$FrontEnd, 
 NotebookEventActions :> {{"MenuCommand", "New"} :> (
     RunScheduledTask[
        SetOptions[#, WindowTitle -> RandomWord[] <> ".nb"], {0}
     ] & @ CreateNotebook["Default"]
     )}
]

So a notebook is created immediately and right after a task is scheduled. That's it for the event and the link is released. Then the task starts in the kernel and sets the title once it is ready.