clojure safe subs substring

safe_subs.clj

(ns com.widdindustries.safe-subs)


(defn subs-safe 
  "like clojure.core/subs but more forgiving"
  ([^String s start] (subs-safe s start (count s)))
  ([^String s start end]
   (when s 
     (let [end (if (> end (count s)) 
                 (count s)
                 end)]
       (cond 
         (zero? start) (subs s start end)
         (> start (count s)) ""
         :else (subs s start end))))))