Scheduled task to save my notebook every 30 seconds?

Question

I keep crashing Mathematica and losing cells and textual data that I'm typing. Instead of having to remember to hit command+s all the time, I'd like a scheduled task to save my notebook every 30 seconds, is there a better way?

Answer 1

This seems to do the trick

saveTask = 
  CreateScheduledTask[FrontEndExecute[FrontEndToken["Save"]], 30];
StartScheduledTask[saveTask]

This also,

Dynamic[Refresh[NotebookSave[]; DateString[], UpdateInterval -> 30]]

Of course, there's also this built-in functionality with

SetOptions[SelectedNotebook[], NotebookAutoSave -> True]