 
     (define-key map (kbd "C-c n") 'midje-next-fact)
     (define-key map (kbd "C-c p") 'midje-previous-fact)
+
+    (define-key map (kbd "C-c u") 'midje-unfinished)
+
     map)
   "Keymap for Midje mode.")
 

(defvar midje-comments ";.;.")
(defvar last-checked-midje-fact nil)
(defvar midje-fact-regexp "^(facts?\\([[:space:]]\\|$\\)")

;; Callbacks
(defun midje-insert-above-fact (result)

  (midje-hide-all-facts)
  (hs-show-block))

(defun midje-unfinished ()
  (interactive)
  (if (midje-within-unfinished?) 
      (midje-add-defn-after-unfinished (midje-remove-identifier-from-unfinished-list))
    (midje-add-identifier-to-unfinished-list (midje-identifier))))

(defvar midje-mode-map
  (let ((map (make-sparse-keymap)))
    (define-key map (kbd "C-c ,") 'midje-check-fact)
