.emacs todo-list-mode startup

gistfile1.el

(add-to-list 'load-path "~/emacs/lisp/")    ;my lisp dir
(autoload 'todo-list-mode "todo-list-mode") ;load when needed

;a simple function that opens the file,
;and switches to todo-list-mode.
(defun open-todo-list ()
  (interactive)
  (find-file "~/notes/TODO")
  (todo-list-mode))

;then bind to control-f12 so i can call it with one keystroke
;this works well for me because i also bind calendar to f12
(global-set-key [C-f12] 'open-todo-list)