   (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)

)

;; Util
(defun midje-provide-result-info (result)
  (destructuring-bind (output value) result
    (if (string= output "")


    (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.")

