|
|
@ -160,29 +160,4 @@ |
|
|
|
(print "Required directories already exist"))) |
|
|
|
|
|
|
|
;(init) |
|
|
|
(build) |
|
|
|
|
|
|
|
;; For testing |
|
|
|
;(fn build/convert [dir] |
|
|
|
; (each [_ v (pairs (directory-contents dir))] |
|
|
|
; (let [full-path (.. dir "/" v)] |
|
|
|
; ;(if (and (file-exists? full-path) (not (directory-exists? full-path))) |
|
|
|
; (if (file-exists? full-path) |
|
|
|
; (print (string.format "%s/%s" dir v)) |
|
|
|
; (directory-exists? full-path) |
|
|
|
; (do (print full-path) ;; this shows directories without contents |
|
|
|
; (build/convert full-path)))))) ;; this alone doesn't |
|
|
|
;(dir-tree ".") |
|
|
|
;(init) |
|
|
|
;(build/convert ".") |
|
|
|
;(print "checking for blah directory:") |
|
|
|
;(print "file exists?: " (file-exists? "blah")) |
|
|
|
;(print "directory exists?: " (directory-exists? "blah")) |
|
|
|
;(print "path exists?: " (path-exists? "blah")) |
|
|
|
; |
|
|
|
;(print "") |
|
|
|
; |
|
|
|
;(print "checking for blah.txt file:") |
|
|
|
;(print "file exists?: " (file-exists? "blah.txt")) |
|
|
|
;(print "directory exists?: " (directory-exists? "blah.txt")) |
|
|
|
;(print "path exists?: " (path-exists? "blah.txt")) |
|
|
|
;(build) |