... and, beautifully recursive solution:
---
RT @JBiserkov
@sfyire (defn one-edit-away? [a b]
(cond (= a b) true
(= (first a) (first b)) (recur (subs a 1) (subs b 1))
:else (= (if (>= (count a) (count b)) (subs a 1) a)
(if (>= (count b) (count a)) (subs b 1) b))))

#Clojure code golf is amazing, thanks for this
https://twitter.com/JBiserkov/status/1446274027748737038