                                :page-source (contains SOME_HTML)}))
 
            (future-fact "Can navigate between drafts"
-                 (try
-                   (wd/to (str (:objective-url @journey-state) "/drafts"))
-                   (wait-for-title "Functional test headline | Objective[8]")
-                   (screenshot "list_of_drafts")
-
-                   (wd/click "#clj-add-a-draft")
-                   (wait-for-title "Add draft | Objective[8]")
-
-                   (wd/input-text "#clj-add-draft-content" SOME_EDITED_MARKDOWN)
-
-                   (wd/click "button[value='submit']")
-
-                   (wd/click "#clj-add-a-draft")
-                   (wait-for-title "Add draft | Objective[8]")
-                   (wd/input-text "#clj-add-draft-content" SOME_MORE_EDITED_MARKDOWN)
-
-                   (wd/click "#clj-go-to-previous-draft")
-
-                   (wd/page-source)
-                   (catch Exception e
-                     (screenshot "ERROR-Can-navigate-between-drafts")
-                     (throw e)))
-                 => (contains SOME_EDITED_MARKDOWN)))))
+                        (try
+                          (wd/to (str (:objective-url @journey-state) "/drafts"))
+                          (wait-for-title "Functional test headline | Objective[8]")
+                          (screenshot "list_of_drafts")
+
+                          (wd/click "#clj-add-a-draft")
+                          (wait-for-title "Add draft | Objective[8]")
+
+                          (wd/input-text "#clj-add-draft-content" SOME_EDITED_MARKDOWN)
+
+                          (wd/click "button[value='submit']")
+
+                          (wd/click "#clj-add-a-draft")
+                          (wait-for-title "Add draft | Objective[8]")
+                          (wd/input-text "#clj-add-draft-content" SOME_MORE_EDITED_MARKDOWN)
+
+                          (wd/click "#clj-go-to-previous-draft")
+
+                          (wd/page-source)
+                          (catch Exception e
+                            (screenshot "ERROR-Can-navigate-between-drafts")
+                            (throw e)))
+                        => (contains SOME_EDITED_MARKDOWN)))))

                      (throw e)))
               =>  "Functional test headline | Objective[8]")

         (fact "Can invite a writer"
               (try (wd/to (:objective-url @journey-state))
                    (wait-for-title "Functional test headline | Objective[8]")

      (prn (str ">>>>>>>>>>> Title never appeared:"))
      (prn (str "Expected: " title))
      (prn (str "Actual: " (wd/title)))
      (throw e))))

(def not-empty? (comp not empty?))

(defn wait-for-element [q]
  (try
    (wd/wait-until #(not-empty? (wd/elements q)) 5000)
    (catch Exception e
      (prn (str "Could not find element: " q))
      (throw e))))

(def screenshot-directory "test/objective8/functional/screenshots")
