    (fn [state]
            (->> state
                 (sort (fn [x y]
                         (comp @x @y)))
                 vec)))
   ova)
  ([ova sel comp]
   (alter (state/get ova)
          (fn [state]
            (->> state
                 (sort (fn [x y]
                         (comp (hand/get-> @x sel) (hand/get-> @y sel))))
                 vec)))
   ova))</code></pre>
                    </div>
                </div>
                <pre><h6><i><a href="https://github.com/zcaudate/hara/blob/m