Drag index through a vector

vector drag

(defn slide
  "Returns the final vector after dragging an indexed item to another index, which means it swaps incrementally with each index it passes through. v should be a vector but if it isn't it will be converted to one."
  [v o n]
  (let [v (vec v) ;; ensures v is a vector
        item (v o)
        removed (if (= o (count v))
                  (pop v)
                  `[~@(concat
                       (subvec v 0 o)
                       (subvec v (inc o)))])]
    `[~@(concat (conj
                 (subvec removed 0 n)
                 item)
                (subvec removed n))]))