   (let [current-stage (get recipe :current-stage)]
     ; find selected choice
 
-    (log/info "choices" (vec (->> (get current-stage :event/choices))))
-    (log/info "choice" (->> (get current-stage :event/choices)
+    (log/debug "choices" (vec (->> (get current-stage :event/choices))))
+    (log/debug "choice" (->> (get current-stage :event/choices)
                       (filter #(= (get % :hotkey) keyin))
                       first))
     (if-let [choice (->> (get current-stage :event/choices)

  ([recipe show-progress]
    {:post [string?]}
    (let [types (get recipe :recipe/types)]
      (log/info "recipe-name" (count types) (get recipe :recipe/id) (get recipe :type) types (and show-progress (in-progress? recipe)))
      (str
        (if (and show-progress (in-progress? recipe))
          "In progress " 

(defn save-recipe
  [state]
  {:post [(not (nil? %))]}
  (log/debug "Saving recipe")
  (log/debug (type (get-in state [:world :recipes])))
  #_(log/info (vec (get-in state [:world :recipes])))
  (let [recipe (current-recipe state)
        _ (assert (some? recipe))
        selected-recipe-hotkey (get-in state [:world :selected-recipe-hotkey])
        _ (log/trace "dominate-item" (get recipe :recipe/dominate-item))
        #_ (log/info recipe)
        recipe-blueprint (-> recipe
                           :recipe/types
