(setq todo-file-do (substitute-in-file-name "$COMMON/var/todo-do")
      todo-file-done (substitute-in-file-name "$COMMON/var/todo-done")
      todo-file-top (substitute-in-file-name "$COMMON/var/todo-top"))

(autoload 'todo-mode "todo-mode"
  "Major mode for editing TODO lists." t)
(autoload 'todo-show "todo-mode"
  "Show TODO items." t)
(autoload 'todo-insert-item "todo-mode"
  "Add TODO item." t)

(setq todo-initials "JCGS")