             :open
               (open-door state direction)
             :close
-              (close-door state direction)))
+              (close-door state direction)
+            (rw/assoc-current-state state :normal)))
         ;; let the player choose the action
         (-> state
           (assoc-in [:world :action-select]

                         (get directions direction)
                         rc/hotkeys))
          (rw/assoc-current-state :action-select)))
      ;; player chose an invalid direction, keep waiting
      state)))
        
  
(defn do-selected-action

(defn action-select
  [state]
  (let [directions (directions-to-actions state)]
    (log/info directions)
    (cond
      (empty? directions)
        (-> state
