converting some JS

wizard.cljs

getNavStates(indx, length) {
    let styles = [];

    for (let i=0; i<length; i++) {
      if (i < indx) {
        styles.push('done');
      }
      else if (i === indx) {
        styles.push('doing');
      }
      else {
        styles.push('todo');
      }
    }

    return { current: indx, styles }
}

(defn getNavStates [idx, length]
  (let [styles []]
    (loop [x length]
      (if (> x length)
        {:current idx :styles styles}
        (cond
            (< x idx) (fn [x]
                        (assoc styles x "done")
                        (recur (inc x)))

            (= x idx) (fn [x]
                        (assoc styles x "doing")
                        (recur (inc x)))

            (> x idx) (fn [x]
                        (assoc styles x "todo")
                        (recur (inc x))))))))