Skip to content
Browse files

bump version to 0.8.0 add file with-path function

  • Loading branch information...
rossputin committed May 27, 2017
1 parent 6c7264b commit f6f0dc0428dab25b5ec4cc13734a6a53e06c6523
Showing with 7 additions and 1 deletion.
  1. +1 −1 project.clj
  2. +6 −0 src/me/rossputin/diskops.clj
@@ -1,4 +1,4 @@
(defproject me.rossputin/diskops "0.7.0"
(defproject me.rossputin/diskops "0.8.0"
:description "Just a handful of the simplest of ubiquitous disk operations."
:url ""
:license {:name "Apache License, Version 2.0"
@@ -46,6 +46,12 @@

(defn exists-dir? [p] (when (and (exists? p) (dir? p)) p))

(defn file-with-path
"Look in a directory structure 'data-path' for a file 'f-name' with given ext"
[data-path f-name ext]
(let [fs (file-seq (file data-path))]
(first (filter #(= (name %) (str f-name ext)) fs))))

(defn mkdir [f] (.mkdir f))

(defn mkdirs [f] (.mkdirs f))

0 comments on commit f6f0dc0

Please sign in to comment.
You can’t perform that action at this time.