Browse Source

deleted old testing cruft from the bottom

main
Jesse Laprade 2 months ago
parent
commit
8d69c1a2f0
1 changed files with 1 additions and 26 deletions
  1. +1
    -26
      wg.fnl

+ 1
- 26
wg.fnl View File

@ -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)

Loading…
Cancel
Save