-(defun add-todo-section ()
-  "Create a new TODO entry."
+(defun standup-todo-new-section ()
+  "Create a new TODO section."
   (interactive)
   (let ((beg (progn (search-backward "###")
                     (search-forward "blocker")

               (concat
                "/bin/bash --login $HOME/bin/pi | "
                "/usr/local/bin/jq -r '.stories.stories[].name' | "
                "sed 's,^,- [sec] ,'"))))))

(defun create-or-update-pivotal-task (action)
  (interactive)
  (save-excursion
    (progn

        "> /dev/null"))
      (deactivate-mark))))

(defun standup-pivotal-new-midweek-task ()
  (interactive)
  (save-excursion
    (standup-pivotal-create-or-update-task "new-midweek")))

(defun standup-pivotal-deliver-task ()
  (interactive)
  (save-excursion
    (standup-pivotal-create-or-update-task "done")))

;; Set up shortcuts that affect just this file.
(global-set-key (kbd "C-c s t n") 'standup-todo-new-section)
(global-set-key (kbd "C-c s t d") 'standup-todo-mark-as-done)
(global-set-key (kbd "C-c s t f") 'standup-todo-fold-except-top)

;; Set up shortcuts that interact with Pivotal.
(global-set-key (kbd "C-c s p i") 'standup-pivotal-import-tasks)
(global-set-key (kbd "C-c s p n") 'standup-pivotal-new-midweek-task)
(global-set-key (kbd "C-c s p d") 'standup-pivotal-deliver-task)

(provide 'standup)
