utils.clj

;; FIXME: This is missing from the stdlib.
(defn split-extension [filename]
  (let [index (.lastIndexOf filename ".")]
    (list (.substring filename 0 index) (.substring filename index))))

(defn get-basename [filename]
  (let [index (.lastIndexOf filename ".")]
    (.substring filename 0 index)))

(defn get-extension [filename]
  (let [index (.lastIndexOf filename ".")]
    (.substring filename index)))

(let [s "/sdjsd/sds/djsdsj.txt"]
  (map #(% s) (list get-basename get-extension split-extension)))