   "Given a path to a directory, returns a seq of java.io.File objects
   representing the directory contents"
   [path]
-  (let [path (resolve-abs-path path)
+  (let [path (resolve-tilde-path path)
         f    (file path)]
     (if (.isDirectory f)
       (seq (.listFiles f))

  [parts]
  (apply str (interpose (file-separator) parts)))

(defn resolve-abs-path
  [path]
  (cond
   (= "~" path)


  Examples: (glob \"*.{jpg,gif}\") (glob \".*\") (glob \"/usr/*/se*\")"
  [pattern]
  (let [pattern (resolve-tilde-path pattern)]
    (satta-glob/glob pattern)))
